Добавил:
AJIEIIIKA
ajieiiika26@gmail.com
Делаю контрольные работы, курсовые, дипломные работы. Писать на e-mail.
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:75 группа 2 вариант / Численные методы моделирования / Kontrab1
.m function kr
clear; clc;
for i=1:12
x(i)=25+9*rand
if x(i)<=29
y(i)=(sin(x(i))*sin(x(i))+1)^0.5;
else
y(i)=log(x(i))+tan(x(i));
end
end
[x' y']
plot(x,y,'*')
A=0; n=0;
for i=1:12
if y(i)<2
A=A+y(i);
n=n+1;
end
end
A=A/n;
[A]
P=1; k=0;
for i=1:12
if x(i)<29
P=P*x(i);
k=k+1;
end
end
P=P^(1/k);
[P]
MaxY=-100;
for i=1:12
if (y(i)>MaxY)&(y(i)<1)
MaxY=y(i);
end
end
[MaxY]
MinX=35;
for i=1:12
if x(i)<MinX
MinX=x(i);
end
end
[MinX]
end
clear; clc;
for i=1:12
x(i)=25+9*rand
if x(i)<=29
y(i)=(sin(x(i))*sin(x(i))+1)^0.5;
else
y(i)=log(x(i))+tan(x(i));
end
end
[x' y']
plot(x,y,'*')
A=0; n=0;
for i=1:12
if y(i)<2
A=A+y(i);
n=n+1;
end
end
A=A/n;
[A]
P=1; k=0;
for i=1:12
if x(i)<29
P=P*x(i);
k=k+1;
end
end
P=P^(1/k);
[P]
MaxY=-100;
for i=1:12
if (y(i)>MaxY)&(y(i)<1)
MaxY=y(i);
end
end
[MaxY]
MinX=35;
for i=1:12
if x(i)<MinX
MinX=x(i);
end
end
[MinX]
end
Соседние файлы в папке Численные методы моделирования