1 files changed, 13 insertions, 0 deletions
diff --git a/172/CH12/EX12.4/ex4.sce b/172/CH12/EX12.4/ex4.sce
new file mode 100755
index 000000000..58b5c9499
--- /dev/null
+++ b/172/CH12/EX12.4/ex4.sce
@@ -0,0 +1,13 @@
+//ques4
+//Calculation of work in the given cycle
+clear
+clc
+R=0.287;//gas constant 
+T1=288.2;//compressor temperature K
+T2=1373.2;//K turbine temperature K
+//Pe/Pi=c=10, Pi/Pe=1/c from example 12.1
+c=10;
+wc=-R*T1*log(c);
+printf('Isothermal work in compressor = %.1f kJ/kg \n',wc);
+wt=-R*T2*log(1/c);
+printf(' Isothermal work in turbine = %.1f kJ/kg\n',wt); 
+\ No newline at end of file