13-6-7.html | AcademiaXXI

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

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

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

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

13.6. Задача 7

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

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

>    WD[7]:=proc(xx)
      local i,dt,tn,p,p11,p13,p2,p3,p4,p5,p1,p9,p91,p92,alpha,beta:
      alpha:=Pi/6: beta:=Pi/3:
      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.5-2*eval(xx,t=i*dt),0.6,»30″],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([-1,22,»Задача 7″],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({[-10,-1.1],[30,-1.1]},x=-10..30,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],[25-2*eval(xx,t=i*dt),0],color=gold): p92:=line([27-2*eval(xx,t=i*dt),-0.5],[25-2*eval(xx,t=i*dt),0],color=gold):                                 q||i:=display({p1,p2,p3,p4,p5,p11,p13,p9,p91,p92,     КОЛЕСО(7-2*eval(xx,t=i*dt),0,1,wheat),   ТОЧКА(7-2*eval(xx,t=i*dt),-0.1),                                        КОЛЕСО(20-2*eval(xx,t=i*dt),0,1,wheat), ТОЧКА(20-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),
ЛИНИЯ(7+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),7.95+eval(xx,t=i*dt)*tan(alpha),16.7-2*eval(xx,t=i*dt),(16.7-7)*tan(alpha)+7.95,1),
ЛИНИЯ(21.7-2*eval(xx,t=i*dt),11.91,24.2+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),(-24.2+21.7-eval(xx,t=i*dt))*tan(beta)+11.91,1),
КОЛЕСО(18.34-2*eval(xx,t=i*dt),10.1,3.8,green),
КОЛЕСО(7.6+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),7.15+eval(xx,t=i*dt)*tan(alpha),1,pink), КОЛЕСО(7.6+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),7.15+eval(xx,t=i*dt)*tan(alpha),2.3,pink),
ГРУЗ(5.5+2*eval(xx,t=i*dt)-eval(xx,t=i*dt),27.7-1.7*eval(xx,t=i*dt),7.5-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),21.72-1.7*eval(xx,t=i*dt),-beta),
ТОЧКА(18.34-2*eval(xx,t=i*dt),10.1),
ТОЧКА(7.6+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),7.15+eval(xx,t=i*dt)*tan(alpha)),
ТОЧКА1(18.34+3.2*cos(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),10.1-3.2*sin(eval(xx,t=i*dt))),
ТОЧКА1(18.34-3.2*cos(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),10.1+3.2*sin(eval(xx,t=i*dt))),
ТОЧКА1(18.34+3.2*sin(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),10.1+3.2*cos(eval(xx,t=i*dt))),
ТОЧКА1(18.34-3.2*sin(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),10.1-3.2*cos(eval(xx,t=i*dt))),А(25+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),1+tan(beta)*(5.1-eval(xx,t=i*dt))), B(16.34-2*eval(xx,t=i*dt),14.5), C(4.6+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),10.15+eval(xx,t=i*dt)*tan(alpha)), F(27.5-2*eval(xx,t=i*dt),0.5)
                         },scaling=constrained);
      end do:
display([seq(q||i,i=0..40)],out1):
end proc:

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

Warning, the names arrow and changecoords have been redefined

>