ГОСТРИСО 7730—2009
90INPUT
100
INPUT
110
INPUT
120 INPUT
130 INPUT
Средняя температура излучения(*C)"TR
Относительная скорость движения воздуха (м/с) "VEL
-ВЫБЕРИТЕ ИЛИ RH, ИЛИ ДАВЛЕНИЕ ВОДЯНОГО ПАРА. НО НЕ ОБА’
Относительная влажность
Давление водяного пара
(%)"RH
(Па)"В\
140DEF FNPS (Т) = ЕХР (16.6536-4030.183/Т+235»
150IF РА = 0 THEN РА = RH ’ 10 * FNPS (ТА)
160ICL = .155 * CLO
170М = МЕТ *58.15
180
W =WME* 58.15
190
MW=м —w
200
IF ICL и .078 THEN FCL = 1
ELSE FCL = 1.05 + 0.645 * ICL
210HCF = 12.1 *SQR (VEL)
: давление насыщенного пара. кПа
: давление водяного пара. Па
: термоизоляция одежды, м2 - ЮВт
; скорость обмена веществ. Вт/м2
: наружная работа. Вт/м2
: наружное производство тепла в теле человека
+ 1.29* ICL
: множитель площади одежды
: коэффициент теплообмена при принудительной кон
260Р1 = ICL * FCL
270Р2 = Р1 * 3.96
280Р3= Р1 * 100
290Р4 = Р1 * ТАА
300
Р5 = 308.7 - .028 ’ MW + Р2 * (TRA/100) * 4
310XN = TLCA/100
320XF =XN
330N = 0
340EPS = .00015
350XF = (XF +XN>*2
360HCN =2.38 ’ ABS (100 * XF - TAA)A25
370IF HCF > HCN THEN HC = HCF ELSE HC = HCN
380XN = (P5 + P4 * НС - P2 * XF A 4) / (100 + P3 * HC)
390N = N+1
400IF N > 150 THEN GOTO 550
410IF ABS (XN - XF) > EPS GOTO 350
420TCL = 100 * XN - 273
векции
220
ТАА = ТА + 273: температура воздуха. К
230TRA = TR + 273: средняя температура излучения. К
240..........ВЫЧИСЛИТЕ ТЕМПЕРАТУРУ ПОВЕРХНОСТИ ОДЕЖДЫ С ПОМОЩЬЮ ПОВТОРЕНИЯ
250TCLA = ТАА + (35.5-ТА) / (3.5 * ICL + .1)первое предположение о температуре поверхности
одежды
период вычисления
период вычисления
период вычисления
период вычисления
N: количество повторений
критерии остановки при повторе
коэффициент теплообмена при естественной кон
векции
температура поверхности одежды
430КОМПОНЕНТЫ ПОТЕРИ ТЕПЛА
440HL1 = 3.05 * .001 (5733-6.99 * MW-PA)
450IF MW > 58.15 THEN HL2 = .42 * (MW - 58.15)
ELSE HL2 = 0!
460HL3 = 1.7 * .00001 * m * (5867-PA)
470HL4 = .0014 ’ m * (34 - ТА)
480HL5 = 3.96 * FCL * (XNA4 - (TRA/IOOM)
500........................................ВЫЧИСЛИТЕ PMV И PPD ■
510TS = .303 * EXP (- .036 * m) ♦ .028
потеря тепла через кожу
потеря тепла за счет потения (комфортного)
скрытая потеря тепла из-за дыхания
потеря тепла из-за сухого дыхания
потеря тепла из-за излучения
: коэффициент переноса температурной чувствитель
ности
j
520PMV = TS * (MW - HL1 - H L2- HL3 -
- HL4 - HL5 - HL6): прогнозируемая средняя оценка
530PPD = 100 - 95 * ЕХР (- .03353 * PMV А 4 -
- .2179 * PMVA2): прогнозируемый процент недовольных
540GOTO 570
550PMV = 999999!
560PPD = 100
570PRINT: PRINT «OUTPUT»: результат
580PRINT «Predicted Mean Vote(PMV):«
PRINT USING «# #. #»: PMV
590PRINT « Predtcted Percent Ы Dissatisfied(PPD): «
PRINT USING «# # # .#»: PPD
600PRINT: INPUT «NEXT RUN (Y/N)*; RS
610IF (RS = «Y *OR RS = «у») THEN RUN
620END
19