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