{VERSION 3 0 "SUN SPARC SOLARIS" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 0 
0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 48 "Example 14.4-1. Estimati
on of the Solar Constant" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 54 "Part a - for two disks with no other surfaces present:
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 41 "Q[12]:=A[1]*F[12]*sigma*(T[1]^4-T[2]^4); " }
{TEXT -1 66 "this is eqn. 14.4-9 which was also shown in the discussio
n section" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"QG6#\"#7**&%\"AG6#\"
\"\"F,&%\"FGF&F,%&sigmaGF,,&*$)&%\"TGF+\"\"%\"\"\"F,*$)&F46#\"\"#F5F6!
\"\"F," }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 209 "Knowing the disk diame
ter is 2 ft. and the distance between them is 4 ft., it is possible to
 use curve 1 of the chart below and the ratio 2/4 to find the view fac
tor. The view factor F12 is approximately 0.06." }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 103 "r:=d/2; d:=2*ft; A[1]:=Pi*r^2; F[12]:=.06; si
gma:=.1712e-8*Btu/hr/ft^2/R^4; T[1]:=2000*R; T[2]:=1000*R;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"rG%#ftG" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"dG,$%#ftG\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"AG6#\"\"
\"*&%#PiGF')%#ftG\"\"#\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"F
G6#\"#7$\"\"'!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&sigmaG,$*&%$Bt
uG\"\"\"*(%#hrG\"\"\")%#ftG\"\"#F()%\"RG\"\"%F(!\"\"$\"%7<!#7" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"TG6#\"\"\",$%\"RG\"%+?" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%\"TG6#\"\"#,$%\"RG\"%+5" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 16 "simplify(Q[12]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,$*&%$BtuG\"\"\"%#hrG!\"\"$\"+hfcS[!\"'" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 54 "Part b - two disks connected by a cylindr
ical surface:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 144 "The only differ
ence in this part is that rather than using F12, use F12bar, again usi
ng the chart above to find it with the ratio still at 0.5. " }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "Fbar[12]:=.34; " }{TEXT -1 
34 "found from the chart using curve 5" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>&%%FbarG6#\"#7$\"#M!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 43 "Q[12]:=A[1]*Fbar[12]*sigma*(T[1]^4-T[2]^4);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>&%\"QG6#\"#7,$*&*&%#PiG\"\"\"%$BtuGF,\"\"\"%#hrG!\"
\"$\"+++?J()!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "simplif
y(Q[12]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&%$BtuG\"\"\"%#hrG!\"
\"$\"+yt)Hu#!\"&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "Which also ag
rees relatively closely to the book's value." }{MPLTEXT 1 0 0 "" }}}}
{MARK "12" 0 }{VIEWOPTS 1 1 0 1 1 1803 }