Программа 19. Задача 28

>

restart;

>	CO:=62: BD:=99.32: #Размеры

>	BC:=43: AB:=111: OA:=40:

>	omega:=3: # Угловая скорость

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

>	xa:=OA*cos(f)+CO: #Координаты шарнира A

>	ya:=OA*sin(f):

>	eq1:=(xb-xa)^2+(yb-ya)^2=AB^2:

>	eq2:=xb^2+yb^2=BC^2:

>	R:=evalf(solve({eq1,eq2},{xb,yb})): assign(R):

>	x:=S*cos(f)+CO:    #Координаты муфты

>	y:=S*sin(f):

>	eq3:=(xb-x)^2+(yb-y)^2=BD^2:

>	S:=solve(eq3,S):

>

>	Vot:=diff(S[4],t):  #Скорость

>	Aot:=diff(S[4],t$2):#Ускорение

>	evalf(subs(f=Pi/4,S[4]));# S=OD

>	Z1:=subs(diff(f,t)=omega,Vot):

>	Z2:=subs(diff(f,t)=omega,Aot):

>	evalf(subs(f=Pi/4,Z1));

>	evalf(subs(f=Pi/4,Z2));