Программа 11. Задача 20

>

restart:

>	ro:=t*sin(3*t): f:=t^3: # Закон движения

>	vr:=diff(ro,t); ft:=diff(f,t); vf:=ro*ft:

>	v:=vector([vr,vf]):

>	with(linalg): V:=norm(v,2):#Модуль скорости

>	ar:=diff(ro,t$2)-ro*ft^2:

>	af:=ro*diff(f,t$2)+2*vr*ft:

>	a:=sqrt(ar^2+af^2):#Модуль ускорения

>	at:=(vr*ar+vf*af)/V:

>	an:=sqrt(a^2-at^2):#Нормальное ускорение

>

t:=1.:

>	Vel=V;Acc=a;At=at;An=an;

>