color grey=RGB( 128, 128, 128 );
color black=RGB( 0, 0, 0 );
scalar m=2[kg];
scalar l=0.5[m];
scalar T=9.810000e+000 [N];
scalar g=9.810000e+000 [ m/ s2 ];
scalar theor_R=sqrt(m*m*g*g + T*T);
scalar theor_alpha=arctg(2*T/(m*g))* 1[rad];
gravity gravity=parallel( reverse( projectY ), g = g );
point point_B=point( 0 [ m ], 0 [ m ], 0 [ m ], pointStyle = dot: );
point point_O=move( point_B, projectY, 2*l, visible = show: );
point point_A=point( 0 [ m ], 0 [ m ], 0 [ m ] );
line wall=polyLine( list( point_B, point_O ), color = grey );
solid solid1=cylinder( point_A, point_O, 0.01 [ m ], mass = m, color = black );
body inert=body( color = grey );
set ground = inert;
body inert < ( wall );
body tool=body( color = black );
body tool < ( solid1, point_A );
force force_T=force( tool, point_A, projectX, T, list(  ), fixing = unlock: );
joint joint1=rotational( inert, tool, point_O, projectZ );
sensor sensor1=jointForce( force:, tool, point_O, projectY, joint1 );
sensor sensor2=jointForce( force:, tool, point_O, projectX, joint1 );
sensor sensor3=sqrt(sensor1*sensor1 + sensor2*sensor2);
sensor AbsTol_R=abs(theor_R - sensor3);
sensor abs_alpha=abs(joint1.gamma - theor_alpha);

/\///////////////////////////////////////////////////////////////////////////////////
/\   Единицы измерения;
set length = m;
set angle = deg;
set mass = kg;
set time = s;
set force = N;
set work = J;
set pressure = Pa;
set power = W;
set frequency = Hz;
set temperature = K;
set current = A;
set voltage = V;
set resistance = Ohm;
set capacity = F;
set charge = C;
set induction = T;