1 files changed, 24 insertions, 0 deletions
diff --git a/1808/CH4/EX4.9/Chapter4_Example9.sce b/1808/CH4/EX4.9/Chapter4_Example9.sce
new file mode 100644
index 000000000..334c60417
--- /dev/null
+++ b/1808/CH4/EX4.9/Chapter4_Example9.sce
@@ -0,0 +1,24 @@
+clc
+clear
+//INPUT DATA
+p1=100;//Boiler pressure in Bar 
+p2=20;//low pressure turbine pressure in Bar
+p3=0.1;//condenser pressure in Bar
+T=500;//Temperature inlet to turbine in Degree C
+h1=3373.7;//Enthalpy in kJ/kg
+h2=2797.2;//Enthalpy in kJ/kg
+h5=191.8;//Enthalpy in kJ/kg
+h9=2584.7;//Enthalpy in kJ/kg
+S5=0.649;//Entropy in kJ/kg.K
+S9=8.15;//Entropy in kJ/kg.K
+Wn=1500;//Net work done in kJ/kg
+nRi=401;//Rankine efficiency in percentage 
+
+
+//CALCULATIONS
+Qs=(Wn/nRi)*1000;//heat supplied in kJ/kg
+h3=Qs-(h1-h5-h2);//Enthalpy in kJ/kg
+t3=450+(((h3-3357.5)*(T-450))/(3467.6-3357.5));//Temperature in degree C
+
+//OUTPUT
+printf('Temperature of steam leaving is %3.2f degree C',t3)