Тривалість стояння температур зовнішнього повітря , діб.

	Кількість діб з температурою у вказаному інтервалі . Кількість діб з температурою нижче даної
Місто	-30...-25	-25...-20	-20...-15	-15...-10	-10...-5	-5...0	0...+5	+5...+8
Луганськ	0.5	2.3	6.5	14.9	26.6	44.9	56.9	27.4
	0.5	2.8	9.3	24.2	50.8	95.7	152.6	180.0
Кирово-	0.1	0.9	4.4	12.5	25.9	48.0	60.4	32.8
град	0.1	1.0	5.4	17.9	43.8	91.8	152.2	185.0
Харків	0.5	2.0	7.6	16.4	31.1	50.5	54.7	26.2
	0.5	2.5	10.1	26.5	57.6	108.1	162.8	189.0
Київ	0.1	0.9	4.9	13.4	27.9	52.3	60.4	27.1
	0.1	1.0	5.9	19.3	47.2	99.5	159.9	187.0
Львів	0.1	0.2	1.4	7.0	20.7	49.3	67.7	44.6
	0.1	0.3	1.7	8.7	29.4	78.7	146.4	191.0
Симфе-ропіль	0.0	0.1	0.8	3.7	14.1	36.4	58.5	44.4
	0.0	0.1	0.9	4.6	18.7	55.1	113.6	158.0
Ялта	0.0	0.0	0.0	0.0	0.9	11.0	52.1	62.0
	0.0	0.0	0.0	0.0	0.9	11.9	64.0	126.0
Микола-	0.0	0.4	2.1	8.4	18.7	41.9	60.6	32.9
їв	0.0	0.4	2.5	10.9	29.6	71.5	132.1	165.0
Одеса	0.0	0.2	1.0	5.0	16.3	38.2	65.1	39.2
	0.0	0.2	1.2	6.2	22.5	60.7	125.8	165.0

Додаток 9

10 REM *програма HEAT STREAM (C) Доц. Лиситскій Н.Ф.Київ КІСІ 1992 *

20 CLS:KEY OFF:CLEAR:INPUT“Вкажіть кількість кварталів у районі “ ; м

30 DIM Q(20,M)

40 PRINT “Ввод ісходних даних для розрахунку теплового навантаження “

50 INPUT “ Щільність жилого фонду, м^2/га “ ; F

60 INPUT “ Питома витрата теплоти на опалення, Вт/(м^2)”; U

70 INPUT “ Норма загальної площі на одну людину 15-20 м^2”; F10

80 INPUT “ Питома витрата теплоти на Г.В.П., Вт/(лют)”;UG

90 FOR I=1 TO M

100 CLS : PRINT “ Номер попереднього кварталу “; N( I-1)

110 INPUT “ Номер кварталу “ ; N( I ) : PRINT “ Розміри кварталу в метрах “

120 INPUT “ Довжина “; L ( I ) : INPUT “ Шрина “ ; В ( I )

130 F1( I ) = L ( I )* В ( I )/10000 : Q ( 7,1 )=F1 ( I ) : F2 (I )=F1 ( I )*P:Q(8,1)=F2( I )

140 N1( I )=F2( I )/F10 : Q( 9,1 )=N1( I ) : QO( I )=U*F2( I ) : QP( I )=25*QO( I )

150 QR( I )=QO( I )+QP( I )

160 Q( 1,I )=QO( I )*.000001 : Q( 2,I )=QP( I )*.000001 : Q( 3,1 )=QR( I )*.000001

170 QV( I )=.4*QP( I ): Q( 4,1 )=QV( I )*.000001

180 QG( I )=UG*N1( I ) : Q( 5,I )=QG( I )*.000001

190 QS( I )=QR ( I )+QV( I )+QG( I ) : Q( 6,I )=QS( I )*.000001

200 Z7=Z7+F1( I ) :Z8=Z8+F2( I ) :Z9=Z9+N1( I ) : Z1=Z1+Q(1,I ) : Z2=Z2+Q( 2,I )

210 Z3=Z3+Q( 3,I ) : Z4=Z4+Q( 4,I ) : Z5=Z5+Q( 5,I ) : Z6=Z6+Q( 6,I )

220 NEXT I : CLS

230 PRINT TAB( 24 ) “ Розрахункові втрати теплоти , МВт “

240 PRINT “ -----------------------------------------------------------------------------------------”

250 PRINT TAB( 1 ) “ Номер “;: PRINT TAB( 9 ) “ Fкв “ ;: PRINT TAB(18 ) “ Fж “ ;

260 PRINT TAB( 27 ) “ M “ ;: PRINT TAB( 33 ) “ Qож “;: PRINT TAB( 40 ) “ Qоо “;

270 PRINT TAB (48) “Qож + Qoo”;: PRINT TAB (57) “Qв“;: PRINT TAB (64)“Qгв”;

280 PRINT TAB (70) “Qсум”

290 PRINT “------------------------------------------------------------------------------------------”

300 FOR I = 1 TO M

310 PRINT TAB (2) ; N(I) ;: PRINT TAB (7) ;: PRINT USING “###.#”;Q(7,I);

320 PRINT TAB (16) ;: PRINT USING “#####.”; Q(8,I);

330 PRINT TAB (25) ;: PRINT USING “####.”; Q(9,I);

340 PRINT TAB (31) ;: PRINT USING “###.#”; Q(1,I);

350 REM PRINT “Норма загальної площі на одну людину” ; F10; “м^2”

360 PRINT TAB (38) ;: PRINT USING “###.#”; Q(2,I);

370 PRINT TAB (47) ;: PRINT USING “###.#”; Q(3,I);

380 PRINT TAB (55) ;: PRINT USING “###.#”; Q(4,I);

390 PRINT TAB (61) ;: PRINT USIBG “###.#” ; Q(5,I);

400 PRINT TAB (69) ;: PRINT USING “###.#” ; Q(6,I): NEXT I

410 PRINT “------------------------------------------------------------------------------------------”

420 PRINT TAB (1) “Всього” ;: PRINT TAB (6);: PRINT USING “####.#”; Z7;

430 PRINT TAB (16) ;: PRINT USING “#####.” ; Z8;

440 PRINT TAB (24) ;: PRINT USING “#####.”; Z9;

450 PRINT TAB (30) ;: PRINT USING “####.#” ; Z1;

460 PRINT TAB (38) ;: PRINT USING “###.#” ; Z2;

470 PRINT TAB (47) ;: PRINT USING “###.#” ; Z3;

480 PRINT TAB (55) ;: PRINT USING “###.#” ; Z4;

490 PRINT TAB (61) ;: PRINT USING “###.#” ; Z5;

500 PRINT TAB (68) ;: PRINT USING “####.#” ; Z6;

510 PRINT : PRINT “Щильність жилого фонду” ; F; “м^2/га”

520 PRINT “Норма загальної площі на одну людину”; F10 ; “м^2”

530 “Питома витрата теплоти на опалення”; U; “Вт/м^2”

540 PRINT “Питома витрата теплоти на Г.В.П.”; UG ; “Вт/м^2”

550 PRINT “Для продовження натисніть F5”: STOP

560 GO TO 20

Додаток 10

10 REM ** T2G.BAS(C) Доц. Лисицкий Н.Ф. Київ КИСИ 1992 **

20 KLS : PRINT , “Розрахунок регулювання теплових потоків на Г.В.П.”

30 KEY OFF : DIM T(10,40)

40 PRINT “Ввід ісходних даних”

50 INPUT “Параметр підігрівача першої ступені”; F1: CLS

60 INPUT “Параметр підігрівача другої ступені”; F2: CLS

70 INPUT “Температура холодної води в мережі”; L3: CLS

80 INPUT “температура гарячої води”; L4: CLS

90 INPUT “Відношення теплових потоків на Г.В.П. і опалення”; L6: CLS

100 INPUT “Розрахункова температура для проектування опалення”; TRO

110 PRINT “Температура води в мережі”

120 INPUT “Розрахункова в подаючому трубопроводі”; L10

130 INPUT “Розрахункова у зворотньому трубопроводі”; L11

140 INPUT “Розрахункова перед системою опалення”;L12

150 INPUT “В подаючому трубопроводі у точці злому”; L8

160 Z=.1: E=.001 : L5=L10-L11 : TPR=.5*(L12+L11)

170 F=(-18-(TPR-18)*Z^.8+70)/(L10-TPR)

180 IF ABS(F-Z)<E THEN 210

190 Z=F : GOTO 170

210 TR=18-(18-TRO)*Z:TR1=INT(10*TR)/10

220 QIZ=(18-TR)/(18-TRO)

230 L9=18+(TPR-18)*QIZ^.8-(TPR-L11)*QIZ : L9=INT(10*L9)/10

240 PRINT “У зворотньому трубопроводі в точці злому”; L9

250 INPUT “Недогрів води в мережі у 1 ступені”; DT1: ClS

260 PRINT “F1=“; F1,”F2=“; F2,”Tx=“; L3,”Tг=“; L4,”Tиз=“; TR1

270 PRINT “Qг/Qo=“; L6,”T1~=“; L8,”T2~=“;L9, “T1-T2=“; L5,”DT1=“;DT1

280 I=0: TO=TRO-2

290 TO=TO+2

300 IF TO>TR1 THEN TO=TR1

310 T(10,I)=TO

320 Q=(18-TO)/(18-TRO) : T1=18+(TPR-18)*Q^.8+(L10-TPR)*Q : T(1,I)=T1

330 T2=T1-(L10-L11)*Q : T(2,I)=T2 : T4=T2: T8=L9-DT1

340 G2=(L4-T8)/(T1-T4)

350 GO=(L4-L3)/(L5*L6): G1=GO+G2 : Z1=F1*(G1-1)/(G1^.5)

360 Z2=F2*(G2-1)/(G2^.5): E1=(1-EXP(Z1))/(1-G1*EXP(Z1))

370 E2=(1-EXP(Z2))/(1-G2*EXP(Z2)): T6=(T2*GO+T4*G2)/G1:T(6,I)=T6

380 T9=L3+(T6-L3)*G1*E1: T(9,I)=T9: T5=T1-(T1-T9)*E2. T(5,I)=15

390 B=T5-T4:N=ABS(B): T4=T5

400 IF N>.05 THEN 340

410 G=G2*L5*L6/(L4-L3): T(7,I)=G: IF T(7,I)>1 THEN T(7,I)=1

420 IF TO=TR1 THEN 440

430 I=I+1 : GOTO 290

440 I=0 : TO=TRO-2 : GOSUB 560

450 TO=TO+2

460 IF T(10,I)>TR1 THEN T(10,I)=TR1

470 PRINT TAB(5) ; : PRINT USING “###.#”; T(10,I);

480 PRINT TAB(15); : PRINT USING”###.#”; T(1,I);

490 PRINT TAB(23); : PRINT USING “###.#”; T(2,I);

500 PRINT TAB(31); : PRINT USING “###.#”; T(5,I);

510 PRINT TAB(40); : PRINT USING “###.#”; T(6,I);

520 PRINT TAB(50); : PRINT USING “###.#”; T(9,I);

530 PRINT TAB(60); : PRINT USING “#.###”; T(7,I)

540 IF T(10,I)=TR1 THEN END

550 I=I+1 : GOTO 450

560 PRINT “-------------------------------------------------------------------------------------------

570 PRINT TAB(6) “Tн” ; : PRINT TAB(15) “T10”; : PRINT TAB(24) “T20” ;

580 PRINT TAB(32) “T2г”; : PRINT TAB(41) “Tсн”; : PRINT TAB(51) “Tп”;

590 PRINT TAB(61) “Gгв”;

600 PRINT “-------------------------------------------------------------------------------------------

610 RETURN

Додаток 11