75 группа 2 вариант / Численные методы моделирования / Kontrab1

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