Кирсанов М.Н.
Решебник.Теоретическая механика.
М.:ФИЗМАТЛИТ, 2002.
Иллюстрации и программы к книге
13.6. Задача 6
:
| > | restart:with(plottools): with(plots): read «stand.m»; |
Warning, the names arrow and changecoords have been redefined
Процедура создания и анимации рисунка задачи 6
| > | WD[6]:=proc(xx) local i,dt,tn,p1,p11,p13,p2,p3,p4,p5,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): 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),0.9,»45″],align={ABOVE,LEFT},color=red): p5:=textplot([-1,18,»Задача 6″],align={ABOVE,RIGHT},color=blue): p11:=plot({[[2*eval(xx,t=i*dt),0],[26+2*eval(xx,t=i*dt),0]]},x=0..30,color=black,thickness=3): p13:=plot({[-1,-1.1],[30,-1.1]},x=-1..35,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],[30+2*eval(xx,t=i*dt),0],color=gold): p92:=line([28+2*eval(xx,t=i*dt),-0.5],[30+2*eval(xx,t=i*dt),0],color=gold): q||i:=display({p1,p2,p3,p4,p5,p11,p13,p9,p91,p92, ЛИНИЯ(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.09+2*eval(xx,t=i*dt),9.99,3.4,green), КОЛЕСО(16.09+2*eval(xx,t=i*dt),9.99,2,green), ТОЧКА(16.09+2*eval(xx,t=i*dt),9.99), КОЛЕСО(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), ЛИНИЯ(5.5-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),7.3-eval(xx,t=i*dt)*(tan(beta))/(tan(alpha)+tan(beta)),14.5+2*eval(xx,t=i*dt),(14.5-5.5)*(tan(beta))/(tan(alpha)+tan(beta))+7.3,1), ЛИНИЯ(17.54+2*eval(xx,t=i*dt),11.39,23.5-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),(-23.5+17.54+eval(xx,t=i*dt))*tan(beta)+11.39,1), КОЛЕСО(6.4-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),4.05+(3-eval(xx,t=i*dt))*(tan(beta))/(tan(alpha)+tan(beta)),1.6,pink), ТОЧКА(6.4-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),4.05+(3-eval(xx,t=i*dt))*(tan(beta))/(tan(alpha)+tan(beta))), ГРУЗ(12.75-1.41*eval(xx,t=i*dt)+1.48*eval(xx,t=i*dt),22.8+1.48*eval(xx,t=i*dt),14.75-1.41*eval(xx,t=i*dt)+1.48*eval(xx,t=i*dt),18.24+1.48*eval(xx,t=i*dt),-beta), ТОЧКА1(16.09-3*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.99-3*sin(eval(xx,t=i*dt))), ТОЧКА1(16.09+1.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.99+1.7*sin(eval(xx,t=i*dt))), ТОЧКА1(16.09+3*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.99+3*sin(eval(xx,t=i*dt))), ТОЧКА1(16.09+1.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.99-1.7*cos(eval(xx,t=i*dt))), ТОЧКА1(16.09-1.7*cos(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.99-1.7*sin(eval(xx,t=i*dt))), ТОЧКА1(16.09-3*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.99+3*cos(eval(xx,t=i*dt))), ТОЧКА1(16.09-1.7*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.99+1.7*cos(eval(xx,t=i*dt))), ТОЧКА1(16.09+3*sin(eval(xx,t=i*dt))+2*eval(xx,t=i*dt),9.99-3*cos(eval(xx,t=i*dt))), А(23.46-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),tan(beta)*(7+eval(xx,t=i*dt))), B(17.09+2*eval(xx,t=i*dt),13.99), C(3.4-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),6.05+(3-eval(xx,t=i*dt))*(tan(beta))/(tan(alpha)+tan(beta))),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[6];WD[6](5*t**2); |
| > |
| > |
