diff options
Diffstat (limited to '1309/CH2/EX2.6')
| -rwxr-xr-x | 1309/CH2/EX2.6/Result2_6.pdf | bin | 0 -> 91400 bytes | |||
| -rwxr-xr-x | 1309/CH2/EX2.6/ch2_6.sce | 18 |
2 files changed, 18 insertions, 0 deletions
diff --git a/1309/CH2/EX2.6/Result2_6.pdf b/1309/CH2/EX2.6/Result2_6.pdf Binary files differnew file mode 100755 index 000000000..56478a8c4 --- /dev/null +++ b/1309/CH2/EX2.6/Result2_6.pdf diff --git a/1309/CH2/EX2.6/ch2_6.sce b/1309/CH2/EX2.6/ch2_6.sce new file mode 100755 index 000000000..fccda732a --- /dev/null +++ b/1309/CH2/EX2.6/ch2_6.sce @@ -0,0 +1,18 @@ +clc;
+clear;
+printf("\t\t\tChapter2_example6\n\n\n");
+// Determination of the overall heat transfer coefficient
+k12=24.8; // thermal conductivity of 1C steel in BTU/(hr.ft.degree Rankine)from appendix table B2
+k23=.023; // // thermal conductivity of glass wool insulation in BTU/(hr.ft.degree Rankine)from appendix table B3
+// Specifications of 6 nominal, schedule 40 pipe (no schedule was specified, so the standard is assumed) from appendix table F1 are as follows
+D2=6.625/12; // outer diameter in ft
+D1=0.5054; // inner diameter in ft
+printf("\nOuter diameter is %.3f ft",D2);
+printf("\nInner diameter is %.4f ft",D1);
+t=2/12; // wall thickness of insulation in ft
+D3=D2+t;
+printf("\nDiameter including thickness is %.5f ft",D3);
+hc1=12; // convection coefficient between the air and the pipe wall in BTU/(hr. sq.ft.degree Rankine).
+hc2=1.5; // convection coefficient between the glass wool and the ambient air in BTU/(hr. sq.ft.degree Rankine).
+U=1/((1/hc1)+(D1*log(D2/D1)/k12)+(D1*log(D3/D2)/k23)+(D1/(hc2*D3)));
+printf("\nOverall heat transfer coefficient is %.3f BTU/(hr. sq.ft.degree Fahrenheit)",U);
|