diff options
Diffstat (limited to '1364/CH4')
| -rwxr-xr-x | 1364/CH4/EX4.1.1/4_1_1.sce | 10 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.2.2/4_2_2.sce | 10 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.3.1/4_3_1.sce | 16 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.4.1/4_4_1.sce | 16 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.4.2/4_4_2.sce | 16 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.5.1/4_5_1.sce | 12 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.5.3/4_5_3.sce | 19 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.6.1/4_6_1.sce | 15 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.7.1/4_7_1.sce | 8 | ||||
| -rwxr-xr-x | 1364/CH4/EX4.8.2/4_8_2.sce | 9 |
10 files changed, 131 insertions, 0 deletions
diff --git a/1364/CH4/EX4.1.1/4_1_1.sce b/1364/CH4/EX4.1.1/4_1_1.sce new file mode 100755 index 000000000..718811988 --- /dev/null +++ b/1364/CH4/EX4.1.1/4_1_1.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+H= 33 //ft lbf/lbf
+Q= 100 //ft^3/min
+w= 62.4 //lbf/ft^3
+s= 0.8
+//CALCULATIONS
+P= s*w*Q*H/33000
+//RESULTS
+printf (' power required= %.2f h.p',P)
diff --git a/1364/CH4/EX4.2.2/4_2_2.sce b/1364/CH4/EX4.2.2/4_2_2.sce new file mode 100755 index 000000000..673bf74a2 --- /dev/null +++ b/1364/CH4/EX4.2.2/4_2_2.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+h= 1 //in
+ww= 62.4 //lbf/ft^3
+w= 0.0764 //lbf/ft^3
+//CALCULATIONS
+u= sqrt(2*g*h*(1/12)*(ww/w))
+//RESULTS
+printf (' speed of air through the tunnel= %.1f ft/sec',u)
diff --git a/1364/CH4/EX4.3.1/4_3_1.sce b/1364/CH4/EX4.3.1/4_3_1.sce new file mode 100755 index 000000000..4991c170d --- /dev/null +++ b/1364/CH4/EX4.3.1/4_3_1.sce @@ -0,0 +1,16 @@ +clc
+//initialisation of variables
+za= 0 //ft
+zb= 12 //ft
+w= 62.3 //lbf/ft^2
+pa= 750 //lbf/in^2
+p= 700 //lbf/in^2
+ua= 3 //ft/sec
+g= 32.2 //ft/sec^2
+d= 2 //in^2
+//CALCULATIONS
+ub= 4*ua
+Hl= (za-zb)+((pa-p)*144/w)+(ua^2-ub^2)/(2*g)
+P= (w*ua*(%pi/4)*Hl*d^2)/(144*550)
+//RESULTS
+printf (' horse-power expended in over coming losses= %.2f h.p',P)
diff --git a/1364/CH4/EX4.4.1/4_4_1.sce b/1364/CH4/EX4.4.1/4_4_1.sce new file mode 100755 index 000000000..a0989fb1a --- /dev/null +++ b/1364/CH4/EX4.4.1/4_4_1.sce @@ -0,0 +1,16 @@ +clc
+//initialisation of variables
+d= 1 //in
+d1= 3 //in
+h= 9 //in
+p= 3 //percent
+g= 32.2 //ft/sec^2
+s= 13.6 //gm/cm^3
+a= 0.97
+//CALCULATIONS
+Ka= 1/(1-(d/d1)^2)
+C= Ka*%pi*(d/2)^2*sqrt(2*g*(s-1))/144
+C1= a*C
+Q= C1*h/12
+//RESULTs
+printf (' flow rate = %.3f ft^3/sec ',Q)
diff --git a/1364/CH4/EX4.4.2/4_4_2.sce b/1364/CH4/EX4.4.2/4_4_2.sce new file mode 100755 index 000000000..e8afd220d --- /dev/null +++ b/1364/CH4/EX4.4.2/4_4_2.sce @@ -0,0 +1,16 @@ +clc
+//initialisation of variables
+Q= 1.4 //ft^3/sec
+d= 6 //in
+d1= 3 //in
+h= 9 //in
+s= 13.6/0.78
+C= 0.96
+g= 32.2 //ft/sec^2
+w= 62.3 //lb/ft^3
+//CALCULATIONS
+h1= (Q*4*12^2/(C*%pi*d1^2))^2*(1-(d1/(2*d))^2)/(2*g*(s-1))
+dpbyw= (h/12)+((s)-1)*h1
+dp= dpbyw*h1*w/144
+//RESULTS
+printf (' pressure difference = %.2f lbf/in^2 ',dp)
diff --git a/1364/CH4/EX4.5.1/4_5_1.sce b/1364/CH4/EX4.5.1/4_5_1.sce new file mode 100755 index 000000000..88b9e8829 --- /dev/null +++ b/1364/CH4/EX4.5.1/4_5_1.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+C= 0.6
+s= 0.0767 //lbf/ft^3
+g= 32.2 //ft/sec^2
+w= 62.4 //lbf/ft^3
+Hw= 0.7 //in
+//CALCULATIONS
+Ha= Hw*w/(s*12)
+Q= C*%pi*sqrt(2*g*Ha)/144
+//RESULTS
+printf (' volumetric flow rate = %.3f ft^3/sec ',Q)
diff --git a/1364/CH4/EX4.5.3/4_5_3.sce b/1364/CH4/EX4.5.3/4_5_3.sce new file mode 100755 index 000000000..7aeee874b --- /dev/null +++ b/1364/CH4/EX4.5.3/4_5_3.sce @@ -0,0 +1,19 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+h= 5 //ft
+Q= 0.6 //ft^3/sec
+Cd= 0.6
+d= 2//in
+Q1= 0.315 //ft^3/sec
+h1= 8 //ft
+h2= 2 //ft
+A= 9 //ft^2
+//CALCULATIONS
+H= Q1^2/((Cd*%pi*(d/24)^2)^2*2*g)
+T= A*2*(sqrt(h1)-sqrt(h2))/(Cd*sqrt(2*g)*60*(d/24)^2)
+dhbyt= (Q-Cd*%pi*(d/24)^2*sqrt(2*g*h))*60*12/(%pi*A)
+//RESULTS
+printf (' depth of the water = %.f ft ',H)
+printf (' \n time taken = %.1f min ',T)
+printf (' \n rate of rise in water = %.1f in/min ',dhbyt)
diff --git a/1364/CH4/EX4.6.1/4_6_1.sce b/1364/CH4/EX4.6.1/4_6_1.sce new file mode 100755 index 000000000..ba0b0efb1 --- /dev/null +++ b/1364/CH4/EX4.6.1/4_6_1.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+d= 8 //in
+d1= 1.5 //in
+Cd= 0.65
+w= 62.3 //lbf.ft^3
+W= 25 //tonf
+u= 5 //miles/hour
+u1= 20 //miles/hour
+//CALCULATIONS
+ds= W*2240*d1^4*Cd^2*log(u1/u)/(w*d^4*%pi*(d/24)^2)
+T= W*2240*d1^4*Cd^2*((5/(u*7.33))-(20/(u1*29.35)))/(w*d^4*%pi*(d/24)^2)
+//RESULTS
+printf (' Distance that piston moves= %.2f ft ',ds)
+printf (' \n time taken = %.4f sec ',T)
diff --git a/1364/CH4/EX4.7.1/4_7_1.sce b/1364/CH4/EX4.7.1/4_7_1.sce new file mode 100755 index 000000000..762ddbf6d --- /dev/null +++ b/1364/CH4/EX4.7.1/4_7_1.sce @@ -0,0 +1,8 @@ +clc
+//initialisation of variables
+c= 0.002378 //slug/ft^3
+u= 420 //mile/hour.
+//CALCULATIONS
+P= 0.5*c*u*616^2/420
+//RESULTS
+printf (' Dynamic pressure= %.f lbf/ft^2 ',P)
diff --git a/1364/CH4/EX4.8.2/4_8_2.sce b/1364/CH4/EX4.8.2/4_8_2.sce new file mode 100755 index 000000000..daa10b776 --- /dev/null +++ b/1364/CH4/EX4.8.2/4_8_2.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+A= 13 //in^2
+l= 10 //in^1.5
+//CALCULATIONS
+Q= 2*%pi*1.05*sqrt(2*g*12)*A*l/1728
+//RESULTS
+printf (' Rate of flow= %.1f ft^3/sec ',Q)
|