If you were Registered and logged in, you could reply and use other advanced thread options
|
Posted by on April 28, 2008, 11:20 am
Adapted from "Prediction of the thermal performance of single and
multi-airspace reflective insulation materials" by Andre O. Desjarlais
and David W. Yarbrough, from ASTM STP 1116--Insulation Materials, Testing
and Applications, Ronald S. Graves and Donald C. Wysocki, editors, 2nd volume,
October 1991, pp 24-43:
20 DATA 2.5,5.09,7.5,1.4959,-0.608,6.359e-2,6.5572e-3,2.7129e-4
30 DATA 3.5,4.68,7.82,-1.3771,.2989,5.93e-3,1.2676e-3,8.7056e-2
40 DATA 2.5,4.35,7.2,-2.2234,0.6784,-3.028e-2,1.6481e-3,2.3528e-2
50 DATA 0,0,0,0,0,0,0,0
60 DATA 2.5,3.49,6.8,-.862,.2912,-3.863e-4,.16645,-1.397e-2
70 DATA 2.5,4.14,6.9,-.3,.0381,2.409e-2,1.5679e-2,-3.4369e-2
80 FOR I=0 TO 5
90 READ GR0(I),GR1(I),GR2(I),A(I),B(I),C(I),A2(I),A3(I)
100 NEXT I
110 DIR=0'heatflow direction
120 IF DIR=-1 THEN DIR$="down"
130 IF DIR=0 THEN DIR$="horiz"
140 IF DIR=1 THEN DIR$="up"
150 DIAG=0'0 for up or down, 1 for diagonal heatflow
160 IF DIAG=0 THEN DIAG$="no" ELSE DIAG$="yes"
170 I=2*DIR+DIAG+2'index (0-5, skipping 3)
180 T1=30'surface 1 temp (F)
190 T2=70'surface 2 temp (F)
200 DT=ABS(T2-T1)'temp diff
210 TBAR=(T1+T2)/2'mean temp
220 HR=.00686*((TBAR+460)/100)^3'radiation conductance (Btu/h-F-ft^2)
230 E1=.05'surface 1 emittance
240 E2=.05'surface 2 emittance
250 E=1/(1/E1+1/E2-1)'effective emittance
260 L=3.5'airspace width (inches)
270 LGR=LOG(DT*L^3)/LOG(10)+3.4146-.004359*TBAR+3.6441E-06*TBAR^2'log10 Grashof
280 IF LGR<LOG(GR0(I))/LOG(10) THEN LNU=0: GOTO 320
290 IF LGR>=LOG(GR1(I))/LOG(10) THEN LNU=A(I)+B(I)*LGR+C(I)*LGR^2:GOTO 320'eq 5
300 LNU=A2(I)*(LGR-LOG(GR0(I))/LOG(10))^2
310 LNU=LNU+A3(I)*(LGR-LOG(GR0(I))/LOG(10))^3'equation 6
320 NU=10^LNU'Nusselt number
330 K=.0003053*TBAR+.1575'air conductivity (Btu-in/F-ft^2-F)
340 HC=K*NU/L'convection conductance
350 R=1/(E*HR+HC)'US R-value (ft^2-F-h/Btu)
360 PRINT "gap (in):",L
370 PRINT "dir:",DIR$,"diag:",DIAG$
380 PRINT "T1 (F):",T1,"T2 (F):",T2
390 PRINT "Tmean (F):",TBAR,"dT (F):",DT
400 PRINT "E1:",E1,"E2:",E2
410 PRINT "Eeff:",E
420 PRINT "R-value:",R
gap (in): 3.5
dir: horiz diag: no
T1 (F): 30 T2 (F): 70
Tmean (F): 50 dT (F): 40
E1: .05 E2: .05
Eeff: 2.564103E-02
R-value: 2.461726
Nick
|
|
Posted by Red Green on April 28, 2008, 10:40 pm
nicksanspam@ece.villanova.edu wrote in
> Adapted from "Prediction of the thermal performance of single and
> multi-airspace reflective insulation materials" by Andre O. Desjarlais
> and David W. Yarbrough, from ASTM STP 1116--Insulation Materials,
> Testing and Applications, Ronald S. Graves and Donald C. Wysocki,
> editors, 2nd volume, October 1991, pp 24-43:
>
> 20 DATA 2.5,5.09,7.5,1.4959,-0.608,6.359e-2,6.5572e-3,2.7129e-4
> 30 DATA 3.5,4.68,7.82,-1.3771,.2989,5.93e-3,1.2676e-3,8.7056e-2
> 40 DATA 2.5,4.35,7.2,-2.2234,0.6784,-3.028e-2,1.6481e-3,2.3528e-2
> 50 DATA 0,0,0,0,0,0,0,0
> 60 DATA 2.5,3.49,6.8,-.862,.2912,-3.863e-4,.16645,-1.397e-2
> 70 DATA 2.5,4.14,6.9,-.3,.0381,2.409e-2,1.5679e-2,-3.4369e-2
> 80 FOR I=0 TO 5
> 90 READ GR0(I),GR1(I),GR2(I),A(I),B(I),C(I),A2(I),A3(I)
> 100 NEXT I
> 110 DIR=0'heatflow direction
> 120 IF DIR=-1 THEN DIR$="down"
> 130 IF DIR=0 THEN DIR$="horiz"
> 140 IF DIR=1 THEN DIR$="up"
> 150 DIAG=0'0 for up or down, 1 for diagonal heatflow
> 160 IF DIAG=0 THEN DIAG$="no" ELSE DIAG$="yes"
> 170 I=2*DIR+DIAG+2'index (0-5, skipping 3)
> 180 T1=30'surface 1 temp (F)
> 190 T2=70'surface 2 temp (F)
> 200 DT=ABS(T2-T1)'temp diff
> 210 TBAR=(T1+T2)/2'mean temp
> 220 HR=.00686*((TBAR+460)/100)^3'radiation conductance (Btu/h-F-ft^2)
> 230 E1=.05'surface 1 emittance
> 240 E2=.05'surface 2 emittance
> 250 E=1/(1/E1+1/E2-1)'effective emittance
> 260 L=3.5'airspace width (inches)
> 270
> LGR=LOG(DT*L^3)/LOG(10)+3.4146-.004359*TBAR+3.6441E-06*TBAR^2'log10
> Grashof 280 IF LGR<LOG(GR0(I))/LOG(10) THEN LNU=0: GOTO 320
> 290 IF LGR>=LOG(GR1(I))/LOG(10) THEN LNU=A(I)+B(I)*LGR+C(I)*LGR^2:GOTO
> 320'eq 5 300 LNU=A2(I)*(LGR-LOG(GR0(I))/LOG(10))^2
> 310 LNU=LNU+A3(I)*(LGR-LOG(GR0(I))/LOG(10))^3'equation 6
> 320 NU=10^LNU'Nusselt number
> 330 K=.0003053*TBAR+.1575'air conductivity (Btu-in/F-ft^2-F)
> 340 HC=K*NU/L'convection conductance
> 350 R=1/(E*HR+HC)'US R-value (ft^2-F-h/Btu)
> 360 PRINT "gap (in):",L
> 370 PRINT "dir:",DIR$,"diag:",DIAG$
> 380 PRINT "T1 (F):",T1,"T2 (F):",T2
> 390 PRINT "Tmean (F):",TBAR,"dT (F):",DT
> 400 PRINT "E1:",E1,"E2:",E2
> 410 PRINT "Eeff:",E
> 420 PRINT "R-value:",R
>
> gap (in): 3.5
> dir: horiz diag: no
> T1 (F): 30 T2 (F): 70
> Tmean (F): 50 dT (F): 40
> E1: .05 E2: .05
> Eeff: 2.564103E-02
> R-value: 2.461726
>
> Nick
>
Another rap tune?
|
|
Posted by JoeSpareBedroom on April 29, 2008, 12:55 am
> nicksanspam@ece.villanova.edu wrote in
>
>> Adapted from "Prediction of the thermal performance of single and
>> multi-airspace reflective insulation materials" by Andre O. Desjarlais
>> and David W. Yarbrough, from ASTM STP 1116--Insulation Materials,
>> Testing and Applications, Ronald S. Graves and Donald C. Wysocki,
>> editors, 2nd volume, October 1991, pp 24-43:
>>
>> 20 DATA 2.5,5.09,7.5,1.4959,-0.608,6.359e-2,6.5572e-3,2.7129e-4
>> 30 DATA 3.5,4.68,7.82,-1.3771,.2989,5.93e-3,1.2676e-3,8.7056e-2
>> 40 DATA 2.5,4.35,7.2,-2.2234,0.6784,-3.028e-2,1.6481e-3,2.3528e-2
>> 50 DATA 0,0,0,0,0,0,0,0
>> 60 DATA 2.5,3.49,6.8,-.862,.2912,-3.863e-4,.16645,-1.397e-2
>> 70 DATA 2.5,4.14,6.9,-.3,.0381,2.409e-2,1.5679e-2,-3.4369e-2
>> 80 FOR I=0 TO 5
>> 90 READ GR0(I),GR1(I),GR2(I),A(I),B(I),C(I),A2(I),A3(I)
>> 100 NEXT I
>> 110 DIR=0'heatflow direction
>> 120 IF DIR=-1 THEN DIR$="down"
>> 130 IF DIR=0 THEN DIR$="horiz"
>> 140 IF DIR=1 THEN DIR$="up"
>> 150 DIAG=0'0 for up or down, 1 for diagonal heatflow
>> 160 IF DIAG=0 THEN DIAG$="no" ELSE DIAG$="yes"
>> 170 I=2*DIR+DIAG+2'index (0-5, skipping 3)
>> 180 T1=30'surface 1 temp (F)
>> 190 T2=70'surface 2 temp (F)
>> 200 DT=ABS(T2-T1)'temp diff
>> 210 TBAR=(T1+T2)/2'mean temp
>> 220 HR=.00686*((TBAR+460)/100)^3'radiation conductance (Btu/h-F-ft^2)
>> 230 E1=.05'surface 1 emittance
>> 240 E2=.05'surface 2 emittance
>> 250 E=1/(1/E1+1/E2-1)'effective emittance
>> 260 L=3.5'airspace width (inches)
>> 270
>> LGR=LOG(DT*L^3)/LOG(10)+3.4146-.004359*TBAR+3.6441E-06*TBAR^2'log10
>> Grashof 280 IF LGR<LOG(GR0(I))/LOG(10) THEN LNU=0: GOTO 320
>> 290 IF LGR>=LOG(GR1(I))/LOG(10) THEN LNU=A(I)+B(I)*LGR+C(I)*LGR^2:GOTO
>> 320'eq 5 300 LNU=A2(I)*(LGR-LOG(GR0(I))/LOG(10))^2
>> 310 LNU=LNU+A3(I)*(LGR-LOG(GR0(I))/LOG(10))^3'equation 6
>> 320 NU=10^LNU'Nusselt number
>> 330 K=.0003053*TBAR+.1575'air conductivity (Btu-in/F-ft^2-F)
>> 340 HC=K*NU/L'convection conductance
>> 350 R=1/(E*HR+HC)'US R-value (ft^2-F-h/Btu)
>> 360 PRINT "gap (in):",L
>> 370 PRINT "dir:",DIR$,"diag:",DIAG$
>> 380 PRINT "T1 (F):",T1,"T2 (F):",T2
>> 390 PRINT "Tmean (F):",TBAR,"dT (F):",DT
>> 400 PRINT "E1:",E1,"E2:",E2
>> 410 PRINT "Eeff:",E
>> 420 PRINT "R-value:",R
>>
>> gap (in): 3.5
>> dir: horiz diag: no
>> T1 (F): 30 T2 (F): 70
>> Tmean (F): 50 dT (F): 40
>> E1: .05 E2: .05
>> Eeff: 2.564103E-02
>> R-value: 2.461726
>>
>> Nick
>>
>
> Another rap tune?
In Basic....
|
|
Posted by ransley on April 29, 2008, 3:33 am
>
>
>
>
>
>
> > nicksans...@ece.villanova.edu wrote in
>
> >> Adapted from "Prediction of the thermal performance of single and
> >> multi-airspace reflective insulation materials" by Andre O. Desjarlais
> >> and David W. Yarbrough, from ASTM STP 1116--Insulation Materials,
> >> Testing and Applications, Ronald S. Graves and Donald C. Wysocki,
> >> editors, 2nd volume, October 1991, pp 24-43:
>
> >> 20 DATA 2.5,5.09,7.5,1.4959,-0.608,6.359e-2,6.5572e-3,2.7129e-4
> >> 30 DATA 3.5,4.68,7.82,-1.3771,.2989,5.93e-3,1.2676e-3,8.7056e-2
> >> 40 DATA 2.5,4.35,7.2,-2.2234,0.6784,-3.028e-2,1.6481e-3,2.3528e-2
> >> 50 DATA 0,0,0,0,0,0,0,0
> >> 60 DATA 2.5,3.49,6.8,-.862,.2912,-3.863e-4,.16645,-1.397e-2
> >> 70 DATA 2.5,4.14,6.9,-.3,.0381,2.409e-2,1.5679e-2,-3.4369e-2
> >> 80 FOR I=3D0 TO 5
> >> 90 READ GR0(I),GR1(I),GR2(I),A(I),B(I),C(I),A2(I),A3(I)
> >> 100 NEXT I
> >> 110 DIR=3D0'heatflow direction
> >> 120 IF DIR=3D-1 THEN DIR$=3D"down"
> >> 130 IF DIR=3D0 THEN DIR$=3D"horiz"
> >> 140 IF DIR=3D1 THEN DIR$=3D"up"
> >> 150 DIAG=3D0'0 for up or down, 1 for diagonal heatflow
> >> 160 IF DIAG=3D0 THEN DIAG$=3D"no" ELSE DIAG$=3D"yes"
> >> 170 I=3D2*DIR+DIAG+2'index (0-5, skipping 3)
> >> 180 T1=3D30'surface 1 temp (F)
> >> 190 T2=3D70'surface 2 temp (F)
> >> 200 DT=3DABS(T2-T1)'temp diff
> >> 210 TBAR=3D(T1+T2)/2'mean temp
> >> 220 HR=3D.00686*((TBAR+460)/100)^3'radiation conductance (Btu/h-F-ft^2)=
> >> 230 E1=3D.05'surface 1 emittance
> >> 240 E2=3D.05'surface 2 emittance
> >> 250 E=3D1/(1/E1+1/E2-1)'effective emittance
> >> 260 L=3D3.5'airspace width (inches)
> >> 270
> >> LGR=3DLOG(DT*L^3)/LOG(10)+3.4146-.004359*TBAR+3.6441E-06*TBAR^2'log10
> >> Grashof 280 IF LGR<LOG(GR0(I))/LOG(10) THEN LNU=3D0: GOTO 320
> >> 290 IF LGR>=3DLOG(GR1(I))/LOG(10) THEN LNU=3DA(I)+B(I)*LGR+C(I)*LGR^2:G=
OTO
> >> 320'eq 5 300 LNU=3DA2(I)*(LGR-LOG(GR0(I))/LOG(10))^2
> >> 310 LNU=3DLNU+A3(I)*(LGR-LOG(GR0(I))/LOG(10))^3'equation 6
> >> 320 NU=3D10^LNU'Nusselt number
> >> 330 K=3D.0003053*TBAR+.1575'air conductivity (Btu-in/F-ft^2-F)
> >> 340 HC=3DK*NU/L'convection conductance
> >> 350 R=3D1/(E*HR+HC)'US R-value (ft^2-F-h/Btu)
> >> 360 PRINT "gap (in):",L
> >> 370 PRINT "dir:",DIR$,"diag:",DIAG$
> >> 380 PRINT "T1 (F):",T1,"T2 (F):",T2
> >> 390 PRINT "Tmean (F):",TBAR,"dT (F):",DT
> >> 400 PRINT "E1:",E1,"E2:",E2
> >> 410 PRINT "Eeff:",E
> >> 420 PRINT "R-value:",R
>
> >> gap (in): =A0 =A0 =A03.5
> >> dir: =A0 =A0 =A0 =A0 =A0 horiz =A0 =A0 =A0 =A0diag: =A0 =A0 =A0 =A0 =A0=
no
> >> T1 (F): =A0 =A0 =A0 =A030 =A0 =A0 =A0 =A0 =A0 T2 (F): =A0 =A0 =A0 =A070=
> >> Tmean (F): =A0 =A0 50 =A0 =A0 =A0 =A0 =A0 dT (F): =A0 =A0 =A0 =A040
> >> E1: =A0 =A0 =A0 =A0 =A0 .05 =A0 =A0 =A0 =A0 =A0 E2: =A0 =A0 =A0 =A0 =A0=
.05
> >> Eeff: =A0 =A0 =A0 =A0 =A02.564103E-02
> >> R-value: =A0 =A0 =A0 2.461726
>
> >> Nick
>
> > Another rap tune?
>
> In Basic....- Hide quoted text -
>
> - Show quoted text -
Can anyone understand what he posted, will it actualy help
themselves ! No..its nickys numbers, again.
|
|
Posted by Solar Mike on April 29, 2008, 6:08 am
> > nicksans...@ece.villanova.edu wrote in
>
> >> Adapted from "Prediction of the thermal performance of single and
> >> multi-airspace reflective insulation materials" by Andre O. Desjarlais
> >> and David W. Yarbrough, from ASTM STP 1116--Insulation Materials,
> >> Testing and Applications, Ronald S. Graves and Donald C. Wysocki,
> >> editors, 2nd volume, October 1991, pp 24-43:
>
> >> 20 DATA 2.5,5.09,7.5,1.4959,-0.608,6.359e-2,6.5572e-3,2.7129e-4
> >> 30 DATA 3.5,4.68,7.82,-1.3771,.2989,5.93e-3,1.2676e-3,8.7056e-2
> >> 40 DATA 2.5,4.35,7.2,-2.2234,0.6784,-3.028e-2,1.6481e-3,2.3528e-2
> >> 50 DATA 0,0,0,0,0,0,0,0
> >> 60 DATA 2.5,3.49,6.8,-.862,.2912,-3.863e-4,.16645,-1.397e-2
> >> 70 DATA 2.5,4.14,6.9,-.3,.0381,2.409e-2,1.5679e-2,-3.4369e-2
> >> 80 FOR I=0 TO 5
> >> 90 READ GR0(I),GR1(I),GR2(I),A(I),B(I),C(I),A2(I),A3(I)
> >> 100 NEXT I
> >> 110 DIR=0'heatflow direction
> >> 120 IF DIR=-1 THEN DIR$="down"
> >> 130 IF DIR=0 THEN DIR$="horiz"
> >> 140 IF DIR=1 THEN DIR$="up"
> >> 150 DIAG=0'0 for up or down, 1 for diagonal heatflow
> >> 160 IF DIAG=0 THEN DIAG$="no" ELSE DIAG$="yes"
> >> 170 I=2*DIR+DIAG+2'index (0-5, skipping 3)
> >> 180 T1=30'surface 1 temp (F)
> >> 190 T2=70'surface 2 temp (F)
> >> 200 DT=ABS(T2-T1)'temp diff
> >> 210 TBAR=(T1+T2)/2'mean temp
> >> 220 HR=.00686*((TBAR+460)/100)^3'radiation conductance (Btu/h-F-ft^2)
> >> 230 E1=.05'surface 1 emittance
> >> 240 E2=.05'surface 2 emittance
> >> 250 E=1/(1/E1+1/E2-1)'effective emittance
> >> 260 L=3.5'airspace width (inches)
> >> 270
> >> LGR=LOG(DT*L^3)/LOG(10)+3.4146-.004359*TBAR+3.6441E-06*TBAR^2'log10
> >> Grashof 280 IF LGR<LOG(GR0(I))/LOG(10) THEN LNU=0: GOTO 320
> >> 290 IF LGR>=LOG(GR1(I))/LOG(10) THEN LNU=A(I)+B(I)*LGR+C(I)*LGR^2:GOTO
> >> 320'eq 5 300 LNU=A2(I)*(LGR-LOG(GR0(I))/LOG(10))^2
> >> 310 LNU=LNU+A3(I)*(LGR-LOG(GR0(I))/LOG(10))^3'equation 6
> >> 320 NU=10^LNU'Nusselt number
> >> 330 K=.0003053*TBAR+.1575'air conductivity (Btu-in/F-ft^2-F)
> >> 340 HC=K*NU/L'convection conductance
> >> 350 R=1/(E*HR+HC)'US R-value (ft^2-F-h/Btu)
> >> 360 PRINT "gap (in):",L
> >> 370 PRINT "dir:",DIR$,"diag:",DIAG$
> >> 380 PRINT "T1 (F):",T1,"T2 (F):",T2
> >> 390 PRINT "Tmean (F):",TBAR,"dT (F):",DT
> >> 400 PRINT "E1:",E1,"E2:",E2
> >> 410 PRINT "Eeff:",E
> >> 420 PRINT "R-value:",R
>
> >> gap (in): 3.5
> >> dir: horiz diag: no
> >> T1 (F): 30 T2 (F): 70
> >> Tmean (F): 50 dT (F): 40
> >> E1: .05 E2: .05
> >> Eeff: 2.564103E-02
> >> R-value: 2.461726
>
> >> Nick
>
> > Another rap tune?
>
> In Basic....- Hide quoted text -
>
> - Show quoted text -
>Can anyone understand what he posted, will it actualy help
>themselves ! No..its nickys numbers, again.
What version of basic is this, looks like GWBasic or TurboBasic, something I
last used about 15 - 20 years ago. Can you still get it. Have been running
VB.Net last 8 years, and VB6 before that.
If someone could point me in the direction of where to get a suitable
windows version to run this, would be cool to try running the code.
Cheers
Mike (NZ)
|
Page 1 of 3 1 2 3 > last >>
| Similar Threads | Posted | | Recommendation for reflective shade for horizontal skylight | August 4, 2007, 7:42 am |
| Counter Top Materials ? | February 7, 2005, 10:06 am |
| Alternatives to Frost King Insulation or Preferred Insulation for Door Frames, Etc | February 4, 2007, 1:49 pm |
| Age of Wiring based on materials used | August 24, 2005, 10:03 am |
| Difference in stucco materials... | January 10, 2007, 9:45 am |
| Time/Materials Contract | August 13, 2007, 3:56 pm |
| Flat roof materials | February 19, 2008, 12:13 pm |
| skateboard ramp materials? | April 30, 2008, 8:13 am |
| Temporaire water into insulation could affect insulation and floor rafters? | July 10, 2006, 11:03 am |
| Insulation question (greenboard in bathroom, kraft face insulation, etc.) | June 3, 2008, 2:44 pm |
|
|
Yahoo! 
Google 
Windows Live 
del.icio.us 
digg 
Netscape 
XML Sitemap