x: =-m2 * xs2a; x: =-m3 * xs3a;: =-Js2 * e2; y: =-m2 * ys2a; y: =-m3 * ys3a;: =-Js3 * e3;: = 9.81 * m2;: = 9.81 * m3; n: = 4; [1]: = -1 * (fu2x + fu3x + fx); [2]: = -1 * (fu2y-g2 + fu3y-g3 + fy); [ 3]: = -1 * (mu2 + (xs2-xb) * (fu2y-g2) - (ys2-yb) * fu2x); [4]: ​​= -1 * (mu3 + (xs3-xb) * (fu3y-g3 ) - (ys3-yb) * fu3x + (xd-xb) * fy - (yd-yb) * fx); k: = 1 to n-1 do begin: = abs (a [k, k]); im: = k; i: = k +1 to n dom ; k then beginj: = k to n do begin: = a [k, j]; [k, j]: = a [im, j]; [im, j]: = s;;: = b [k] ; [k]: = b [im]; [im]: = s;;: = a [k, k]; j: = k to n do a [k, j]: = a [k, j]/ d; b [k]: = b [k]/d; i: = k +1 to n do begin: = a [i, k]; j: = k to n do [i, j]: = a [ i, j] - d * a [k, j]; [i]: = b [i] - d * b [k];; end; a [n, n] = 0 then;; [n]: = b [n]/a [n, n]; [n, n]: = 1; [n]: = b [n]; i: = (n-1) downto 1 do begin: = 0; for j: = i +1 to n do: = s + a [i, j] * x [j]; [i]: = b [i] - s;; x: = x [1]; F12y: = x [2 ]; F03x: = x [3]; F03y: = X [4]; (f2, 'Kyrsovoi proekt'); (f2, 'Silovoi ras4et grupp Assura'); (f2, 'Isxodnie dannie'); (f2, 'Xa =', xa: 5:3, 'Ya =', ya: 4:2, 'Xb =', xb: 5:3, 'Yb =', yb: 5:3, 'Xc =',: 3:1, 'Yc =', yc: 1:0, 'Xd =', xd: 5:3); (f2, 'Yd =', yd: 5:3, 'Xs2 =', xs2: 5: 3, 'Ys2 =', ys2: 5:3, 'Xs3 =', xs3: 3:1,
'Ys3 =', ys3: 4:2, 'Xs2a =', xs2a: 5:3, 'Ys2a =', ys2a: 5:3, 'Xs3a =', xs3a: 5:3); (f2 , 'Ys3a =', ys3a: 5:3, 'M2 =', m2: 3:0, 'M3 =', m3: 3:0, 'Js2 =', js2: 1:0, 'Js3 =', js3: 1:0); (f2, 'e2 =', e2: 4:2, 'e3 =', e3: 5:3, 'Fx =', fx: 4:0, 'Fy =', fy: 4:0); (f2, 'Naidennie parametri'); (f2, 'F12x =', F12x: 5:2, 'F12y =', F12y: 5:2, 'F03x =', F03x: 5:2, 'F03y =', F03y: 5:2); (f1); close (f2); until keypressed
end.
7. Результати роботи програми
Xa = 0.075 Ya = 0.13 Xb = 0.503 Yb = 0.348 Xc = 0.7 Yc = 0 Xd = 1.048 = 0.197 Xs2 = 0.289 Ys2 = 0.239 Xs3 = 0.7 Ys3 = 0.15 Xs2a = -0.104 Ys2a = - 0.112 Xs3a = 0.061a = -0.006 M2 = 480M3 = 200 Js2 = 1 Js3 = 2 = 0.12 e3 = 0.404 Fx = 1000 Fy = 1000parametrix = 1317.57 F12y = 3011.05 F03x = -2355.29 F03y = 2604.79
8. Аналіз результатів
В результаті роботи програми, з використанням силового розрахунку групи Ассура 1-го виду, були визначені реакції F 12x , F 12y , F 03x , F 03y .
F
