* m +1)
Головний програма для обчислення значень функцій і побудови епюр
program sopr2sopr (8) :: V (nm), t (nm), mom (nm), sil (nm) (1) = 0; h = a/(m-1)! завдання сітки x
do i = 2, nm; if (((i-1)/m) * m == i-1) then (i) = x (i-1); else; x ( i) = x (i-1) + h
! print *, t0
do i = 1, nm! цикл для обчислення значень функцій
print *, v! висновок значень прогинів **, t! висновок значень кутів повороту
Для побудови епюр використовується підпрограма побудови графіків
subroutine cls (isc) dflib (qwinfo) qww (isc, file = 'user'); qww.type = 2 = setwsizeqq (qwin $ framewindow, qww) = setbkcolor (15); call clearscreen (0) = setwsizeqq (isc, qww) = settextcolor (0); i = setbkcolor (7)
$ real: 8plot (x1, y1, n1, jlp, ilp, jrp, irp) dflib :: x1 (n1), y1 (n1); type (wxycoord)
end
ДОДАТОК 2
Програма для розв'язання систем канонічних рівнянь
Нижче наводиться програма в Mathcad для розв'язання систем канонічних рівнянь записаних в матричному вигляді, за методом зворотної матриці.
.
ДОДАТОК 3
прогин балка епюра профіль
Програма для розрахунку нормальних напружень в плоскій рамі
Нижче наведена програма в Mathcad для розрахунку нормальних напружень в плоскій рамі при чистому вигині.
В
