Знаходження опорних реакцій та зусиль в стержнях ферми при змінному значенні кута a
При зміні напряму лінії дії сили 
значення опорних реакцій та зусиль в стержнях ферми змінюється. Їх конкретні значення визначимо за допомогою ЕОМ, склавши при цьому програму, наприклад, на мові BASIC. Алгоритм для програми є формули (4.3), (4.5) – (4.17). Значення кута a змінюємо в межах від 0 до 360° з кроком 30°.
Наведемо текст програми, де порядковими номерами 10 – 710 позначені оператори та пояснення до кожного оператора.
10 -30 – коментарі, які друкуються ЕОМ, але не обробляються;
40-120 –задаються значення постійних сил та розмірів;
130-160 – записані формули (4.1), за допомогою яких знаходяться функції кутів b і g;
180 – початок циклу, де вказується, що кут a (позначено U) змінюється від 0 до 360° з кроком 30°;
190-200 – відповідно записані значення sina і cosa в радіанній мірі;
210-590 – записані формули, якими визначаються опорні реакції та зусилля в стержнях;
280 – перевірочний момент (S МС(F)).
600-650 – оператори виведення результатів до друку;
700 – закінчення циклу, відкритого оператором 180;
710 – кінець програми.
Після віддрукованої програми знаходиться фрагмент результатів розрахунків.
10 REM РОЗРАХУНОК ПЛОСКОЇ ФЕРМИ
20 REM ЗРАЗКОВИЙ ПРИКАД ПРОГРАМИ
30 REM ВИКОНАВ СТ. ГР. 1Б-00 ІВАНОВ І. І.
40 P1=3
50 P2=5
60 P3=6
70 A1=3
80 A2=3
90 B1=3
100 B2=3
110 H1=3
120 H2=6
130 S=(A1+B1)/SQR((a1+B1)^2+H2^2)
140 C=SQR(1-S^2)
150 SN=H1/SQR(A1^2+H1^2)
160 CC=SQR(1-SN^2)
170 LPRINT TAB(20) “________РЕЗУЛЬТАТИ РОЗРАХУНКІВ____”
180 FOR U=30 TO 360 STEP 30
190 U1=SIN(U*PI/180)
200 U2=COS(U*PI/180)
210 R1=P1*H1+P3*U1*(A1+B1+B2+A2)
220 R2=P3*U2*H1+P2*(A1+B1+B2)
230 RB=(R1+R2)/((A1+B1)*C)
240 YA=P2+P3*U1-RB*C
250 XA=-RB*S-P1-P3*U2
260 M1=P2*A2-YA*(A1+B1+B2+A2)+XA*H1
270 M2=-RB*C*(B2+A2)+RB*S*H1
280 MC=M1+M2
290 S1=-YA/SN
300 S8=-XA-S1*CC
400 S7=S8
500 S9=0
510 SD=-S1-S9/SN
520 S2=(S1-SD)*CC-P1
530 S0=-RB*C-SD*SN
540 S6=S7+SD*CC-RB*S
550 SW=-S0/SN
560 S3=S2-SW*CC
570 S5=SW+S6/CC
580 TS=-(S5+SW)*SN
590 S4=P3*U2-S5*CC
600 PRINT TAB(6) “___________U=”U”___________________________”
610 PRINT TAB(6) “XA=”; XA; TAB (17) “YA=”; YA;TAB(28)”RB=”;RB;TAB(40)”MC=”;MC
620 PRINT TAB(6)”S1=”;S1;TAB(17);”S2=”;
S2;TAB(28)”S3=”;S3;TAB(40)”S4=”;S4
630 PRINT TAB(6)”S5=”;S5;TAB(17);
”S5=”;S5;TAB(28)”S7=”;S7;TAB(40)”S8=”;S8
640 PRINT TAB(6)”S9=”;S9;TAB(17);”SD=”;
SD;TAB(28)”SO=”;SO;TAB(40)”SW=”;SW
645 PRINT TAB(6)”TS=”;TS
650 PRINT
700 NEXT U
710 END
___________РЕЗУЛЬТАТИ РОЗРАХУНКІВ __________
______________________________________U=30_______________________________________
XA=-25.79422 YA=-9.598076 RB= 24.88743 MC=-3.814697E-06
S1=13.57373 S2= 16.19616 S3= 8.196156 S4= 8.196156
S5=-4.242644 S6=-11 S7= 16.19615 S8= 16.19615
S9= 0 SD=-13.57373 SO=-8 SW= 11.31371
TS=-4.999998
______________________________________U=120_______________________________________
XA=-17.89 YA=-7.70 RB= 25,30
S1=10.88 S2= 12.39 S3= 2.20 S4= 2.20
S5=-7.35 S6=-15.39 S7= 10.20 S8= 10.20
_________________________________U=360 _________________________________________
XA=-21 YA=-7.000001 RB= 16.97056 MC= 3.814697E-06
S1= 9.899497 S2= 11 S3= 6.000003 S4= 6.000002
S9= 0 SD=-9.899497 SO=-5 SW= 7.071069
TB=-4.999999