diff options
Diffstat (limited to '51/CH5/EX5.2/5_2.sce')
-rwxr-xr-x | 51/CH5/EX5.2/5_2.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/51/CH5/EX5.2/5_2.sce b/51/CH5/EX5.2/5_2.sce new file mode 100755 index 000000000..e70c9014e --- /dev/null +++ b/51/CH5/EX5.2/5_2.sce @@ -0,0 +1,13 @@ +clc;
+clear;
+v2=1000;//ft/sec
+p1=100;//psia
+p2=18.4;//psia
+T1=540;//degree R
+T2=453;//degree R
+dia=4;//inches
+//m1=m2
+//d1*A1*v1=d2*A2*v2
+//A1=A2 and d=p/(R*T); since air at pressures and temperatures involved behaves as an ideal gas
+v1=p2*T1*v2/(p1*T2);
+disp("ft/sec",v1,"Velocity at section 1 =")
|