summaryrefslogtreecommitdiff
path: root/779/CH18/EX18.7/18_7.sce
diff options
context:
space:
mode:
Diffstat (limited to '779/CH18/EX18.7/18_7.sce')
-rwxr-xr-x779/CH18/EX18.7/18_7.sce11
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")