2 files changed, 44 insertions, 0 deletions
diff --git a/2504/CH14/EX14.1/14_1.sce b/2504/CH14/EX14.1/14_1.sce
new file mode 100755
index 000000000..e23cda12e
--- /dev/null
+++ b/2504/CH14/EX14.1/14_1.sce
@@ -0,0 +1,27 @@
+clc
+//initialisation of variables
+clear
+a= 60.5
+Q= 0.2 //ft^3/sec
+d= 3 //in
+u= 0.0325
+g= 32.2 //ft/sec^2
+T= [50.0 60.0 70.0 80.0 90.0 100.0]
+Ep= [294.5 188.6 113.2 60.4 37.7 24.5]
+Eh= [0 69.9 139.8 209.7 279.5 349.4]
+Et= [295 258 253 270 317 374]
+//CALCULATIONS
+re= a*4*Q/(%pi*(d/12)*u*g)
+//RESULTS
+printf ('Reynolds Number = %.1f ',re)
+disp(T)
+disp(Ep)
+disp(Eh)
+disp(Et)
+plot(T,Ep)
+plot(T,Eh)
+plot(T,Et)
+
+xtitle("","T (F)", "Eh,Ep,Eh&Ep (kW)")
+
+
diff --git a/2504/CH14/EX14.2/14_2.sce b/2504/CH14/EX14.2/14_2.sce
new file mode 100755
index 000000000..526b670c3
--- /dev/null
+++ b/2504/CH14/EX14.2/14_2.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+clear
+wcb= 2 //ton
+wc= 100 //ton
+wa= 6.5 //ton
+wca= 20 
+r= 0.8
+r1= 1.2
+//CALCULATIONS
+wca1= wc/wa
+wca2= wcb*(wca1/wca)^1.5
+Wca= wcb*r^(9/4)*(1/r1)^(9/4)*(wca1/wca)^1.5
+//RESULTS
+printf ('(Wc/W)a = %.2f ',wca1)
+printf ('\n Wc,a = %.2f ton',wca2)
+printf ('\n Wc,a = %.2f ton',Wca)