Кирсанов М.Н.
Решебник.Теоретическая механика.
М.:ФИЗМАТЛИТ, 2002.
Иллюстрации и программы к книге
13.6. Задача 8
:
| > | restart:with(plottools): with(plots): read «stand.m»; |
Процедура создания и анимации рисунка задачи 8
WD[8]:=proc(xx)
local i,dt,tn,p1,p11,p13,K,p2,p3,p4,p5,p9,p91,p92,alpha,beta:
alpha:=Pi/4: beta:=Pi/3:
tn:=0.65: K:=12: dt:=tn/K:
for i from 0 to K do
p1:=pieslice([0+2*eval(xx,t=i*dt),0],3,0..alpha,color=white):
p2:=textplot([3.3+2*eval(xx,t=i*dt),1.4,»45″],align={ABOVE,RIGHT},color=red): p3:=pieslice([25+2*eval(xx,t=i*dt),0],3,Pi..Pi-beta,color=white): p4:=textplot([21.7+2*eval(xx,t=i*dt),1.4,»60″],align={ABOVE,LEFT},color=red):
p5:=textplot([0,30,»Задача 8″],align={ABOVE,RIGHT},color=blue):
p11:=plot({[[2*eval(xx,t=i*dt),0],[25+2*eval(xx,t=i*dt),0]]},x=0..25,color=black,thickness=3):
p13:=plot({[-1,-1.1],[35,-1.1]},x=-1..35,color=black,thickness=2): p9:=plot({[[25+2*eval(xx,t=i*dt),0],[29+2*eval(xx,t=i*dt),0]]},x=25..29,color=gold): p91:=line([27+2*eval(xx,t=i*dt),0.5],[29+2*eval(xx,t=i*dt),0],color=gold): p92:=line([27+2*eval(xx,t=i*dt),-0.5],[29+2*eval(xx,t=i*dt),0],color=gold):
q||i:=display({p1,p2,p3,p4,p5,p11,p13,p9,p91,p92,
КОЛЕСО(5+2*eval(xx,t=i*dt),0,1,wheat), ТОЧКА(5+2*eval(xx,t=i*dt),-0.1), КОЛЕСО(19+2*eval(xx,t=i*dt),0,1,wheat), ТОЧКА(19+2*eval(xx,t=i*dt),-0.1), ЛИНИЯ(0+2*eval(xx,t=i*dt),0,(25*tan(beta))/(tan(alpha)+tan(beta))+2*eval(xx,t=i*dt),((25*tan(beta))/(tan(alpha)+tan(beta)))*tan(alpha),3),
ЛИНИЯ((25*tan(beta))/(tan(alpha)+tan(beta))+2*eval(xx,t=i*dt),((25*tan(beta))/(tan(alpha)+tan(beta)))*tan(alpha),25+2*eval(xx,t=i*dt),((25*tan(beta))/(tan(alpha)+tan(beta))-25)*tan(beta)+((25*tan(beta))/(tan(alpha)+tan(beta)))*tan(alpha),3),
ЛИНИЯ(4-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),11-eval(xx,t=i*dt)*tan(alpha),12.7+2*eval(xx,t=i*dt),(12.7-4)*tan(alpha)+11,1),
ЛИНИЯ(19.02+2*eval(xx,t=i*dt),17.72,26.2-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),(-26.2+19.02+eval(xx,t=i*dt))*tan(beta)+17.72,1),
КОЛЕСО(16.52+2*eval(xx,t=i*dt),15.72,3.2,green),
КОЛЕСО(16.52+2*eval(xx,t=i*dt),15.72,5.5,green),
КОЛЕСО(5.9-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),9.5-eval(xx,t=i*dt)*tan(alpha),2.4,pink), ТОЧКА(16.52+2*eval(xx,t=i*dt),15.72),
ТОЧКА(5.9-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),9.5-eval(xx,t=i*dt)*tan(alpha)),
ГРУЗ(8.5-2*eval(xx,t=i*dt)+eval(xx,t=i*dt),29.3+1.7*eval(xx,t=i*dt),11.5-2*eval(xx,t=i*dt)+eval(xx,t=i*dt),21.72+1.7*eval(xx,t=i*dt),-beta),
ТОЧКА1(16.52-4.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15.72-4.7*sin(eval(xx,t=i*dt))),
ТОЧКА1(16.52+4.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15.72+4.7*sin(eval(xx,t=i*dt))),
ТОЧКА1(16.52+4.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15.72-4.7*cos(eval(xx,t=i*dt))),
ТОЧКА1(16.52-4.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15.72+4.7*cos(eval(xx,t=i*dt))),
ТОЧКА1(16.52-2.4*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15.72+2.4*cos(eval(xx,t=i*dt))),
ТОЧКА1(16.52+2.4*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15.72-2.4*cos(eval(xx,t=i*dt))),
ТОЧКА1(16.52+2.4*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15.72+2.4*sin(eval(xx,t=i*dt))),
ТОЧКА1(16.52-2.4*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15.72-2.4*sin(eval(xx,t=i*dt))),
А(26.8-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),tan(beta)*(4.5+eval(xx,t=i*dt))), B(11.52+2*eval(xx,t=i*dt),20.72), C(2.9-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),12.5-eval(xx,t=i*dt)*tan(alpha)),
F(26.5+2*eval(xx,t=i*dt),0.5)
},scaling=constrained);
end do:
display([seq(q||i,i=0..K)],out1):
end proc:
| > | УСКОРЕНИЕ_ПРИЗМЫ:=W[8];WD[8](5*t**2); |
