1 files changed, 19 insertions, 0 deletions
diff --git a/551/CH13/EX13.23/23.sce b/551/CH13/EX13.23/23.sce
new file mode 100755
index 000000000..20d2f678f
--- /dev/null
+++ b/551/CH13/EX13.23/23.sce
@@ -0,0 +1,19 @@
+clc
+Vs=0.0053; //m^3
+Vc=0.00035; //m^3
+V3=Vc;
+V2=V3;
+p3=65; //bar
+p4=65; //bar
+T1=353; //K
+p1=0.9; //bar
+y=1.4;
+
+r=(Vs+Vc)/Vc;
+rho=(5/100*Vs+V3)/V3;
+p2=p1*(r)^y;
+B=p3/p2;
+
+n_dual=1-1/r^(y-1)*[(B*rho^y-1)/((B-1)+B*y*(rho-1))];
+disp("Efficiency of the cycle =")
+disp(n_dual)
+\ No newline at end of file