Êèðñàíîâ Ì.Í.
Ðåøåáíèê.Òåîðåòè÷åñêàÿ ìåõàíèêà.
Ì.:ÔÈÇÌÀÒËÈÒ, 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: |
> | ÓÑÊÎÐÅÍÈÅ_ÏÐÈÇÌÛ:=W[3];WD[3](5*t**2); |
> |