diff options
Diffstat (limited to '914/CH7/EX7.8/ex7_8.sce')
| -rwxr-xr-x | 914/CH7/EX7.8/ex7_8.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/914/CH7/EX7.8/ex7_8.sce b/914/CH7/EX7.8/ex7_8.sce new file mode 100755 index 000000000..95f469c47 --- /dev/null +++ b/914/CH7/EX7.8/ex7_8.sce @@ -0,0 +1,18 @@ +clc;
+warning("off");
+printf("\n\n example7.8 - pg293");
+// given
+Q=0.03; //[m^3/sec] - volumetric flow rate
+id=7; //[cm] - inside diameter
+deltaz=-7; //[m] - length of pipe
+T1=25; //[degC] - lowere side temperature
+T2=45; //[degC] - higher side temperature
+g=9.81; //[m/sec^2] - acceleration due to gravity
+deltaP=4*10^4; //[N/m^2] - pressure loss due to friction
+p=1000; //[kg/m^3] - density of water
+w=Q*p;
+C=4184; //[J/kg*K) - heat capacity of water
+deltaH=w*C*(T2-T1);
+// using the formula Qh=deltaH+w*g*deltaz
+Qh=deltaH+w*g*deltaz;
+printf("\n\n the duty on heat exchanger is \n Q=%6eJ/sec",Qh);
|