Программа 24

>

restart;

>	Тейлор:=proc(u,var) local V,N;

>	N:=1..nops(var);

>	subs(seq(var[i]=V[i],i=N),u);

>	mtaylor(%,[seq(V[i],i=N)]);

>	subs(seq(V[i]=var[i],i=N),%);

>

end proc:

>	save Тейлор, "C:\\teylor.m";#сохраняем на диске