НіПТ, 2007. -33 С. p>. Акулов Л. А., Холодковский С. В. Графічна частина курсових проектів. Метод. зазначений. СПб.: СПбГУНіПТ, 2008. -38 С. br/>
Додаток 1
Текст підпрограми конструкторського розрахунку теплообмінних апаратів HEAT.
PROGRAM KR COMMON/A/TKR, PKR, ROKR, R COMMON/B/H00, H000, s00, s000, T0 COMMON/C/A (10), C (10) COMMON/D /F (10) COMMON/E/B (8,10) COMMON/M/AM (7), BM (15), IM (15), JM (15) COMMON/SS/SN COMMON/L/AL (9 ), BL (15), IL (15), JL (15), CL (7) COMMON/T5/FI, DE, DPR, E1, E2 COMMON/T6/DR, DELTAR, TAUR, FIT open (5, file = heat.dat ) READ (5, 8) NV, NK1, NK2 8 FORMAT (3I5) READ (5,9) D1, D2 , TRO, TZO, DC, QT 9 FORMAT (6F10.5) READ (5, 10) T1, T2, T3, T4, P1, P2 10 FORMAT (6F10.5) READ (5, 11) W1, W2, GM1 , GM2, DTCR 11 FORMAT (5F10.5) READ (5, 12) FI, DE, DPR, E1, E2 12 FORMAT (5F10.5) READ (5, 13) DR, DELTAR, TAUR, FIT 13 FORMAT (4F10 .5) CALL KRIAG3 CALL RTEP (D1, D2, TRO, TZO, DC, T1, T2, T3, T4, P1, P2, QT, W1, W2, GM1, GM2, DTCR, NV, NK1, NK2) STOP ENDRTEP (, D2, TRO, TZO, DC, T1, T2, T3, T4, P1, P2, QT, W1, W2, GM1, GM2, DTCR, NV, NK1, NK2) REAL MU1, MU2, LAMDA1, LAMDA2, KQ , LO, MPS COMMON/T5/FI, DE, DPR, E1, E2 COMMON/T6/DR, DELTAR, TAUR, FIT COMMON/A/TKR, PKR, ROKR, R COMMON/B/H00, H000, s00, s000 , T0 COMMON/C/A (10), C (10) COMMON/D/F (10) COMMON/E/B (8,10) COMMON/M/AM (7), BM (15), IM (15 ), JM (15) COMMON/SS/SN COMMON/L/AL (9), BL (15), IL (15), JL (15), CL (7) DIMENSION D (100), JZN (100), BS (100), SL (100), NX (25) WRITE (20, 8) 8 FORMAT (/ 25X, ISHODNII PARAMERTI /) WRITE (20,9) DTCR, D1, D2, TRO, TZO, DC FORMAT (2x, DT = , F6.2, 2x, D1 = , F6.3, 2x, D2 = , F6.3, 2x, TRO = , F6.3, 2x, TZO = , F6.3, 2x, DC = , F6.3) WRITE (20, 19) T1, T2, T3, T4, P1, P2, Q, FI, DE, DPR, E1, E2 19 FORMAT (2x, T1 = , F6.2, 2x, T2 = , F6.2, 2x, P1 = , F6. 3, 2x, P2 = , F6.3, 2x, T3 = , F6.2, 2x, T4 = , F6.2 , 2x, Q = , F6.2, 2x, FI = , F6.3, 2x,