> restart;with(plots):with(linalg):

Билет 1.

> restart;with(plots):with(linalg):

>

> S:=1+Sum(x^k/k,k=1..n);

> n:=1000; x:=1; S; value(%); evalf(%%);

>

> x:='x'; n:='n';

> f:=proc(x,y)

z:=3*x+6*y-x^2-x*y-y^2;

end;:

> plot3d(f(x,y), x=-3..4, y=0..5)

> contourplot(f(x,y), x=-3..4, y=0..5, color=blue, contours=50);

> f(0,3);

> maximize(f(x,y), x=-3..4, y=0..5, location);

Билет 2.

> restart; with(plots):

> N:=product((x-2*k+1), k=1..5);

> Z:=product((x-2*k), k=1..5);

> N/Z;

> x:=1/2; N/Z;

>

> x:='x';

> ur1:=x-3*y=10;

> ur2:=x^2-24*y=100;

> implicitplot({ur1,ur2}, x=-5..14, y=-5..2);

> solve({ur1,ur2},{x,y});

Билет 3.

> restart: with(plots):

> y:=sin(2.2*x)-x;

> plot(y,x=-2..4, color=brown, thickness=2);

> fsolve (y,x=0..4);

Билет 5.

> restart: with(plots):

> P:=product((1+1/k), k=1..n);

> n:=50;P; value(P);

Билет 9.

> restart: with(plots):

> ur1:=x^2+y^2+x+y=32;

> ur2:=x*y+2*(x+y)=26;

> implicitplot({ur1,ur2}, x=2..5, y=2..5);

> fsolve({ur1,ur2},{x,y});

> n:='n';

Билет 10.

> restart: with(plots):

> Product((2+1/i),i=1..n);

> n:=20; value(%%);

Билет 11.

> restart: with(plots):

> restart: with(plots):

> n:='n';

> Sum(1+1/i^3,i=1..n);

> n:=20; evalf(%%);

Билет 12.

> restart: with(plots):

> 2*n+n!;

Билет 14.

> restart: with(plots):

> n:=5; m:=2;

> (n-m)!/n!/m!;

Билет 17.

> restart: with(plots):

> f:=piecewise(x<0,0,x<1,x,1/x);

> plot(f, x=-3..5, color=magenta, thickness=3);

> x:=a; f;

> a:=5; f;

Билет 18.

> restart: with(plots):

> phi:=proc(t)

z:=piecewise(t<-2,t, t<2, t^2, t<10, 4, t);

> end;

> plot(phi(z), z=-6..15, color=gold, thickness=3, discont=true);

> phi(5); phi(-3);

Дата добавления: 2015-11-04