2 files changed, 34 insertions, 0 deletions
diff --git a/1466/CH12/EX12.1/12_1.sce b/1466/CH12/EX12.1/12_1.sce
new file mode 100755
index 000000000..e07a7a464
--- /dev/null
+++ b/1466/CH12/EX12.1/12_1.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialisation of variables
+nw=0.01//cgs units
+na=0.00015//cgs units
+pw=62.4//lb/ft^3
+pa=0.075//lb/ft^3
+vw=10//ft/sec
+dw=1
+da=3
+hf1=70//ft
+l1=100//ft
+g=32.2//ft/sec^2
+D=1/12
+l2=60//ft
+d2=1/4
+//CALCULATIONS
+va=pw*dw*vw*na/(pa*da*nw)
+f=hf1*2*g*D/(4*l1*vw*vw)
+hf2=4*f*l2*va*va/(2*g*d2)
+//RESULTS
+printf (' loss of head= %.f ft of air',hf2)
diff --git a/1466/CH12/EX12.2/12_2.sce b/1466/CH12/EX12.2/12_2.sce
new file mode 100755
index 000000000..9fe06f4ff
--- /dev/null
+++ b/1466/CH12/EX12.2/12_2.sce
@@ -0,0 +1,12 @@
+
+clc
+//initialisation of variables
+v=90//ft/sec
+Rm=0.5//lb
+r=1/20
+//CALCULATIONS
+v1=v*sqrt(r)
+R=((1/r)^3)*Rm
+//RESULTS
+printf (' corresponding speed of model= %.2f ft/sec',v1)
+printf (' \n resistance= %.f Lb',R)