13-6-3.html

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

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

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

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

13.6. Задача 3

:

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

Warning, the names arrow and changecoords have been redefined

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

>

WD[3]:=proc(xx)       local i,dt,tn,p,p1,p11,K,p13,p2,p3,p4,p5,p9,p91,p92,alpha,beta:       alpha:=Pi/6: beta:=Pi/3:       tn:=0.65: K:=12: dt:=tn/K:       for i from 0 to K do p:=pieslice([0+2*eval(xx,t=i*dt),0],3,0..alpha,color=white):   p1:=textplot([3.7+2*eval(xx,t=i*dt),0.7,»30″],align={ABOVE,RIGHT},color=red):    p2:=pieslice([25+2*eval(xx,t=i*dt),0],3,Pi..Pi-beta,color=white): p3:=textplot([21.7+2*eval(xx,t=i*dt),1.5,»60″],align={ABOVE,LEFT},color=red):      p4:=textplot([-1,15,»Задача 3″],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..28,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({   КОЛЕСО(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),                              КОЛЕСО(18.59+2*eval(xx,t=i*dt),10.17,3.2,green),                    КОЛЕСО(18.59+2*eval(xx,t=i*dt),10.17,2.1,green),                              p,p1,p2,p3,p4,p11,p13,p9,p91,p92,                             ЛИНИЯ(7-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),5.95-eval(xx,t=i*dt)*tan(alpha),17.49+2*eval(xx,t=i*dt),(17.49-7)*tan(alpha)+5.95,1),                           ЛИНИЯ(21.52+2*eval(xx,t=i*dt),11.51,25.5-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),(-25.5+21.52+eval(xx,t=i*dt))*tan(beta)+11.51,1),                             КОЛЕСО(7-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),5.95-eval(xx,t=i*dt)*tan(alpha),1.58,pink),                             ТОЧКА(7-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),5.95-eval(xx,t=i*dt)*tan(alpha)),                            ТОЧКА1(18.59-1.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),10.17-1.7*sin(eval(xx,t=i*dt))),                            ТОЧКА1(18.59-2.8*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),10.17-2.8*sin(eval(xx,t=i*dt))),                            ТОЧКА1(18.59+1.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),10.17+1.7*sin(eval(xx,t=i*dt))),                            ТОЧКА1(18.59+2.8*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),10.17+2.8*sin(eval(xx,t=i*dt))),                         ТОЧКА1(18.59+1.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),10.17-1.7*cos(eval(xx,t=i*dt))),                            ТОЧКА1(18.59+2.8*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),10.17-2.8*cos(eval(xx,t=i*dt))),                             ТОЧКА1(18.59-1.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),10.17+1.7*cos(eval(xx,t=i*dt))),                         ТОЧКА1(18.59-2.8*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),10.17+2.8*cos(eval(xx,t=i*dt))),  ТОЧКА(18.59+2*eval(xx,t=i*dt),10.17),                           ГРУЗ(8.7-2*eval(xx,t=i*dt)+eval(xx,t=i*dt),27.22+1.7*eval(xx,t=i*dt),11.7-2*eval(xx,t=i*dt)+eval(xx,t=i*dt),21.72+1.7*eval(xx,t=i*dt),-beta),  А(25.85-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),tan(beta)*(3.7+eval(xx,t=i*dt))), B(15.59+2*eval(xx,t=i*dt),13.17),C(5-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),7.95-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..K)],out1): end proc:

>