для мінімального значення Т/F.
29ш Відкриваємо цикл.
3шш Перевірка мінімального елементу та його пере присвоєння, друк мінімального елементу масиву А та його координати.
31ш Закриваємо цикл.
33ш-36ш Друк заголовку таблиці для максимального значення T/F.
37ш Відкриваємо цикл.
38ш Перевірка максимального елементу та його пере присвоєння, друк максимального елементу масиву А та його координати.
39ш Закриваємо цикл
4шш Кінець програми (обчислень).
ТМ-94.00.00.ПЗ | Лист
13
Зм | Лист | № докум | Підпис | Дата
VI. Блок-схема алгоритму
ТМ-94.00.00.Г4.
Зм. | Лист | № докум | Підпис | Дата
Розробив | Розрахунок дотичних
напружень в балці методом поперечних перерізів | Літ. | Масса | Масштаб
Перевірив | у
Т. контр | Лист 14 | Листов
Н. контр
Затв.
ТМ-94.00.00.Г4.
Зм. | Лист | № докум | Підпис | Дата
Розробив | Розрахунок дотичних
напружень в балці методом поперечних перерізів | Літ. | Масса | Масштаб
Перевірив | у
Т. контр | Лист 15 | Листов
Н. контр
Затв.
ТМ-94.00.00.Г4.
Зм. | Лист | № докум | Підпис | Дата
Розробив | Розрахунок дотичних
напружень в балці методом поперечних перерізів | Літ. | Масса | Масштаб
Перевірив | у
Т. контр | Лист 16 | Листов
Н. контр
Затв.
VII. Таблиця ідентифікаторів
Величина
Одиниця
Позначення
Найменування
В розрахунковій залежності
в В-програмі
F
F
Сила
Н
h
h
Висота січення
мм
b
b
Ширина січення
мм
ф
t
Дотичне напруження
MIN ф/F
a
Мінімальне T/F
MAX ф/F
am(am)
Максимальне T/F
z
z
Лічильник циклів
- // -
FM
FM
Координата MIN T/F
мм
Fi
Fi
Координата MAX T/F
мм
ТМ-94.00.00.Г4.
Зм. | Лист | № докум | Підпис | Дата
Розробив | Розрахунок дотичних
напружень в балці методом поперечних перерізів | Літ. | Масса | Масштаб
Перевірив | у
Т. контр | Лист 17 | Листов
Н. контр
Затв.
VIII. Програма мовою BASIC
1ш INPUT F
2ш INPUT K
3ш z=ш
4ш b=ш
5ш f=1шш
6ш h=9ш
7ш DIM A(90/k, 2)
8ш PRINT “******************************************”
9ш PRINT “* T/F * Y *”
1шш PRINT ”******************************************”
11ш FOR Y=-30 T0 60 STEP K
12ш t=2*F/(b*h)*(4/3 + 2*Y/h – 6*Y^2/h^2)
13ш PRINT USING “* ########## * #### *”; t/F; Y
14ш a (z,1)=t/F
15ш a (z, 2) = Y
16ш z=z+1
17ш NEXT Y
18ш PRINT “******************************************”
19ш am = a (0,1)
20ш a = a (0,1)
21ш FOR i=1 TO z-1
22ш IF am < a (i;1) THEN am = a (i;1); tm=i
23ш IF a > a (i;1) THEN a = a (i,1):ti=i
24ш NEXT i
25ш PRINT: PRINT: PRINT
ТМ-94.00.00.ПЗ | Лист
18
Зм | Лист | № докум | Підпис | Дата
26ш PRINT “******************************************”
27ш PRINT “* MINIMUM *”
29ш FOR i=0 TO z-1
3шш IF a (i,1) = a (fi, 1) THEN PRINT USING “* ##.#### * ### *”; a (i,1); a (i,2)
31ш NEXT i
32ш PRINT “****************************************”
33ш PRINT: PRINT
34ш PRINT “****************************************”
35ш PRINT “* MAXIMUM *”
36ш PRINT “****************************************”
37ш FOR i = 0 TO z-1
38ш IF a (i,1) = a (fm,1) THEN PRIN USING “ * ##.#### * ### *”; a (і,1); а (і,2)
39ш NEXT i
4шш PRINT “***************************************”
41ш END
ТМ-94.00.00.ПЗ | Лист
19
Зм | Лист | № докум | Підпис | Дата
ІХ. Розрахунок контрольної точки
Для того, щоб перевірити чи правильно складена В-програма для обчислення дотичних напружень, нам потрібно розрахувати ці дотичні напруження при допомозі калькулятора RODON МК01 хоча б в одній чи вдух точках.
Нехай перша точка у=-30
Нехай друга точка у=15
Подивимось у роздруківку результатів і побачимо, що відношення ф/F в т.у=-30 та у=15 співпали. Звідси можна зробити висновок, що В-програма складена вірно і всі інші результати вірні.
ТМ-94.00.00.ПЗ | Лист
20
Зм | Лист | № докум | Підпис | Дата
Х. Аналіз результатів і висновок.
Аналізуючи отримані результати, ми бачимо, що дотичні напруження виникають по всьому перерізі балки, максимальне значення дотичного напруження виникає по середині січення, тобто у центрі ваги балки, мінімальні значення ф виникають на поверхні.
Звідси можна зробити висновок, що дотичні напруження збільшують своє значення від поверхні до центра ваги балки чи будь-якого іншого тіла.
ХІ. Література
С.Ф.Кукурудз “Алгоритмізація і програмування мовою GW-BASIC”, К.: “НМК ВО”, 1992.
З.М.Крикун “Обчислювальна техніка в інженерних та економічних розрахунках”, М.: “Недра”, 1987.
Г.С.Писаренко, О.Л.Квітка, Е.С.Ушанський “Опір матеріалів”, К.: “Вища школа”, 1993.
М.Н.Іванов “Деталі машин”, М.: “Высшая школа”, 1991.
ТМ-94.00.00.ПЗ | Лист
21
Зм | Лист | № докум | Підпис | Дата