Программа 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)); |