![]() Поиск: Рекомендуем: ![]() ![]() ![]() ![]() Категории: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
И ИХ ВКЛАДА В СУММАРНЫЕ НАПРЯЖЕНИЯТаблица 2 После подсчета величин напряжений Затем выбираем на эпюре Выбираем на эпюре Выбираем на эпюре По данным табл.2 строим эпюры изменения указанных величин вдоль оси OZ- рис. 19, 20, 21, 22.
Рис.19 Рис.20 Рис.21 Рис.22 Анализ данных эпюр углов закручивания Для работы программы необходимо подготовить и ввести следующие исходные данные: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. Ввод этих величин осуществляется операторами 10-220. Печать исходных данных реализуется операторами 280-430. В программе дополнительно используются следующие обозначения: При печати результатов используются обозначения:
ПРИМЕР 10 OPEN “LP1” 20 REM РАСЧЕТ ТОНКОСТЕННОГО СТЕРЖНЯ 30 PRINT “ИСХОДНЫЕ ДАННЫЕ” 40 INPUT “ШИФР СТУДЕНТА” 50 INPUT “A=”; A 60 INPUT “BET=”; BET 70 INPUT “E=”; E 80 INPUT “PP=”; P 90 INPUT “A1=”; A1 100 INPUT “Q=”; Q 110 INPUT “B=”; B 120 INPUT “C=”; C 130 INPUT “L=”; L 140 INPUT “L1=”; L1 150 INPUT “D=”; D 160 INPUT “OMEGA=”; OMEGA 170 INPUT “EE=”; EE 180 INPUT “EO=”; EO 190 INPUT “QO=”; QO 200 INPUT “Q10=”; Q10 210 INPUT “BO=”; BO 220 INPUT “HO=”; HO 230 DZ=L/L1 240 K=SQR (D/ (EO*OMEGA) )*BET/(A^2) 250 B=4.8*A*BET^3*E/E 260 MM=-PP*E*A 270 M=-Q*E*A 280 PRINT #”РАСЧЕТ ТОНКОСТЕННОГО СТЕРЖНЯ” 290 PRINT # 300 PRINT #”ШИФР СТУДЕНТА”; NZ 310 PRINT # 320 PRINT #”A=”; A, “BET=”, BET, “E=”, E 330 PRINT # 340 PRINT #”PP=”, PP, “A1=”, A1 350 PRINT # 360 PRINT #”Q=”; Q, “B=”; B; “C=”; C 370 PRINT # 380 PRINT #”L=”; L; “L1=”;, L1; “D=”; D; “OMEGA=”; OMEGA; 390 PRINT #”EE=”; EE; “EO=”; EO 400 PRINT # 410 PRINT #”QO=”, QO; “Q10=”; Q10; “BO=”; BO; “HO=”; HO 420 PRINT # 430 PRINT #”K=”; K; “θ=”; θ; “MM=”; MM; “M=”; M 440 PRINT # 450 DEF FNS(X)=(EXP(X)-EXP(-X))/2 460 DEF FNS(X)=(EXP(X)+EXP(-X))/2 470 FOR Z=0 TO L STEP DZ 480 KZ=K+Z 490 T=QO+FNS(KZ)/K*Q10+(1-FNC(KZ))/6*90+(Z-FNS(KZ)/K)/6*110 500 T1=FNC(KZ)*Q10-K*FNS(KZ)/6*70+(1-FNC(KZ))/6*110 510 BB=-G*FNS(KZ)/K*Q10+K+FNS(KZ)*80+FNS(KZ)/K*110 520 MOMEGA=MOMEGA-MM*FNC(KZ) 560 IF Z<=A1 GOTO 710 540 KZ=K*(Z-A1) 550 T=T-MM*((Z-A1)-FNS(KZ)/K)/6 560 T1=T1-MM*(1-FNC(KZ)/K)/6 570 BB=BB-MM*FNS(KZ)/K 580 MOMEGA=MOMEGA-MM*FNC(KZ) 590 IF Z<=B GOTO 710 600 KZ=K*(Z-B) 610 T=T-M/6*((Z-B)^2/2+1/K^2*(1-FNC(KZ))) 620 T1=T1-M/6*(Z-B-FNS(KZ)/K) 630 BB=BB-M/K^2*(FNC(KZ)-1) 640 MOMEGA=MOMEGA-MM*FNS(KZ)/K) 650 IF Z<=C GOTO 710 660 KZ=K*(Z-C) 670 T=T+M/G*((2-C)^2/2+1/K^2*(1-FNC(LZ))) 680 T1=T1+M/6*(Z-C-FNS(KZ)/K) 690 DD=DD*M/K^2*(FNC(KZ)-1) 700 MOMEGA=MOMEGA+M/K/FNS(KZ) 710 REM КОНЕЦ ЦИКЛА 720 REM 730 BB=BB/A^2 740 MOMEGA=MOMEGA/A 750 MO=G*T1/A 760 PRINT 0 “Z=”; Z 770 PRINT 0 “T=”; T; “T1=”; T1; “BB=”; BB 780 PRINT 0 “MOMEGA=”; MOMEGA; “MO=”; MO 790 PRINT 0 800 NEXT Z 810 CLOSE 820 STOP
Дата добавления: 2015-01-29; просмотров: 349 | Нарушение авторских прав | Изречения для студентов Читайте также:
Рекомендуемый контект: Поиск на сайте:
|