elso

>

a:=2;

>

b:=3;

>

a*b;

>	evalf(a*b);

>

c:=Pi;

>

a*c;

>	evalf(a*c);

>	A:=matrix([[1,2],[2,3]]);

>	evalm(A&*B);

>	B:=matrix([[1,2],[2,3]]);

>	eq1:=a*x^2+b*x+c=0;

>	solve(eq1,x);

>

evalf(%);

>	eq2:=exp(x2)=x;

>	evalm(eq2);

>	solve(eq2,x);

>	eq3:=sin(x)=ln(x);

>	evalf(solve(eq3,x));

>	f(x):=sin(x);

>	plot(f(x),x=0..2*Pi);

>	f(x,y):=sin(x*y);

>	plot3d(f(x,y),x=-Pi..Pi,y=-Pi..Pi);

>	with(plots);

Warning, the name changecoords has been redefined

>	f(x,y,t):=cos(x*t)*sin(y*t);

>	animate3d(cos(t*x)*sin(t*y),x=-Pi..Pi, y=-Pi..Pi,t=1..2);

>	f(x):=x*exp(x);

>	diff(x*exp(x),x);

>

y’=a*y;

>	deq1:=diff(y(x),x)=-a*y(x);

>	dsolve(deq1,y(x));

>	f(x):=a*e^(-b*x);

>	int(a*exp(-b*x),x);

>	int(a*exp(-b*x),x=2..4);

>	evalf(int(a*exp(-b*x),x=2..4));

>	h:=proc(t) plot(sin(t*x),x=0..2*Pi) end;

>

>

>

h(3);

>	with(DEtools):

>	DEplot(diff(y(x),x)=ln(y(x)^2+3)-sin(x),y(x),x=0..4,[[y(0)=4]]);

>	egyenlet:=x(t)*diff(x(t),t$2)=1/(x(t)*y(t)*z(t)),y(t)*diff(y(t),t$2)=1/(x(t)*y(t)*z(t)),z(t)*diff(z(t),t$2)=1/(x(t)*y(t)*z(t));

>	sol:=dsolve({egyenlet,x(0)=1,y(0)=1,z(0)=1,D(x)(0)=0,D(y)(0)=0,D(z)(0)=0},{x(t),y(t),z(t)},type=numeric,output=listprocedure);

>	xx:= subs(sol,x(t)); yy:= subs(sol,y(t)); zz:= subs(sol,z(t));

>	plot(xx*yy*zz,0..10);

>