Скольжение полусферы

Достаточно изменить тип движения и мы сможем наблюдать анимацию скольжения полусферы на абсолютно гладкой плоскости

> Type:=slip;

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

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

Анимация скольжения

> motion(Axes,[op(Center),op(Angles)],Velocity,type=Type,object=Object, style=patch, lightmodel=`light4`, shading=`zhue`, frames=60, points=20, scaling=constrained);

>