13-6-5.html. Ðåøåáíèê.Òåîðåòè÷åñêàÿ ìåõàíèêà.

Êèðñàíîâ Ì.Í.

Ðåøåáíèê.Òåîðåòè÷åñêàÿ ìåõàíèêà. Ì.:ÔÈÇÌÀÒËÈÒ, 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](5*t**2);

[Maple Plot]

>