1 files changed, 23 insertions, 0 deletions
diff --git a/3821/CH14/EX14.14/Example14_14.sce b/3821/CH14/EX14.14/Example14_14.sce
new file mode 100644
index 000000000..91a3dd5fc
--- /dev/null
+++ b/3821/CH14/EX14.14/Example14_14.sce
@@ -0,0 +1,23 @@
+////Chapter No 14 Air Standard Cycles
+////Example No 14.14 Page No 317
+///Find air standard efficiency
+//Input data
+clc;
+clear;
+T1=50+273;          //Temperature at the beginning of the compression
+T2=700+273;         //Temperature at the end of the compression
+T3=2000+273;        //Temperature at the beginning of the expansion
+gamma1=1.4;
+
+//Calculation
+r=((T2/T1)^(1/(gamma1-1))); //Compression ratio 
+rho=(T3/T2);                //Cut-off ratio
+K=((rho-1)/(r-1));          //Also cut-off ratio
+//Air standard efficiency
+eta=(1-(1/r^(gamma1-1))*((1/gamma1)*(((rho^(gamma1))-1)/(rho-1))))*100;
+
+//Output
+printf('compression ratio= %f \n',r);
+printf('cut-off ratio= %f \n',rho);
+printf('also cut-off ratio= %f \n',K);
+printf('air standard efficiency= %f percent',eta);