1 files changed, 27 insertions, 0 deletions
diff --git a/914/CH4/EX4.1/ex4_1.sce b/914/CH4/EX4.1/ex4_1.sce
new file mode 100755
index 000000000..b4031ed58
--- /dev/null
+++ b/914/CH4/EX4.1/ex4_1.sce
@@ -0,0 +1,27 @@
+clc;
+warning('off');
+printf("\n\n example4.1 - pg99");
+// given
+id=2.067;  //[in] - inside diameter
+t=0.154;  //[in] - wall thickness
+od=id+2*t;  //[in] - outer diameter
+a=1.075;  //[in^2] - wall sectional area of metal
+A=a*(1/144);  //[ft^2] - wall sectional area of metal in ft^2
+deltaz=5/12;  //[ft] - length of transfer in z direction
+T2=10+273.15;  //[K] - temperature at the top
+T1=0+273.15;  //[K] - temperature at the bottom
+q=-3.2;  //[Btu/hr] - heat transferred
+deltaT=(T2-T1)+8;  //[degF]
+k=-(q/A)/(deltaT/deltaz);
+printf("\n\n korrect=%fBtu h^-1 ft^-1 degF^-1=17.17 W m^-1 K^-1",k);
+Alm=(2*%pi*deltaz*((od-id)/(2*12)))/log(od/id);  //[ft^2] log mean area
+disp(Alm)
+kincorrect=k*(A/Alm);
+printf("\n\n kincorrect=%fBtu h^-1 ft^-1 degF^-1=0.529 W m^-1 K^-1",kincorrect);
+errorf=(k-kincorrect)/kincorrect;
+disp(errorf,"error factor is-");
+
+
+
+
+