Качение шара внутри сферической поверхности

Изменив опцию type вы можете наблюдать и другие движения, например можно наблюдать движение шара со смещенным центром инерции по плоскости, а поменяв объект на сферу и тип движения на качение по сферической поверхности мы сможем наблюдать качение шара внутри сферической поверхности.

> Type:=sphere_roll; Object:=sphere;

Следующей командой мы задаем радиус внутреннего шара

> Axes:=[1,0,Pi];

а теперь расстояние от центра лабораторной системы координат до центра инерции шара

> Center:=[0,0,5];

В этом типе движения координаты тела и само движение определяют два угла (сферической системы координат).

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

> plots[display](Sphere,motion(Axes,[op(Center),op(Angles)],Velocity,type=Type, object=Object,static, style=patchnogrid,lightmodel=`light4`,shading=`zhue`,contours=30,axes=normal, scaling=constrained,labels=[r1,r2,r3],labelfont=[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=150,points=50);

> plots[display](Sphere, motion(Axes,[op(Center), op(Angles)], Velocity, type=Type, object=Object, style=patchnogrid, lightmodel=`light4`, shading=`zhue`, frames=70,points=30, scaling=constrained));