WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!


Pages:     | 1 |   ...   | 4 | 5 || 7 |
многогранника CONVER# =.001# 'используется для окончания поиска ALFA# = 1# BETA# =.5# GAMA# = 2# 10 STEP0# = SIZE# X#(1) =.025# 'координаты X#(2) =.033# 'стартовой X#(3) =.042# 'точки X#(4) =.008# ' IF FDIFER# < CONVER# THEN GOTO PRINT " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>" PRINT #1, " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>" Далее с помощью кнопки "F2" войти в подпрограмму SUB PROB (INQ) и ввести с клавиатуры в тексте программы соответствующие параметры.

Затем запустить программу на счёт (F5)" SUB PROB (INQ) 'Внутренний радиус внутреннего цилиндра, м aa =.'Плотность материала цилиндра, кг/м^RO = 'Коэффициент Пуассона для стали mu1 =.'Давление внутри цилиндра, Па PP = dd = X#(1): bb = X#(3): cc1 = X#(2): LL = X#(4) PRINT ccbet = bb / cc PP1 = ((aa / (dd – aa) + mu1 * LL ^ 2 / 2 / (dd – aa) ^ 2) – 2 * aa / dd * dd / 2 / (dd – aa) – LL ^ 2 / 2 / (dd – aa) ^ 2) ^ PP2 = ((LL ^ 2 / 2 / (dd – aa) ^ 2 + 1)) ^ PP3 = ((aa / (dd – aa) + mu1 * LL ^ 2 / 2 / (dd – aa) ^ 2) – 2 * aa / dd * dd / 2 / (dd – aa) + 1) ^ Sig1 = PP * SQR(.5 * (PP1 + PP2 + PP3)) PRINT SigSig2 = PP * SQR(aa ^ 2 / cc1 ^ 2 * (((bet ^ 2 + 1) / (bet ^ 2 – 1)) ^ 2 + + 1.8 * ((bet ^ 2 + 1) / (bet ^ 2 – 1)) + 1.56)) 'Допускаемые напряжения для материала двухслойного цилиндра, Па Sigd1 = 566000000: Sigd2 = IF INQ = 2 THEN GOTO IF INQ = 3 THEN GOTO 'ограничений в виде равенств нет GOTO 'ограничения в виде неравенств R#(1) = 1# – Sig1 / SigdR#(2) = 1# – Sig2 / SigdR#(3) = X#(1) /.025 – 1# R#(4) = 1# – X#(1) /.R#(5) = X#(2) /.03 – 1# R#(6) = 1# – X#(2) /.R#(7) = X#(3) /.042 – 1# R#(8) = 1# – X#(3) /.R#(9) = X#(4) /.008 – 1# R#(10) = 1# – X#(4) /.GOTO 'целевая функция 200 R#(11) = 3.14 * RO * (2 * (dd ^ 2 – aa ^ 2) + (cc1 ^ 2 – dd ^ 2) + + 2 * (bb ^ 2 – cc1 ^ 2)) / 300 X#(1) = dd: X#(3) = bb: X#(2) = cc1: X#(4) = LL END SUB Результаты расчёта FDIFER = 10 SR(N1) =.HOMEP Cчета 1 FDIFER = Объектная функция = 5.024533612321208D-BEKTOP: X( 1 ) = 2.500000037252903D-BEKTOP: X( 2 ) = 3.299999982118607D-BEKTOP: X( 3 ) = 4.199999943375587D-BEKTOP: X( 4 ) = 8.00000037997961D-G( 1 ): -.G( 2 ): -.G( 3 ): G( 4 ):.G( 5 ):.G( 6 ):.G( 7 ): G( 8 ):.G( 9 ): G( 10 ):.HOMEP Cчета 20 FDIFER = 9.986461695358497D-Объектная функция = 6.324462481824893D-BEKTOP: X( 1 ) = 2.613089233636856D-BEKTOP: X( 2 ) = 3.044299781322479D-BEKTOP: X( 3 ) = 4.381043836474419D-BEKTOP: X( 4 ) = 9.387007914483547D-G( 1 ):.G( 2 ): 1.253618433179723D-G( 3 ): 4.523567787951711D-G( 4 ):.G( 5 ): 1.476661645596114D-G( 6 ):.G( 7 ): 4.310568941420607D-G( 8 ):.G( 9 ):.G( 10 ):.

Pages:     | 1 |   ...   | 4 | 5 || 7 |






© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.