scalar R=1[ m ];
scalar m=1[ kg ];
scalar f=0.15;
point O=point( 0 [ m ], 0 [ m ], 0 [ m ] );
line ring=circle( O, projectZ, R );
point A=point( 0.990e+000 [ m ], 0 [ m ], 0 [ m ] );
solid math_point=sphere( A, 0.01 [ m ], mass = m );
body body1=body( color = RGB( 229, 229, 229 ) );
set ground = body1;
body body1 < ( ring, O );
body body2=body( color = RGB( 255, 153, 153 ) );
body body2 < ( math_point, A );
gravity gravity2=parallel( reverse( projectY ) );
scalar v0=5.3[ m/ s ];
condition condition=transVelocity( body1, reverse( projectY ), body2, A, v0 );
vector vect_V=vector( 0 [ m ], -1 [ m ], 0 [ m ] );
body body2 < ( vect_V );
sensor v=transVelocity( body1, vect_V, body2, A, fixingVector = unlockVector: );
function function(N[ N ],v[m/s])=f*#N*sign(#v);
sensor w=rotVelocity( body1, projectZ, body2 );
joint joint1=rotational( body1, body2, O, projectZ );
sensor N=jointForce( force:, body2, A, projectX, joint1 );
sensor N1=prevValue( N );
force force1=force( body2, A, reverse( projectY ), function, list( N1, v ) );
event event1=reformsBySensor( list( stop(  ) ), w, 0[rad/s], work = on: );
point B=point( -1 [ m ], 0 [ m ], 0 [ m ] );
vector vector_OA=vectorPP( O, A );
vector vector_OB=vectorPP( O, B );
sensor angle=angleVV( vector_OA, vector_OB );
command command=boundaryProblem( list( v0 ), list( w ), list( 0.0  [ rad/ s ] ), 0.0001, 0.0001, 100, comDynamics );

/\///////////////////////////////////////////////////////////////////////////////////
/\   Единицы измерения;
set units = SI;