1 files changed, 25 insertions, 0 deletions
diff --git a/680/CH4/EX4.04/4_04.sce b/680/CH4/EX4.04/4_04.sce
new file mode 100755
index 000000000..b892a5a56
--- /dev/null
+++ b/680/CH4/EX4.04/4_04.sce
@@ -0,0 +1,25 @@
+//Problem 4.04:
+
+//initializing the variables:
+r1 = 5000; // in scfm
+r2 = 3000; // in scfm
+T1 = 60; // in deg F
+T2 = 70; // in deg F
+Ti = 2000; // in F
+To = 180; // in F
+MWchcl = 112.5; 
+MWair = 29;
+
+//calculation:
+//convert scfm to acfm using Charle's law
+R1 = r1*(460 + T2)/(460 + T1)
+R2 = r2*(460 + T2)/(460 + T1)
+ndt1 = R1/387
+ndt2 = R2/387
+mdt1 = ndt1*MWchcl*60
+mdt2 = ndt2*MWair*60
+mdtin = mdt1 + mdt2
+mdtout = mdtin
+
+printf("\n\nResult\n\n")
+printf("\n products exit the cooler at %.0f lb/h",mdtout)
+\ No newline at end of file