scalar m=4[ kg ];
scalar a=0.5[ m ];
scalar b=0.7[ m ];
scalar alpha=45[ deg ];
scalar beta=45[ deg ];
point O=point( 0 [ m ], 0 [ m ], 0 [ m ], pointStyle = thickdot: );
scalar scalar6=0.49497474683058326708059105347339[ m ];
scalar scalar7=0.49497474683058326708059105347339[ m ];
point B=point( 0.49497474683058326708059105347339[ m ], 0.49497474683058326708059105347339[ m ], 0 [ m ], pointStyle = thickdot: );
point A=point( 0.35355339059327376220042218105242 [ m ], -0.35355339059327376220042218105242 [ m ], 0 [ m ], pointStyle = thickdot: );
line line2=polyLine( list( B, O, A ) );
color color1=RGB( 1, 0, 0 );
body body1=body( color = color1 );
body body1 < ( O, B, A, line2 );
solid solid1=sphere( A, 0.1 [ m ], mass = m );
body body1 < ( solid1 );
gravity gravity1=parallel( reverse( projectY ) );
point point4=point( 0 [ m ], 0 [ m ], 0 [ m ], pointStyle = thickdot: );
color color2=RGB( 1, 0, 0 );
body body2=body( color = color2 );
set ground = body2;
body body2 < ( point4 );
node node1=nodePoint( point4 );
joint joint2=user( body1, body2, node1, noX:, noY:, noZ:, noFiX:, noFiY:, yesFiZ: );
point O1=point( 3 [ m ], 0 [ m ], 0 [ m ], pointStyle = thickdot: );
body body2 < ( O1 );
point O2=point( -1 [ m ], 1 [ m ], 0 [ m ], pointStyle = thickdot: );
body body2 < ( O2 );
line line3=polyLine( list( O, O1 ), lineStyle = dash: );
scalar scalar8=0.7[ m ]*sqrt(2)/1.25-1[m];
scalar scalar9=0.14[ m ]*sqrt(2)+1[m];
point K=point( -0.20804040507106677267105431444257 [ m ], 1.1979898987322333068322364213894 [ m ], 0 [ m ], pointStyle = thickdot: );
point P=point( 1.6666666666666666666666666666667 [ m ], 1.6666666666666666666666666666667 [ m ], 0 [ m ], pointStyle = thickdot: );
point O2_HLP=move( O2, projectX, 0 [ m ], pointStyle = thickdot: );
line line7=polyLine( list( O2_HLP, K ) );
line line8=polyLine( list( K, P ), lineStyle = dash: );
line line10=polyLine( list( B, P ), lineStyle = dash: );
point C=point( 1.6666666666666666666666666666667 [ m ], -0.67671717300550013250548455971988 [ m ], 0 [ m ], pointStyle = thickdot: );
line line11=polyLine( list( K, B, C ) );
line line12=polyLine( list( P, C ), lineStyle = dash: );
point D=move( C, projectX, 3 [ m ], pointStyle = thickdot: );
point E=move( B, projectX, 3 [ m ], pointStyle = thickdot: );
line line15=polyLine( list( B, E ) );
line line16=polyLine( list( E, O1 ) );
point HLP=move( D, projectX, 0.5 [ m ], pointStyle = thickdot: );
line line17=polyLine( list( C, D, HLP ) );
point K_HLP=move( K, projectX, 0 [ m ], pointStyle = thickdot: );
point B_HLP=move( B, projectX, 0 [ m ], pointStyle = thickdot: );
point C_HLP=move( C, projectX, 0 [ m ], pointStyle = thickdot: );
point B_HLP_1=move( B, projectX, 0 [ m ], pointStyle = thickdot: );
point E_HLP=move( E, projectX, 0 [ m ], pointStyle = thickdot: );
point E_HLP_1=move( E, projectX, 0 [ m ], pointStyle = thickdot: );
color color3=RGB( 1, 0, 0 );
color color4=RGB( 1, 0, 0 );
color color5=RGB( 1, 0, 0 );
color color6=RGB( 1, 0, 0 );
color color7=RGB( 1, 0, 0 );
point O1_HLP=move( O1, projectX, 0 [ m ], pointStyle = thickdot: );
color color8=RGB( 1, 0, 0 );
color color9=RGB( 131, 1, 27 );
color color15=RGB( 1, 0, 0 );
body body9=body( color = color9 );
body body9 < ( K, line11, B_HLP_1, E_HLP, D );
color color10=RGB( 75, 13, 145 );
body body10=body( color = color10 );
body body10 < ( B_HLP, E, line15 );
color color11=RGB( 172, 160, 13 );
joint joint5=rotational( body1, body9, B, projectZ );
joint joint6=rotational( body1, body10, B, projectZ );
point HLP_1=move( HLP, projectX, 0 [ m ], pointStyle = thickdot: );
body body2 < ( HLP_1 );
body body14=body( color = RGB( 255, 255, 102 ) );
body body14 < ( O2_HLP, line7, K_HLP );
joint joint11=rotational( body14, body2, O2, projectZ );
joint joint12=rotational( body14, body9, K, projectZ );
color color14=RGB( 24, 10, 84 );
color color12=RGB( 1, 0, 0 );
body body3=body( color = color12 );
body body3 < ( O1_HLP, E_HLP_1, line16 );
joint joint7=rotational( body3, body10, E, projectZ );
joint joint8=rotational( body2, body3, O1, projectZ );
color color13=RGB( 1, 0, 0 );
body body4=body( color = color13 );
body body4 < ( C_HLP, line17, HLP );
joint joint9=rotational( body9, body4, C, projectZ );
joint joint15=rotational( body4, body2, HLP, projectZ );
sensor Force=jointForce( force:, body2, HLP, projectX, joint15 );
sensor Force_analit=a*m*9.8[ m/ s2 ]*sin(beta)*cos(alpha)/(b*sin(alpha+beta));
function function2(Force[ N ],Force_analit[ N ])=#Force-#Force_analit;
sensor Force_delta=function2(Force , Force_analit);
function force_delta_rel(Force_delta[ N ],Force_analit[ N ])=#Force_delta/#Force_analit;
sensor Force_delta_rel=force_delta_rel(Force_delta ,Force_analit );
joint joint4=contactPointPoint( HLP, HLP_1 );

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