Проектирование и расчет валковых машин для полимерных материалов. Клинков А.С - 83 стр.

UptoLike

460 RETURN
470 REM * Подпрограмма *
480 REM * Определение изгибающего момента в текущем сечении *
490 IF X < L1 THEN 520
500 IF X < L2 + L1 THEN 530
510 M(Z) = RA * X - Q * L2 * (X - L2 / 2 - L1): GOTO 540
520 M(Z) = RA * X: GOTO 540
530 M(Z) = RA * X - Q * (X - L1) ^ 2 / 2
540 RETURN
550 REM * Подпрограмма *
560 REM * Определение геометрических характеристик *
570 REM * текущего сечения *
580 IF A(I, 1) = 1 THEN 660
590 IF A(I, 1) = 2 THEN 690
600 IF A(I, 1) = 3 THEN 720
610 IF A(I, 1) = 4 THEN 750
620 PRINT "Ошибку следует искать в массиве A(i,j)"
630 PRINT "Неверно указан тип поперечного сечения."; I
640 GOTO 1370
650 REM *Сечение типа 1 *
660 j(Z) = PI * (A(I, 3) ^ 4 - A(I, 2) ^ 4) / 64
670 W(Z) = 2 * j(Z) / A(I, 3): GOTO 860
680 REM * Сечение типа 2 *
690 j(Z) = PI * (A(I, 3) ^ 4 - A(I, 2) ^ 4) / 64 - B1 * T1 * (A(I, 3) - T1) ^ 2/4
700 W(Z) = 2 * j(Z) / A(I, 3): GOTO 860
710 REM *Сечение типа 3 *
720 j(Z) = PI * (A(I, 3) ^ 4 - A(I, 2) ^ 4) / 64 - B1 * T1 * (A(I, 3) - T1) ^ 2/2
730 W(Z) = 2 * j(Z) / A(I, 3): GOTO 860
740 REM *Сечение типа 4 *
750 IF ZX(M) <> 0 THEN 830
760 AL = PI * 360 / NP / 180
770 ZX(0) = ZP
780 FOR M = 1 TO NP
790 ZX(M) = (ZP * COS((M - 1) * AL)) ^ 2
800 ZX(M) = ZX(M - 1) + ZX(M)
810 NEXT M
820 ZX(M) = ZX(NP)
830 JX1 = NP * PI * DP ^ 4 / 64 + ZX(M) * PI * DP ^ 2 / 4
840 j(Z) = PI * (A(I, 3) ^ 4 - A(I, 2) ^ 4) / 64 - JX1
850 W(Z) = 2 * j(Z) / A(I, 3)
860 RETURN
870 NEXT X
880 ZX = Z
890 REM * Печать результатов расчетов напряжений в валке *
900 F$ = "O": GOTO 930
910 F$ = "LPT1": GOTO 930
920 F$ = "WAL.DAT"
930 OPEN "O", #1, F$
1180 PRINT TAB(11); "Результаты вычислений": PRINT ""
1190 PRINT "-Реакции в опорах А, В равны соответственно"
1200 PRINT " RA="; RA; "H, RB="; RA; "H."
1210 PRINT "-Крутящий момент, действующий на валок"
1220 PRINT " MKP="; KM; "H*M": PRINT
1230 PRINT " X,м"; " JX(X),м^4"; " WX(X),м^3"; " MИ(X),H*м";
1240 PRINT " MKP(X),H*м"
1250 FOR A = 1 TO ZX