Êèðñàíîâ Ì.Í.
Ðåøåáíèê.Òåîðåòè÷åñêàÿ ìåõàíèêà.
Ì.:ÔÈÇÌÀÒËÈÒ, 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); |
![[Maple Plot]](images/13-6-62.gif)
| > |
| > |