point gr1=point( 0 [ m ], 0 [ m ], 0 [ m ] );
point gr3=point( 1 [ m ], 0 [ m ], 0 [ m ] );
point gr2=point( 0 [ m ], 1 [ m ], 0 [ m ] );
point p1=point( 0.5 [ m ], 0.5 [ m ], 0 [ m ] );
plane plane1=planePPP( gr1, gr2, gr3, l1 = 2 [ m ], l2 = 0.5 [ m ] );
body grnd=body(  );
set ground = grnd;
body grnd < ( plane1, gr1, gr2, gr3, p1 );
point c1=point( 0 [ m ], 0 [ m ], -1 [ m ] );
node n1=nodePoint( c1 );
solid b1=box( n1, 1 [ m ], 1 [ m ], 1 [ m ], visible = hide: );
point c2=point( 0 [ m ], 0 [ m ], -0.99 [ m ] );
node n2=nodePoint( c2 );
solid b2=box( n2, 0.99 [ m ], 0.99 [ m ], 1 [ m ], visible = hide: );
solid b=subtraction( b1, b2, mass = 1 [ kg ] );
body box1=body(  );
body box1 < ( b, b1, b2, c1, c2, n1, n2 );
point p=point( 0.5 [ m ], 0.5 [ m ], -0.5 [ m ] );
body box1 < ( p );
point pp=point( 0.5 [ m ], 0.5 [ m ], -1.5 [ m ] );
body box1 < ( pp );
joint j=spherical( grnd, box1, p );
vector vg=vector( 0 [ m ], 0 [ m ], -1 [ m ] );
vector v1=vectorPP( p, pp );
vector v2=vectorPP( p1, p );
sensor s=angleVV( v1, v2 );
gravity gravity1=parallel( vg );
force force1=damperComplex( box1, p, grnd, p, 0 [ kg/ s ], 1 [ kg m2/ s rad ] );

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