1 files changed, 24 insertions, 0 deletions
diff --git a/3821/CH14/EX14.2/Example14_2.sce b/3821/CH14/EX14.2/Example14_2.sce
new file mode 100644
index 000000000..dea73eede
--- /dev/null
+++ b/3821/CH14/EX14.2/Example14_2.sce
@@ -0,0 +1,24 @@
+////Chapter No 14 Air Standard Cycles
+////Example 2 Page No:302
+///Find Engin work on carnot cycle
+//Input data
+clc;
+clear;
+QR=1.5;                 //tau=QS-QR
+                        //T=Tmax-Tmin
+T=300;                  //temperature limit of the cycle in degree celsius
+
+
+//Calculation
+//QR=1.5*(QS-QR)
+QR=(1.5/2.5);           //Engin work on carnot cycle
+eta=(1-QR);             //Thermal effeciency
+Tmax=round((T/eta)-273.15);    //Maximum temperataure
+Tmin=(Tmax-T);          //Minimum temperataure
+
+
+//Output
+printf('Engin work on carnot cycle= %f QS \n',QR);
+printf('Thermal effeciency= %f percent \n',100*eta);
+printf('Maximum temperataure= %f degree celsius \n ',Tmax);
+printf('Minimum temperataure= %f degree celsius \n ',Tmin);