Кирсанов М.Н.
Решебник.Теоретическая механика.
М.:ФИЗМАТЛИТ, 2002.
Иллюстрации и программы к книге
13.6. Задача 9
:
restart:with(plottools):
with(plots):
read «stand.m»;
Процедура создания и анимации рисунка задачи 9
WD[9]:=proc(xx)
local i,dt,K,tn,p1,p11,p13,p2,p3,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.1,»45″],align={ABOVE,RIGHT},color=red):p3:=textplot([0,27,»Задача 9″],align={ABOVE,RIGHT},color=blue): p11:=plot({[[-2*eval(xx,t=i*dt),0],[30-2*eval(xx,t=i*dt),0]]},x=0..30,color=black,thickness=3):
p13:=plot({[-10,-1.5],[31,-1.5]},x=-10..31,color=black,thickness=2): p9:=plot({[[30-2*eval(xx,t=i*dt),0],[34-2*eval(xx,t=i*dt),0]]},x=30..34,color=gold): p91:=line([32-2*eval(xx,t=i*dt),0.5],[30-2*eval(xx,t=i*dt),0],color=gold): p92:=line([32-2*eval(xx,t=i*dt),-0.5],[30-2*eval(xx,t=i*dt),0],color=gold):
q||i:=display({p1,p2,p3,p11,p13,p9,p91,p92, КОЛЕСО(7-2*eval(xx,t=i*dt),0,1.4,wheat), ТОЧКА(7-2*eval(xx,t=i*dt),-0.1), КОЛЕСО(25-2*eval(xx,t=i*dt),0,1.4,wheat), ТОЧКА(25-2*eval(xx,t=i*dt),-0.1), ЛИНИЯ(0-2*eval(xx,t=i*dt),0,15-2*eval(xx,t=i*dt),15*tan(alpha),3),
ЛИНИЯ(30-2*eval(xx,t=i*dt),0,30-2*eval(xx,t=i*dt),15*tan(alpha),3),
ЛИНИЯ(15-2*eval(xx,t=i*dt),15*tan(alpha),30-2*eval(xx,t=i*dt),15*tan(alpha),3),
ЛИНИЯ(4-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),9.7-eval(xx,t=i*dt)*tan(alpha),11.35-2*eval(xx,t=i*dt),(11.35-4)*tan(alpha)+9.7,1),
ЛИНИЯ(14.74-2*eval(xx,t=i*dt),18.18,24.5-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),18.18,1),
КОЛЕСО(14.44-2*eval(xx,t=i*dt),13.61,4.6,green),
КОЛЕСО(5-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),8.57-eval(xx,t=i*dt)*tan(alpha),1.5,pink),
КОЛЕСО(5-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),8.57-eval(xx,t=i*dt)*tan(alpha),2.45,pink),ТОЧКА(14.44-2*eval(xx,t=i*dt),13.61),
ТОЧКА(5-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),8.57-eval(xx,t=i*dt)*tan(alpha)),
ГРУЗ(24.5-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),21.5,27.5-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),15,0),
ТОЧКА1(14.44-3.6*cos(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),13.61-3.6*sin(eval(xx,t=i*dt))),
ТОЧКА1(14.44+3.6*cos(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),13.61+3.6*sin(eval(xx,t=i*dt))),
ТОЧКА1(14.44+3.6*sin(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),13.61-3.6*cos(eval(xx,t=i*dt))),
ТОЧКА1(14.44-3.6*sin(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),13.61+3.6*cos(eval(xx,t=i*dt))),
А(25.45-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),22.46), B(10.44-2*eval(xx,t=i*dt),18.71), C(2-eval(xx,t=i*dt)-2*eval(xx,t=i*dt),11.57-eval(xx,t=i*dt)*tan(alpha)), F(32.5-2*eval(xx,t=i*dt),0.5)
},scaling=constrained);
end do:
display([seq(q||i,i=0..K)],out1):
end proc:
| > | УСКОРЕНИЕ_ПРИЗМЫ:=W[9];WD[9](10*t**2); |
| > |
