Асимметричный волчок

В вышеприведенной команде опция points дает количество кадров в единичном интервале времени, а опция frames - полное число кадров.

Вы можете, изменяя углы, начальную угловую скорость, точку подвеса и даже сам объект получать различные движения.

Используя асимметричный (эллиптический) конус или эллипсоид можно продемонстрировать движение cимметричного волчка.

> Type:=gyroscope;
Object:=ellipsoid;
Axes:=[3,5,8];
Mass:=rho*physics[body_inert](m,Axes,object=Object,'volume');
Center:=[0,0,Axes[3]];
Angles:=[Pi/6,0,0];
gravity:=980;
Velocity:=[3,3,300];

Геометрия задачи.

> motion(Axes,[op(Center),op(Angles)],Velocity,type=Type,object=Object,static,

style=contour,contours=20,axes=normal,scaling=constrained,labels=[r1,r2,r3],

abelfont=[TIMES,BOLD,14]);

Закрепленная точка (начало лабораторной системы координат) совпадает с нижней точкой большей оси эллипсоида.

Уравнения движения асиммметричного волчка-эллипсоида после подстановки численных значений параметров

> motion(Axes,[op(Center), op(Angles)], Velocity, type=Type, object=Object, equations);

Строим движение центра инерции в пространстве

> motion(Axes,[op(Center), op(Angles)], Velocity, type=Type, object=Object, spaceplot, frames=80, points=40);

Генерируем анимацию движения гироскопа

> motion(Axes,[op(Center),op(Angles)],Velocity,type=Type,

object=Object,style=patchcontour, lightmodel=`light4`,shading=`zhue`,frames=50,points=30,scaling=constrained);

• Анимация.