<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18975">
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><STRONG><FONT size=2 face="Courier New"><</FONT></STRONG><A
href="mailto:terrain@shaw.ca"><STRONG><FONT size=2
face="Courier New">terrain@shaw.ca</FONT></STRONG></A><STRONG><FONT size=2
face="Courier New">> writes:</FONT></STRONG></DIV>
<DIV><STRONG><FONT size=2 face="Courier New"></FONT></STRONG> </DIV>
<DIV><STRONG><FONT size=2 face="Courier New">> Pretty hard to model air
movement</FONT></STRONG></DIV>
<DIV><STRONG><FONT size=2 face="Courier New"></FONT></STRONG> </DIV>
<DIV><STRONG><FONT size=2 face="Courier New">If a 70 F room is 20'x20'
with 4'x8' of 56 F glass on one side </FONT></STRONG></DIV>
<DIV><STRONG><FONT size=2 face="Courier New">and a (4x56+16x70)/20 = 67.2
average temp on that wall and</FONT></STRONG></DIV>
<DIV><STRONG><FONT size=2 face="Courier New">the opposite wall is 70 F with
16.6x10x20sqrt(8'(70-67.2))</FONT></STRONG></DIV>
<DIV><STRONG><FONT size=2 face="Courier New">= 15.7K cfm of convective airflow
and a 15.7K/200 = 79 lfm</FONT></STRONG></DIV>
<DIV><STRONG><FONT size=2 face="Courier New">air velocity, it looks like we have
to raise the room temp<BR> ALMOST </FONT></STRONG><STRONG><FONT size=2
face="Courier New">ONE FULL DEGREE F! :-)</FONT></STRONG></DIV>
<DIV> </DIV>
<DIV><STRONG><FONT size=2 face="Courier New">20 CLO = 1'clothing insulation
(clo)<BR>30 MET=1.1'metabolic rate (met)<BR>40 WME=0'external work (met)<BR>50
RH=50'relative humidity (%)<BR>60 DATA 70.767,56,70,63<BR>70 FOR CASE=0 TO
1<BR>80 READ TAF,TWF'air and glass/shutter temps (F)<BR>90 TA=(TAF-32)/1.8'air
temp (C)<BR>100 TW=(TWF-32)/1.8'glass/shutter temp (C)<BR>110
TR=.9866*TA+.0133*TW'mean radiant temp (C)<BR>120 TWW=(4*TWF+16*70)/20'average
window wall temp (F)<BR>130 CFM=16.6*10*20*SQR(70-TWW)'convective cfm<BR>140
VEL=CFM/200/196.9'air velocity (m/s)<BR>150 PA=0'water vapor pressure<BR>160 DEF
FNPS(T)=EXP(16.6536-4030.183/(TA+235))'sat vapor pressure, kPa<BR>170 IF PA=0
THEN PA=RH*10*FNPS(TA)'water vapor pressure, Pa<BR>180 ICL=.155*CLO'clothing
resistance (m^2K/W)<BR>190 M=MET*58.15'metabolic rate (W/m^2)<BR>200
W=WME*58.15'external work in (W/m^2)<BR>210 MW=M-W'internal heat
production<BR>220 IF ICL<.078 THEN FCL=1+1.29*ICL ELSE
FCL=1.05+.645*ICL'clothing factor<BR>230 HCF=12.1*SQR(VEL)'forced convection
conductance<BR>240 TAA=TA+273'air temp (K)<BR>250 TRA=TR+273'mean radiant temp
(K)<BR>260 TCLA=TAA+(35.5-TA)/(3.5*(6.45*ICL+.1))'est clothing temp<BR>270
P1=ICL*FCL:P2=P1*3.96:P3=P1*100:P4=P1*TAA'intermediate values<BR>280
P5=308.7-.028*MW+P2*(TRA/100)^4<BR>290 XN=TCLA/100<BR>300 XF=XN<BR>310
N=0'number of iterations<BR>320 EPS=.00015'stop iteration when met<BR>330
XF=(XF+XN)/2'natural convection conductance<BR>340
HCN=2.38*ABS(100*XF-TAA)^.25<BR>350 IF HCF>HCN THEN HC=HCF ELSE HC=HCN<BR>360
XN=(P5+P4*HC-P2*XF^4)/(100+P3*HC)<BR>370 N=N+1<BR>380 IF N>150 GOTO
510<BR>390 IF ABS(XN-XF)>EPS GOTO 330<BR>400 TCL=100*XN-273'clothing surface
temp (C)<BR>410 HL1=.00305*(5733-6.99*MW-PA)'heat loss diff through skin<BR>420
IF MW>58.15 THEN HL2=.42*(MW-58.15) ELSE HL2=0'heat loss by sweating<BR>430
HL3=.000017*M*(5867-PA)'latent respiration heat loss<BR>440
HL4=.0014*M*(34-TA)'dry respiration heat loss<BR>450
HL5=3.96*FCL*(XN^4-(TRA/100)^4)'heat loss by radiation<BR>460
HL6=FCL*HC*(TCL-TA)'heat loss by convection<BR>470
TS=.303*EXP(-.036*M)+.028'thermal sensation transfer coefficient<BR>480
PMV=TS*(MW-HL1-HL2-HL3-HL4-HL5-HL6)'predicted mean vote<BR>490
PPD=100-95*EXP(-.03353*PMV^4-.2179*PMV^2)'predicted % dissatisfied<BR>500 GOTO
520<BR>510 PMV=99999!:PPD=100<BR>520 PRINT 600+CASE"'";TWF,TAF,PMV<BR>530 NEXT
CASE<BR>540 LIST 60<BR>550 'Innova AirTech Instruments has an excellent comfort
web site...<BR>560
'http://www.impind.de.unifi.it/Impind/didattica/materiale/<BR>570
'microclima/innova/thermal.htm</FONT></STRONG></DIV>
<DIV> </DIV>
<DIV><STRONG><FONT size=2 face="Courier New">56
70.767
-.3222994<BR>63
70
-.322392</FONT></STRONG></DIV>
<DIV><STRONG><FONT size=2 face="Courier New"></FONT></STRONG> </DIV>
<DIV><STRONG><FONT size=2 face="Courier New">Passiv Haus fascists tend to
overrate mean radiant temperatures. </FONT></STRONG></DIV>
<DIV><STRONG><FONT size=2 face="Courier New"></FONT></STRONG> </DIV>
<DIV><STRONG><FONT size=2
face="Courier New">Nick</FONT></STRONG></DIV></BODY></HTML>