Êèðñàíîâ Ì.Í.
Ðåøåáíèê.Òåîðåòè÷åñêàÿ ìåõàíèêà.
Ì.:ÔÈÇÌÀÒËÈÒ, 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](5*t**2); |
> |