diff options
Diffstat (limited to '1268/CH9')
| -rw-r--r-- | 1268/CH9/EX9.1/9_1.sce | 10 | ||||
| -rw-r--r-- | 1268/CH9/EX9.2/9_2.sce | 11 | ||||
| -rw-r--r-- | 1268/CH9/EX9.3/9_3.sce | 12 | ||||
| -rw-r--r-- | 1268/CH9/EX9.4/9_4.sce | 11 | ||||
| -rw-r--r-- | 1268/CH9/EX9.5/9_5.sce | 7 |
5 files changed, 51 insertions, 0 deletions
diff --git a/1268/CH9/EX9.1/9_1.sce b/1268/CH9/EX9.1/9_1.sce new file mode 100644 index 000000000..31a3a62db --- /dev/null +++ b/1268/CH9/EX9.1/9_1.sce @@ -0,0 +1,10 @@ +clc;
+disp("Example 9.1")
+density=1000 // in kg/m^3
+densitys=900 // in kg/m^3
+delh=0.025
+g=9.81
+delP=delh*g*(density-densitys)
+vmax=0.98*((2*delP/densitys)^0.5)
+vavg=0.85*vmax
+disp(vavg,"Average velocity is ")
diff --git a/1268/CH9/EX9.2/9_2.sce b/1268/CH9/EX9.2/9_2.sce new file mode 100644 index 000000000..b335fff59 --- /dev/null +++ b/1268/CH9/EX9.2/9_2.sce @@ -0,0 +1,11 @@ +clc;
+disp("Example 9.2")
+density= 1000 // in kg/m^3
+densitym=13600 // of mercury in kg/m^3
+c=0.62 // orifice coefficient
+b=0.5
+U=135.6/60 // velocity in m/s
+delP= ((U*((1-b^4)^0.5)/c)^2)*density/2
+g=9.81
+R=delP/(g*(densitym-density))
+disp(R,"Reading on the manometer is ")
diff --git a/1268/CH9/EX9.3/9_3.sce b/1268/CH9/EX9.3/9_3.sce new file mode 100644 index 000000000..79ab6a783 --- /dev/null +++ b/1268/CH9/EX9.3/9_3.sce @@ -0,0 +1,12 @@ +clc;
+disp("Example 9.3")
+reading=0.35 // of manometer in m
+g=9.81
+densitym=13600 /// in kg/m^3
+density=1200 // of water in kg/m^3
+delP=g*reading*(densitym-density)
+U=0.61*((2*delP/density)^0.5)
+Q=0.01
+A=Q/U
+d=(A*4/%pi)^0.5
+disp(d,"The orifice size is ")
diff --git a/1268/CH9/EX9.4/9_4.sce b/1268/CH9/EX9.4/9_4.sce new file mode 100644 index 000000000..f7b1ab67a --- /dev/null +++ b/1268/CH9/EX9.4/9_4.sce @@ -0,0 +1,11 @@ +clc;
+disp("Example 9.4")
+reading=9.7e-3 // of manometer in m
+g=9.81
+densitym=13600 /// in kg/m^3
+density=1200 // of water in kg/m^3
+delP=g*reading*(densitym-density)
+U=84/60
+b=0.333
+c=U*((density*(1-b^4)/(2*delP))^0.5)
+disp(c,"The venturi coefficient is ")
diff --git a/1268/CH9/EX9.5/9_5.sce b/1268/CH9/EX9.5/9_5.sce new file mode 100644 index 000000000..f02b807d4 --- /dev/null +++ b/1268/CH9/EX9.5/9_5.sce @@ -0,0 +1,7 @@ +clear;
+disp("Example 9.5")
+U=10 // in m/s
+density=1000
+C=0.61
+delP=(U*(density^0.5)/(C*(2^0.5)))^2
+disp(delP,"Pressure loss is ")
|