scalar g=9.81[m/ s2];
scalar r=0.1[m];
scalar l=1[rad2];
point O=point( 0 [ m ], 0 [ m ], 0 [ m ] );
point O1=point( 0 [ m ], 0 [ m ], 0 [ m ] );
point point2=point( 0.0001 [ m ], 0.1 [ m ], 0 [ m ] );
line line2=circle( point2, projectZ, 0.1 [ m ] );
color color2=RGB( 229, 229, 229 );
body Ground=body( color = color2 );
set ground = Ground;
body Ground < ( O );
color color1=index( 52 );
body body1=body( color = color1 );
body body1 < ( line2, point2, O1 );
solid solid2=extrude( line2, point( 0 [ m ], 0 [ m ], 0.001 [ m ], visible = hide: ),
	point( 0 [ m ], 0 [ m ], -0.001 [ m ], visible = hide: ), mass = 1[ kg ] );
body body1 < ( solid2 );
joint joint1=contactPointPoint( O, O1, work = on: );
vector vector5=vectorPP( O, point2 );
sensor Angle=angleVV( vector5, projectY );
sensor X_reaction=jointForce( force:, body1, O, projectX, joint1 );
sensor Y_reaction=jointForce( force:, body1, O, projectY, joint1 );
sensor Angle_speed=rotVelocity( Ground, projectZ, body1, fixingVector = lockVector: );
event event1=reformsBySensor( list( stop(  ) ), Y_reaction, 0 [N], work = on: );
gravity gravity1=parallel( reverse( projectY, visible = hide: ) );
sensor AngleTheor=0.9625[rad];
sensor Angle_speedTheor=2*sqrt((g*l)/(7*r));
sensor Angle_speedTheor_delta_rel=(Angle_speed-Angle_speedTheor)/Angle_speedTheor;
sensor AngleTheor_delta_rel=(Angle-AngleTheor)/AngleTheor;

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