13-6-2.html | AcademiaXXI

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

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

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

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

13.6. Задача 2

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

Warning, the names arrow and changecoords have been redefined

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

>    WD[2]:=proc(xx)
      local i,dt,tn,p,p1,p11,p2,p3,p4,p5,p13,p9,p91,p92,alpha,beta:
      alpha:=Pi/6: beta:=Pi/4:
      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): p11:=plot({[[-2*eval(xx,t=i*dt),0],[26-2*eval(xx,t=i*dt),0]]},x=-10..30,color=black,thickness=3):
p2:=textplot([3.3-2*eval(xx,t=i*dt),0.6,»30″],align={ABOVE,RIGHT},color=red):p3:=pieslice([25.78-2*eval(xx,t=i*dt),0],3,Pi..Pi-beta,color=white): p4:=textplot([22.7-2*eval(xx,t=i*dt),1.3,»45″],align={ABOVE,LEFT},color=red):p5:=textplot([-1,15,»Задача 2″],align={ABOVE,RIGHT},color=blue):
p13:=plot({[-10,-1.1],[27,-1.1]},x=-10..27,color=black,thickness=2): p9:=plot({[[26-2*eval(xx,t=i*dt),0],[30-2*eval(xx,t=i*dt),0]]},x=26..30,color=gold): p91:=line([28-2*eval(xx,t=i*dt),0.5],[26-2*eval(xx,t=i*dt),0],color=gold): p92:=line([28-2*eval(xx,t=i*dt),-0.5],[26-2*eval(xx,t=i*dt),0],color=gold):                                                 q||i:=display({                              ЛИНИЯ(0-2*eval(xx,t=i*dt),0,(25*tan(beta))/(tan(alpha)+tan(beta))-2*eval(xx,t=i*dt),10*tan(beta),3),
ЛИНИЯ((25*tan(beta))/(tan(alpha)+tan(beta))-2*eval(xx,t=i*dt),10*tan(beta),26-2*eval(xx,t=i*dt),((25*tan(beta))/(tan(alpha)+tan(beta))-26)*tan(beta)+10*tan(beta),3),
КОЛЕСО(16.64-2*eval(xx,t=i*dt),7.9,3,green),                              КОЛЕСО(5+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),3.39+(3+eval(xx,t=i*dt))*(tan(beta))/(tan(alpha)+tan(beta)),1,pink),                            КОЛЕСО(5+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),3.39+(3+eval(xx,t=i*dt))*(tan(beta))/(tan(alpha)+tan(beta)),1.8,pink),                             ТОЧКА(5+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),3.39+(3+eval(xx,t=i*dt))*(tan(beta))/(tan(alpha)+tan(beta))),
ЛИНИЯ(5.5+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),4.4+eval(xx,t=i*dt)*(tan(beta))/(tan(alpha)+tan(beta)),15.3-2*eval(xx,t=i*dt),(15.3-5.5)*(tan(beta))/(tan(alpha)+tan(beta))+4.4,1),                              ЛИНИЯ(18.78-2*eval(xx,t=i*dt),9.99,22.5-eval(xx,t=i*dt),(-3.72-eval(xx,t=i*dt))*tan(beta)+9.99,1),                              ТОЧКА1(16.64+2.5*cos(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),7.9-2.5*sin(eval(xx,t=i*dt))),                              ТОЧКА1(16.64-2.5*cos(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),7.9+2.5*sin(eval(xx,t=i*dt))),                              ТОЧКА1(16.64+2.5*sin(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),7.9+2.5*cos(eval(xx,t=i*dt))),                             ТОЧКА1(16.64-2.5*sin(eval(xx,t=i*dt))-2*eval(xx,t=i*dt),7.9-2.5*cos(eval(xx,t=i*dt))), ТОЧКА(16.64-2*eval(xx,t=i*dt),7.9),                    КОЛЕСО(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),       p1,p2,p3,p4,p5,p11,p13,p9,p91,p92,                           ГРУЗ(11.45+1.41*eval(xx,t=i*dt)-1.5*eval(xx,t=i*dt),22.44-1.4*eval(xx,t=i*dt),13.45+1.41*eval(xx,t=i*dt)-1.5*eval(xx,t=i*dt),18.24-1.4*eval(xx,t=i*dt),-beta),                             А((39*tan(beta))/(tan(alpha)+tan(beta))+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),7.5*tan(beta)-eval(xx,t=i*dt)),
B(14.64-2*eval(xx,t=i*dt),11.9), C(3+eval(xx,t=i*dt)-2*eval(xx,t=i*dt),5.39+(3+eval(xx,t=i*dt))*(tan(beta))/(tan(alpha)+tan(beta))),                                                                                   F(28.5-2*eval(xx,t=i*dt),0.5)                                               },scaling=constrained);
      end do:
display([seq(q||i,i=0..40)],out1):
end proc:

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

>