diff options
Diffstat (limited to '1309/CH12/EX12.8')
| -rwxr-xr-x | 1309/CH12/EX12.8/Result12_8.pdf | bin | 0 -> 91103 bytes | |||
| -rwxr-xr-x | 1309/CH12/EX12.8/ch12_8.sce | 24 |
2 files changed, 24 insertions, 0 deletions
diff --git a/1309/CH12/EX12.8/Result12_8.pdf b/1309/CH12/EX12.8/Result12_8.pdf Binary files differnew file mode 100755 index 000000000..e729a7b95 --- /dev/null +++ b/1309/CH12/EX12.8/Result12_8.pdf diff --git a/1309/CH12/EX12.8/ch12_8.sce b/1309/CH12/EX12.8/ch12_8.sce new file mode 100755 index 000000000..ac436d2e1 --- /dev/null +++ b/1309/CH12/EX12.8/ch12_8.sce @@ -0,0 +1,24 @@ +clc; +clear; +printf("\t\t\tChapter12_example8\n\n\n"); +// Determination of the net heat exchanged between the dish and the surroundings by radiation at the instant the dish is removed from the oven. Perform the calculations (a) if the dish and surroundings behave like black bodies, and again (b) if the dish has an emissivity of 0.82 and the surroundings have an emissivity of 0.93. +D=12/12; // diameter in ft +L=6/12; // length in ft +A=2*%pi*D^2/4+%pi*D*L; +printf("\nThe Surface area is %.2f sq.ft",A); +printf("\n\t\t\tSolution to part (a)\n"); +F12=1; // the view factor between the dish and the surroundings is unity +T1=810; +T2=530; +sigma=0.1714e-8; // Stefan-Boltzmann constant +q1=sigma*A*(T1^4-T2^4)*F12; +printf("\nThe heat exchanged between the dish and the surroundings is %d BTU/hr",q1); +printf("\n\t\t\tSolution to part (b)\n"); +// For gray-surface behavior, we can apply the following Equation +// q1/(A1e1)-[F11*(q1/A1)*(1-e1)/e1+F12*(q2/A2)*(1-e2)/e2]=sigma*T1^4-(F11*sigma*T1^4+F12*sigma*T2^4)... equation (1) +F11=0; +e1=0.82; +e2=0.93; +// putting q2/A2=0 in equation (1) as A2 tends to infinity +q1_=A*e1*[sigma*T1^4-F12*sigma*T2^4]; +printf("\nThe heat exchanged between the dish and the surroundings for the second case is %d BTU/hr",q1_); |