13-6-10.html | AcademiaXXI

Кирсанов М.Н.

Решебник.Теоретическая механика.

 М.:ФИЗМАТЛИТ, 2002.

Иллюстрации и программы к книге

13.6. Задача 10

> restart:with(plottools):
with(plots):
read «stand.m»;

Процедура создания и анимации рисунка задачи 10

>    WD[10]:=proc(xx)
      local i,dt,tn,p1,p11,p13,p2,p3,p4,p5,p9,p91,p92,alpha,beta:
      alpha:=Pi/4: beta:=Pi/6:
      tn:=0.65: dt:=tn/40:
      for i from 0 to 40 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.3,»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),0.5,»30″],align={ABOVE,LEFT},color=red):p5:=textplot([0,23,»Задача 10″],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,p13,p11,p9,p91,p92,
КОЛЕСО(5+2*eval(xx,t=i*dt),0,1,wheat),   ТОЧКА(5+2*eval(xx,t=i*dt),-0.1),                                        КОЛЕСО(18+2*eval(xx,t=i*dt),0,1,wheat), ТОЧКА(18+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),
ЛИНИЯ((24*tan(beta))/(tan(alpha)+tan(beta))+2*eval(xx,t=i*dt),((25.8*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),
ЛИНИЯ(1.6-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),5.3-eval(xx,t=i*dt)*tan(alpha),7+2*eval(xx,t=i*dt),(7-1.6)*tan(alpha)+5.3,1),
ЛИНИЯ(10.07+2*eval(xx,t=i*dt),12.1,18.5-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),(-18.5+10.07+eval(xx,t=i*dt))*tan(beta)+12.1,1),
КОЛЕСО(8.48+2*eval(xx,t=i*dt),9.33,2,green),
КОЛЕСО(8.48+2*eval(xx,t=i*dt),9.33,3.2,green),
КОЛЕСО(2.3-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),4.2-eval(xx,t=i*dt)*tan(alpha),1.3,pink), ТОЧКА(8.48+2*eval(xx,t=i*dt),9.33),
ТОЧКА(2.3-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),4.2-eval(xx,t=i*dt)*tan(alpha)),
ГРУЗ(12.4-1.15*eval(xx,t=i*dt)+1.7*eval(xx,t=i*dt),18.5+eval(xx,t=i*dt),14.4-1.15*eval(xx,t=i*dt)+1.7*eval(xx,t=i*dt),12.52+eval(xx,t=i*dt),-beta),
ТОЧКА1(8.48-2.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.33-2.7*sin(eval(xx,t=i*dt))), ТОЧКА1(8.48+2.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.33+2.7*sin(eval(xx,t=i*dt))), ТОЧКА1(8.48+2.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.33-2.7*cos(eval(xx,t=i*dt))), ТОЧКА1(8.48-2.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.33+2.7*cos(eval(xx,t=i*dt))), ТОЧКА1(8.48-1.5*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.33+1.5*cos(eval(xx,t=i*dt))), ТОЧКА1(8.48+1.5*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.33-1.5*cos(eval(xx,t=i*dt))), ТОЧКА1(8.48+1.5*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.33+1.5*sin(eval(xx,t=i*dt))), ТОЧКА1(8.48-1.5*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.33-1.5*sin(eval(xx,t=i*dt))), А(17.53-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),tan(beta)*(15+eval(xx,t=i*dt))), B(4.48+2*eval(xx,t=i*dt),12.33), C(0.3-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),6.2-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..40)],out1):
end proc:

Warning, the names arrow and changecoords have been redefined

`>`	*УСКОРЕНИЕ_ПРИЗМЫ:=W[10];WD[10](8t2);

>