AcademiaXXI

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.6. Задача 9 :   restart:with(plottools): with(plots): read «stand.m»;   Процедура создания и анимации рисунка задачи 9   WD[9]:=proc(xx)       local i,dt,K,tn,p1,p11,p13,p2,p3,p9,p91,p92,alpha,beta:       alpha:=Pi/4: beta:=Pi/3:       tn:=0.65: K:=12: dt:=tn/K:       for i from 0 to K 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),1.1,»45″],align={ABOVE,RIGHT},color=red):p3:=textplot([0,27,»Задача 9″],align={ABOVE,RIGHT},color=blue): p11:=plot({[[-2*eval(xx,t=i*dt),0],[30-2*eval(xx,t=i*dt),0]]},x=0..30,color=black,thickness=3): p13:=plot({[-10,-1.5],[31,-1.5]},x=-10..31,color=black,thickness=2): p9:=plot({[[30-2*eval(xx,t=i*dt),0],[34-2*eval(xx,t=i*dt),0]]},x=30..34,color=gold):  p91:=line([32-2*eval(xx,t=i*dt),0.5],[30-2*eval(xx,t=i*dt),0],color=gold):  p92:=line([32-2*eval(xx,t=i*dt),-0.5],[30-2*eval(xx,t=i*dt),0],color=gold):                       q||i:=display({p1,p2,p3,p11,p13,p9,p91,p92,                  КОЛЕСО(7-2*eval(xx,t=i*dt),0,1.4,wheat), …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.6. Задача 8 : >    restart:with(plottools): with(plots): read «stand.m»; Процедура создания и анимации рисунка задачи 8   WD[8]:=proc(xx)       local i,dt,tn,p1,p11,p13,K,p2,p3,p4,p5,p9,p91,p92,alpha,beta:       alpha:=Pi/4: beta:=Pi/3:       tn:=0.65: K:=12: dt:=tn/K:       for i from 0 to K 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),1.4,»45″],align={ABOVE,RIGHT},color=red):  p3:=pieslice([25+2*eval(xx,t=i*dt),0],3,Pi..Pi-beta,color=white): p4:=textplot([21.7+2*eval(xx,t=i*dt),1.4,»60″],align={ABOVE,LEFT},color=red): p5:=textplot([0,30,»Задача 8″],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..29,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): …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 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): …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.6. Задача 5 : >    restart:with(plottools): with(plots): read «stand.m»; Процедура создания и анимации рисунка задачи 5 >    WD[5]:=proc(xx)       local i,dt,tn,p,p1,p11,p12,p13,p2,p3,p9,p91,p92,alpha,beta:       alpha:=Pi/6: beta:=Pi/2:       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.9+2*eval(xx,t=i*dt),0.6,»30″],align={ABOVE,RIGHT},color=red):      p3:=textplot([0,15,»Задача 5″],align={ABOVE,RIGHT},color=blue): p11:=plot({[[2*eval(xx,t=i*dt),0],[30+2*eval(xx,t=i*dt),0]]},x=0..30,color=black,thickness=3): p12:=plot({[[2*eval(xx,t=i*dt),0],[15+2*eval(xx,t=i*dt),15*tan(alpha)]]},x=0..15,color=black,thickness=3): p13:=plot({[-1,-1.1],[35,-1.1]},x=-1..39,color=black,thickness=2): p9:=plot({[[30+2*eval(xx,t=i*dt),0],[34+2*eval(xx,t=i*dt),0]]},x=30..34,color=gold):  p91:=line([32+2*eval(xx,t=i*dt),0.5],[34+2*eval(xx,t=i*dt),0],color=gold):  p92:=line([32+2*eval(xx,t=i*dt),-0.5],[34+2*eval(xx,t=i*dt),0],color=gold):   …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.6. Задача 7 : >    restart:with(plottools): with(plots): read «stand.m»;      Процедура создания и анимации рисунка задачи 7 >    WD[7]:=proc(xx)       local i,dt,tn,p,p11,p13,p2,p3,p4,p5,p1,p9,p91,p92,alpha,beta:       alpha:=Pi/6: beta:=Pi/3:       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.5-2*eval(xx,t=i*dt),0.6,»30″],align={ABOVE,RIGHT},color=red):p3:=pieslice([25-2*eval(xx,t=i*dt),0],3,Pi..Pi-beta,color=white):           p4:=textplot([21.7-2*eval(xx,t=i*dt),1.4,»60″],align={ABOVE,LEFT},color=red):p5:=textplot([-1,22,»Задача 7″],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({[-10,-1.1],[30,-1.1]},x=-10..30,color=black,thickness=2): p9:=plot({[[25-2*eval(xx,t=i*dt),0],[29-2*eval(xx,t=i*dt),0]]},x=25..29,color=gold):  p91:=line([27-2*eval(xx,t=i*dt),0.5],[25-2*eval(xx,t=i*dt),0],color=gold):  p92:=line([27-2*eval(xx,t=i*dt),-0.5],[25-2*eval(xx,t=i*dt),0],color=gold):                                 q||i:=display({p1,p2,p3,p4,p5,p11,p13,p9,p91,p92, …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.6. Задача 4 : >    restart:with(plottools): with(plots): read «stand.m»; Warning, the names arrow and changecoords have been redefined Процедура создания и анимации рисунка задачи 4 >    WD[4]:=proc(xx)       local i,dt,tn,p,p11,p13,p1,p2,p9,p91,p92,alpha,beta:       alpha:=Pi/6: beta:=Pi/2:       tn:=0.65:  dt:=tn/40:       for i from 0 to 40 do p:=pieslice([-2*eval(xx,t=i*dt),0],2,0..alpha,color=white):   p1:=textplot([2.7-2*eval(xx,t=i*dt),0.55,»30″],align={ABOVE,RIGHT},color=red): …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 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): …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 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): …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.6. Задача 10 : >    restart:with(plottools): with(plots): read «stand.m»;   Процедура создания и анимации рисунка задачи 10 >    WD[10]:=proc(xx)       local i,dt,tn,p1,p11,p13,p2,p3,p4,p5,p9,p91,p92,alpha,beta:       alpha:=Pi/4: beta:=Pi/6:       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),1.3,»45″],align={ABOVE,RIGHT},color=red):p3:=pieslice([25+2*eval(xx,t=i*dt),0],3,Pi..Pi-beta,color=white): p4:=textplot([21.7+2*eval(xx,t=i*dt),0.5,»30″],align={ABOVE,LEFT},color=red):p5:=textplot([0,23,»Задача 10″],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..29,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({p1,p2,p3,p4,p5,p13,p11,p9,p91,p92, …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.5. Пример 3   restart:   with(plottools): with(plots):     Количество кадров и размеры   K:=12:a:=50:R:=10:h:=30: L:=35: Диск1:=cylinder([0,0,0],R,h): Диск2:=cylinder([0,0,-5],R,3): Ось:=cylinder([0,0,-6],1,7): Стержень:=cuboid([-2,0,h/2-1],[2,a+2,h/2+1]): Поршень:=cuboid([R,0,0],[-h,h,h]): Опора:=cuboid([R,50,-6],[1+R,150,h+6]): for i to K do  A:=sin(2*Pi*i/K)*Pi/14+6:  P1:=display(rotate(PLOT3D(Диск1,ORIENTATION(0,-30)),0,0,A)):  P2:=display(rotate(PLOT3D(Диск2),0,0,-A*a/R*cos(A)+A),Ось):        P3:=display(rotate(PLOT3D(Стержень),0,0,A)):    F:=arrow([0,-L,0],color=red):        P[i]:=display(translate(P1,0,R*A,0),    translate(P2,a*sin(A),a*cos(A)+R*A,h/2),    translate(P3,0,R*A,0),    translate(F,-10,R+h+L+a*cos(A)+R*A,h/2),    translate(Поршень,0,R+a*cos(A)+R*A,0));     od:                                  Изображение механизма в движении      …