13-8-1A.html | AcademiaXXI

Кирсанов М.Н.

Решебник.Теоретическая механика.

 М.:ФИЗМАТЛИТ, 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,A10,0),translate(P2,0,A10,0));*

> od:

Изображение механизма в движении

>    PP:=display(seq(P[i],i=1..K),insequence=true,
                             thickness=2,
                             scaling=constrained,
                             axes=none):

Warning, the name changecoords has been redefined

Warning, the name arrow has been redefined

`>`	display(PP,Опора);

>