Программа 18. Задача 27

>

restart;

>	assume(L>0):# Предполагаем, что L>0

>	interface(showassumed=0):

>	f:=phi(t):  # Угол

>	h:=2*L*(1-sin(f)): # Размеры

>	b:=L*cos(f):

>	c:=sqrt(4*L^2-h^2):

>	S:=sqrt((b+c)^2+(2*L-L*sin(f))^2); #S=S(t)=BC

Скорость и ускорение

>	v:=subs(diff(phi(t),t)=w,diff(S,t)):

>	a:=subs(diff(phi(t),t)=w,diff(S,t$2)):

>	V=simplify(subs(f=Pi/2,v));

>	A=simplify(subs(f=Pi/2,a));