13-6-5.html | AcademiaXXI

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

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

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

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

13.6. Задача 5

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

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

>    WD[5]:=proc(xx)
      local i,dt,tn,p,p1,p11,p12,p13,p2,p3,p9,p91,p92,alpha,beta:
      alpha:=Pi/6: beta:=Pi/2:
      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.9+2*eval(xx,t=i*dt),0.6,»30″],align={ABOVE,RIGHT},color=red):      p3:=textplot([0,15,»Задача 5″],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):
p12:=plot({[[2*eval(xx,t=i*dt),0],[15+2*eval(xx,t=i*dt),15*tan(alpha)]]},x=0..15,color=black,thickness=3):
p13:=plot({[-1,-1.1],[35,-1.1]},x=-1..39,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],[34+2*eval(xx,t=i*dt),0],color=gold): p92:=line([32+2*eval(xx,t=i*dt),-0.5],[34+2*eval(xx,t=i*dt),0],color=gold):
               q||i:=display({p1,p2,p3,p11,p12,p13,p9,p91,p92,                                                        ЛИНИЯ(15+2*eval(xx,t=i*dt),15*tan(alpha),30+2*eval(xx,t=i*dt),15*tan(alpha),3),                                                        ЛИНИЯ(30+2*eval(xx,t=i*dt),15*tan(alpha),30+2*eval(xx,t=i*dt),0,3),
                             КОЛЕСО(19+2*eval(xx,t=i*dt),15*tan(alpha),2,green),
                             КОЛЕСО(19+2*eval(xx,t=i*dt),15*tan(alpha),3.4,green),
                             ТОЧКА(19+2*eval(xx,t=i*dt),15*tan(alpha)), КОЛЕСО(7+2*eval(xx,t=i*dt),0,1,wheat),   ТОЧКА(7+2*eval(xx,t=i*dt),-0.1),                                        КОЛЕСО(27+2*eval(xx,t=i*dt),0,1,wheat), ТОЧКА(27+2*eval(xx,t=i*dt),-0.1),                            ЛИНИЯ(8-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),6.25-eval(xx,t=i*dt)*tan(alpha),17.35+2*eval(xx,t=i*dt),(17.35-8)*tan(alpha)+6.25,1),                            ЛИНИЯ(18.82+2*eval(xx,t=i*dt),10.68,26.5-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),10.68,1),                             КОЛЕСО(8-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),6.25-eval(xx,t=i*dt)*tan(alpha),1.33,pink),                             ТОЧКА(8-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),6.25-eval(xx,t=i*dt)*tan(alpha)),                             ГРУЗ(26.5-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),12.7,28-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),15*tan(alpha),0),                             ТОЧКА1(19-1.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15*tan(alpha)-1.7*sin(eval(xx,t=i*dt))),                            ТОЧКА1(19-3*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15*tan(alpha)-3*sin(eval(xx,t=i*dt))),                            ТОЧКА1(19+1.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15*tan(alpha)+1.7*sin(eval(xx,t=i*dt))),                             ТОЧКА1(19+3*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15*tan(alpha)+3*sin(eval(xx,t=i*dt))),                             ТОЧКА1(19-3*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15*tan(alpha)+3*cos(eval(xx,t=i*dt))),                             ТОЧКА1(19-1.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15*tan(alpha)+1.7*cos(eval(xx,t=i*dt))),                             ТОЧКА1(19+3*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15*tan(alpha)-3*cos(eval(xx,t=i*dt))),                             ТОЧКА1(19+1.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),15*tan(alpha)-1.7*cos(eval(xx,t=i*dt))),
  А(26.85-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),13.68), B(15+2*eval(xx,t=i*dt),3+15*tan(alpha)), C(6-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),8.25-eval(xx,t=i*dt)*tan(alpha)), F(31.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[5];WD[5](5t2);

>