diff options
Diffstat (limited to '779/CH18/EX18.7/18_7.sce')
-rwxr-xr-x | 779/CH18/EX18.7/18_7.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/779/CH18/EX18.7/18_7.sce b/779/CH18/EX18.7/18_7.sce new file mode 100755 index 000000000..7b56e0451 --- /dev/null +++ b/779/CH18/EX18.7/18_7.sce @@ -0,0 +1,11 @@ +P1 = 1.013;
+P2 = 1.5*P1;
+Vs = 0.03; Va = Vs;
+WD = (P2-P1)*Vs*100;
+Pi = (P1+P2)/2;
+g = 1.4;
+Aa = ((g*P1*100*Vs)/(g-1))*((Pi/P1)^((g-1)/g)-1);
+Vb = Va *(P1/Pi)^(1/g);
+Ab = Vb*(P2-Pi)*100;
+WR = Aa+Ab;
+disp("kJ/rev",WR,"Work required is")
|