Учебные пакеты

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 7.2. Задача 2 >    restart:read «ris.m»;                Подписи шарниров на рисунке >    nam:=array(1..4,[A,B,C,D]):  nm:=array(1..4,[4,3,6,8]):               Pазмеры         ( cм) >    Ra:=40:ra:=30:Rb:=25:rb:=10: s:=100:a:=1.4:      скорость   >    vc:=36*t^3:                    Координаты >    x[9]:=0: y[9]:=0:   >    x[10]:=s: y[10]:=0:   >    x[4]:=Ra*cos(a): y[4]:=Ra*sin(a):   > …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.8. Задача 5 >    restart:   >    read «ris.m»:   >    a:=30:d:=1:h:=25:b:=22:                     Координаты >      x[1]:=0:y[1]:=0:x[3]:=b:   x[4]:=-b:x[6]:=0:   x[5]:=0:             Количество кадров K   >    K:=12: with(plots):with(plottools):            Создаем все кадры >    for i from 0 to K do   > …

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.8. Пример 2 >    restart:   >    read «ris.m»;                Подписи шарниров на рисунке >    nam:=[O,A,B]:            Pазмеры ( cм) r1:=10: R1:=20:   >    R2:=20: OA:=60: OB:=OA-r1-R2:                 Координаты опоры O >      x[1]:=0:y[1]:=0:                Количество кадров K >    K:=12:with(plots):with(plottools):               Создаем все кадры …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.8. Задача 1 >    restart:   >    with(plots):with(plottools):     Количество кадров   K:=12: >    Маховик:=cylinder([0,0,0],10,6): Стержень:=cuboid([0,0,6],[20,2,8]): Опора:=cuboid([10,-20,-6],[14,20,4]): for i to K do  A:=sin(2*Pi*i/K)*Pi/6:  P1:=display(rotate(PLOT3D(Маховик,ORIENTATION(0,-30)),0,0,A)):   >     P2:=display(rotate(PLOT3D(Стержень),0,0,A)):   >     P[i]:=display(translate(P1,0,A*10,0),translate(P2,0,A*10,0));   >    od:                                  Изображение механизма в движении >    PP:=display(seq(P[i],i=1..K),insequence=true, …

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 8.5. Задача 4    restart:read «ris.m»;                Подписи шарниров на рисунке   nam:=array(1..5,[‘O’,’A’,’C’,’B’,’D’]):                 Начальные значения и размеры ( cм)  AB:=20: OB:=20: OA:=AB+OB: AC:=35:  BD:=30:              Время           T:=pi/18:                      Координаты опор     x[1]:=0:y[1]:=0:     y[5]:=35:x[3]:=-50:        Количество кадров K   K:=12:with(plots):with(plottools):            Создаем все кадры   for i …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.6. Задача 1 :   restart:with(plottools): with(plots): read «stand.m»; Процедура создания и анимации рисунка задачи 1   WD[1]:=proc(xx)       local i,dt,tn,p,p1,p13,p2,p4,p5,p8,p9,p91,p92,alpha,beta,K:       alpha:=Pi/6: beta:=Pi/2:K:=12:       tn:=0.65:  dt:=tn/K:       for i from 0 to K do p:=plot({[[2*eval(xx,t=i*dt),0],[20+2*eval(xx,t=i*dt),0]]},x=0..20,color=black,thickness=3):    p9:=plot({[[20+2*eval(xx,t=i*dt),0],[23+2*eval(xx,t=i*dt),0]]},x=20..2,color=gold):  p91:=line([21+2*eval(xx,t=i*dt),0.5],[23+2*eval(xx,t=i*dt),0],color=gold):  p92:=line([21+2*eval(xx,t=i*dt),-0.5],[23+2*eval(xx,t=i*dt),0],color=gold):  p1:=line([2*eval(xx,t=i*dt),0],[10+2*eval(xx,t=i*dt),10*tan(alpha)],color=black,thickness=3):  p2:=plot({[[20+2*eval(xx,t=i*dt),0],[20+2*eval(xx,t=i*dt),10*tan(alpha)]]},x=10..20,color=black,thickness=3):    p4:=pieslice([2*eval(xx,t=i*dt),0],3,0..alpha,color=white): p5:=textplot([3.3+2*eval(xx,t=i*dt),0.8,»30″],align={ABOVE,RIGHT},color=red):p13:=plot({[-1,-0.8],[35,-0.8]},x=-1..27,color=black,thickness=2):       p8:=textplot([0,12.8,»Задача 1″],align={ABOVE,RIGHT},color=blue):                            q||i:=display({  ГРУЗ(14-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),(10)*tan(alpha)+1.7*1.95,16-eval(xx,t=i*dt)+2*eval(xx,t=i*dt),(10)*tan(alpha),0), …

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