Задание№5

a)x=[4,-6,-1,0];

d=roots(x)

ответ

d =

- 0.1513878

1.6513878

b) clc

function y=f(x)

y=x.*log(x)+4*x.^2-6*(x.^2).*sin(x)-7*x-10;

endfunction

x=2:0.1:9;

plot(x,f(x))

xgrid()

d=3;

k=fsolve(d,f)

k =

2.9899271

С) clf()

x=1:0.1:7

y=4*x.^4-10*x.^3-6*x+34;

plot(x,y);xgrid()

function y=gg(x)

y=4*x.^4-10*x.^3-6*x+34;

endfunction

function[f,g,r]=z(x,r)

f=gg(x)

g=numdiff(gg,x)

endfunction

h=2;

[fmin,xmin]=optim(z,h)

Ответ: xmin =

1.9714819

fmin =

5.9717343

d) clc

function y=f(x)

y=(x.^3*sin(x)+4*log(x))/(x.^2+sqrt(x+1));

endfunction

t=intg(2,5,f)

Ответ: t =

- 2.7805662

clc

clf()

a=5;b=1;x=4

if (abs(3*a-b))>x then

y=a+x*log(x.^2+2*a)

else y=b-sqrt(x+a)

end

ответ:

x =

4.

y =

18.032386

Clc

a=4;

for x=4:0.5:6;

y=log(tan(x/a+1).^2)+exp(-x)

end

ответ:

y =

1.5815838

y =

0.9707192

y =

0.4347460

y =

- 0.0711530

y =

- 0.5808417

Задание 8

Clc

a=[-1 23 -77 12 55 13 17 65 81 32 54 -3 -25 91 -15];

s=0;

k=0;

n=length(a);

for i=1:n

if modulo(i,2)~=0 & a(i)>0 then s=s+a(i);

end

if modulo(i,2)==0 & a(i)>0 then k=k+a(i);

end

end

s

K

Ответ: s =

207.

k =

236.

Задание 9

clc

a=[4 5 1 -6 3 -2;3 4 7 -1 2 3;1 2 2 -1 5 1;3 4 -2 1 1 -1;1 3 -2 2 1 1;7 6 -1 2 1 2];

[n,m]=size(a);

for i=1:n

k=0;

s=0;

for j=1:m

if a(i,j)>0 then s=s+a(i,j); k=k+1;

end

end

t=s/k;

p(i)=t;

end

Min=p(1);

for i=1:n

if p(i)<Min then Min=p(i); Nmin=i;

end

end

Nmin

Ответ:

Nmin =

5.