ВУЗ:
Составители:
294
'PRINT "ввод допускаемого напряжения [МПа]"
SIG = 150
'PRINT "ДЛЯ НАЧАЛА ВЫЧИСЛЕНИЙ НАЖМИТЕ F5"
' Расчет напряжений в опасных сечениях
SIGtr = .362 * PP / .378 / X#(3) ^ 2 + .362 * PP * cc / .00385 / X#(3) ^
3
SIGst = .0785 * PP * LL / .0112 / X#(1) ^ 3
SIGrg = .004 * PP * LL / .0112 / X#(2) ^ 3 + .885 * PP / .2565 / X#(2) ^
2
SIGor = .056 * PP * LL / .0112 / X#(1) ^ 3
'PRINT SIGtr; SIGst; SIGrg; SIGor;
IF INQ = 2 THEN GOTO 100
IF INQ = 3 THEN GOTO 200
'ограничений в виде равенств нет
GOTO 300
'ограничения в виде неравенств
100 R#(1) = 1 – SIGtr / SIG
R#(2) = 1 – SIGst / SIG
R#(3) = 1 – SIGrg / SIG
R#(4) = 1 – SIGor / SIG
R#(5) = X#(1) / 100 – 1
R#(6) = 1 – X#(1) / 200
R#(7) = X#(2) / 100 – 1
R#(8) = 1 – X#(2) / 200
R#(9) = X#(3) / 100 – 1
R#(10) = 1 – X#(3) / 200
GOTO 300
'целевая функция
200 R#(11) = 2 * .2565 * X#(1) ^ 2 * (h1 + h2) + .2565 * X#(2) ^ 2 * L +
.378 * X#(3) ^ 2 * L
300 END SUB
Результаты расчета программы 7
Расчет станины вальцев промышленных
------------------------------------------------------------
<<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>
------------------------------------------------------------
OБЩEE ЧИCЛO ПEPEMEHHЫX: 3
OБЩEE ЧИCЛO OГPAHИЧEHИЙ B BИДE: 1).PABEHCTB : 0
2).HEPABEHCTB: 10
BEЛИЧ.OПPEД.PAЗMEP ДEФOPM.MHOГOГPAHHИKA: 5
ЧИCЛO OПPEД.OKOHЧAHИE ПOИCKA: .001
Страницы
- « первая
- ‹ предыдущая
- …
- 292
- 293
- 294
- 295
- 296
- …
- следующая ›
- последняя »
