1 files changed, 21 insertions, 0 deletions
diff --git a/3821/CH14/EX14.7/Example14_7.sce b/3821/CH14/EX14.7/Example14_7.sce
new file mode 100644
index 000000000..68825c667
--- /dev/null
+++ b/3821/CH14/EX14.7/Example14_7.sce
@@ -0,0 +1,21 @@
+////Chapter No 14 Air Standard Cycles
+////Example No 14.7 Page No  309
+///Find Swept volume
+//Input data
+clc;
+clear;
+D=200*10^-3;                   //Otto cycle cylindrical bore in mm
+L=450*10^-3;                   //Otto cycle Stroke in mm
+vc=2*10^-3;                    //Clearance volume in mm^3
+gamma1=1.4;
+pi=3.142;
+
+//Calculation
+vs=(pi/4)*(D^2*L);             //Swept volume
+r=((vs+vc)/vc);                 //Compression ratio
+eta=100*(1-(1/(r**(gamma1-1)))); //Standard efficiency
+
+//Output
+printf('Swept volume= %f m^3 \n',vs);
+printf('compression ratio= %f \n',r);
+printf('standard efficiency= %f percent \n',eta);