Добавил:
ajieiiika26@gmail.com Делаю контрольные работы, курсовые, дипломные работы. Писать на e-mail. Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
31
Добавлен:
18.01.2018
Размер:
586 б
Скачать
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