diff options
Diffstat (limited to '1808/CH4')
| -rw-r--r-- | 1808/CH4/EX4.1/Chapter4_Example1.sce | 29 | ||||
| -rw-r--r-- | 1808/CH4/EX4.10/Chapter4_Example10.sce | 43 | ||||
| -rw-r--r-- | 1808/CH4/EX4.11/Chapter4_Example11.sce | 39 | ||||
| -rw-r--r-- | 1808/CH4/EX4.12/Chapter4_Example12.sce | 37 | ||||
| -rw-r--r-- | 1808/CH4/EX4.13/Chapter4_Example13.sce | 35 | ||||
| -rw-r--r-- | 1808/CH4/EX4.2/Chapter4_Example2.sce | 31 | ||||
| -rw-r--r-- | 1808/CH4/EX4.3/Chapter4_Example3.sce | 36 | ||||
| -rw-r--r-- | 1808/CH4/EX4.4/Chapter4_Example4.sce | 35 | ||||
| -rw-r--r-- | 1808/CH4/EX4.5/Chapter4_Example5.sce | 29 | ||||
| -rw-r--r-- | 1808/CH4/EX4.6/Chapter4_Example6.sce | 38 | ||||
| -rw-r--r-- | 1808/CH4/EX4.7/Chapter4_Example7.sce | 34 | ||||
| -rw-r--r-- | 1808/CH4/EX4.8/Chapter4_Example8.sce | 35 | ||||
| -rw-r--r-- | 1808/CH4/EX4.9/Chapter4_Example9.sce | 24 |
13 files changed, 445 insertions, 0 deletions
diff --git a/1808/CH4/EX4.1/Chapter4_Example1.sce b/1808/CH4/EX4.1/Chapter4_Example1.sce new file mode 100644 index 000000000..58013114e --- /dev/null +++ b/1808/CH4/EX4.1/Chapter4_Example1.sce @@ -0,0 +1,29 @@ +clc
+clear
+//INPUT DATA
+p=(100*10^3);//Rate of heat source in kW
+P1=40;//Boiler pressure in bar
+P2=0.1;//Condenser pressure in bar
+S1=6.0685;//Entropy in kJ/kg.K
+S3=0.649;//Entropy in kJ/kg.K
+S5=8.15;//Entropy in kJ/kg.K
+h1=2800.5;//Enthalpy in kJ/kg
+h2=1920.67;//Enthalpy in kJ/kg
+h3=191.8;//Enthalpy in kJ/kg
+h5=2584.7;//Enthalpy in kJ/kg
+v3=0.001001;//Specific volume in m^3/kg
+
+
+//CALCULATIONS
+x2=(S1-S3)/(S5-S3);//quality of steam
+h2=h3+(x2*(h5-h3));//Enthalpy in kJ/kg
+Wp=v3*(P1-P2);//Pump work in kJ/kg
+h4=h3+Wp;//Enthalpy in kJ/kg
+n=(((h1-h2)-(h4-h3))/(h1-h4))*100;//Ideal cycle efficiency
+rw=((h1-h2)-(h4-h3))/(h1-h2);//Work ratio
+m=p/(h1-h4);//Mass flow rate in kg/s
+P=m*((h1-h2)-(h4-h3));//Output power in kW
+ssc=(m*3600)/P;//Specific flow rate of steam in kg/kW.hr
+
+//OUTPUT
+printf('(i) The cycle efficiency is %3.2f percent \n(ii) The work ratio is %f \n(iii)The required mass flow rate is %3.2f kg/s \n(iv) The power output is %3.1f kW \n(v) The specific flow rate of steam is %3.2f kg/kW.hr',n,rw,m,P,ssc)
diff --git a/1808/CH4/EX4.10/Chapter4_Example10.sce b/1808/CH4/EX4.10/Chapter4_Example10.sce new file mode 100644 index 000000000..03018163c --- /dev/null +++ b/1808/CH4/EX4.10/Chapter4_Example10.sce @@ -0,0 +1,43 @@ +clc
+clear
+//INPUT DATA
+p1=100;//pressure in bar
+p2=10;//pressure in bar
+p3=0.1;//pressure in bar
+T1=500;//Temperature of turbine in Degree C
+T2=450;//Temperature of turbine in Degree C
+h1=3240.9;//Enthalpy in kJ/kg
+h4=3370.7;//Enthalpy in kJ/kg
+h3=2776.2;//Enthalpy in kJ/kg
+h10=762.6;//Enthalpy in kJ/kg
+h6=191.8;//Enthalpy in kJ/kg
+h9=2584.7;//Enthalpy in kJ/kg
+S1=6.419;//Entropy in kJ/kg.K
+S4=7.618;//Entropy in kJ/kg.K
+S3=6.5828;//Entropy in kJ/kg.K
+S10=2.1382;//Entropy in kJ/kg.K
+S6=0.649;//Entropy in kJ/kg.K
+S9=8.15;//Entropy in kJ/kg.K
+nt=0.8;//Turbine efficiency in percentage
+v6=0.001001;//Specific volume in m^3/kg
+P=100000;//power output in kW
+
+
+//CALCULATIONS
+x2=((S1-S10)/(S3-S10));//quality of steam
+h2=h10+(x2*(h3-h10));//Enthalpy in kJ/kg
+h21=h1-(nt*(h1-h2));//Enthalpy in kJ/kg
+x5=((S4-S6)/(S9-S6));//quality of steam
+h5=h6+(x5*(h9-h6));//Enthalpy in kJ/kg
+h51=h4-(nt*(h4-h5));//Enthalpy in kJ/kg
+Wt=(h1-h21)+(h4-h51);//Turbine work in kJ/kg
+h7=h6+(v6*(p1-p3)*100);//Enthalpy in kJ/kg
+Wp=(h7-h6);//Pump work in kJ/kg
+Qs=(h1-h7)+(h4-h21);//heat supplied in kJ/kg
+nRi=((Wt-Wp)/Qs)*100;//Cycle efficiency
+m=P/(Wt-Wp);//mass flow rate in kg/s
+Qr=(h51-h6)*m;//rate of heat transfer from condenser in kW
+
+//OUTPUT
+printf('(i)Thermal efficiency is %3.2f percent \n (ii)Mass flow rate is %3.2f kg/s \n (iii)Rate of heat transfer from the condenser %3.2f kW',nRi,m,Qr)
+
diff --git a/1808/CH4/EX4.11/Chapter4_Example11.sce b/1808/CH4/EX4.11/Chapter4_Example11.sce new file mode 100644 index 000000000..7df8944bf --- /dev/null +++ b/1808/CH4/EX4.11/Chapter4_Example11.sce @@ -0,0 +1,39 @@ +clc
+clear
+//INPUT DATA
+p1=90;//pressure in bar
+p2=9;//pressure in bar
+p3=0.1;//pressure in bar
+T=450;//Temperature in Degree C
+h1=2956.6;//Enthalpy in kJ/kg
+S1=6.036;//Entropy in kJ/kg.K
+h9=2772.1;//Enthalpy in kJ/kg
+h6=742.6;//Enthalpy in kJ/kg
+S9=6.6192;//Entropy in kJ/kg.K
+S6=2.0941;//Entropy in kJ/kg.K
+V6=0.001121;//Specific volume in m^3/kg
+h10=2584.7;//Enthalpy in kJ/kg
+h4=191.8;//Enthalpy in kJ/kg
+S10=8.15;//Entropy in kJ/kg.K
+S4=0.649;//Entropy in kJ/kg.K
+V4=0.001001;//Specific volume in m^3/kg
+P=120000;//power output in kW
+
+//CALCULATIONS
+x2=((S1-S6)/(S9-S6));//quality of steam
+x3=((S1-S4)/(S10-S4));//quality of steam
+h2=h6+(x2*(h9-h6));//Enthalpy in kJ/kg
+h3=h4+(x3*(h10-h4));//Enthalpy in kJ/kg
+h5=h4+(V4*(p1-p3))*100;//Enthalpy in kJ/kg
+Wp1=h5-h4;//Pump work in kJ/kg
+h7=h6+(V6*(p1-p2))*100;//Enthalpy in kJ/kg
+Wp2=h7-h6;//Pump work in kJ/kg
+m1=((h6-h5)/(h2-h5));//Mass flow rate in kJ/s
+Wt=(h1-h2)+((1-m1)*(h2-h3));//Turbine work in kJ/kg
+Wp=(h7-h6)+((1-m1)*(h5-h4));//Pump work in kJ/kg
+Qs=(h1-h7);//heat supplied in kJ/kg
+nR=((Wt-Wp)/Qs)*100;//Rankine efficiency in percentage
+m=P/(Wt-Wp);//mass flow rate in kJ/s
+
+//OUTPUT
+printf('(i) The Thermal efficiency is %3.3f percent \n (ii) Mass flow rate of steam entering to the turbine is %3.2f kg/s ',nR,m)
diff --git a/1808/CH4/EX4.12/Chapter4_Example12.sce b/1808/CH4/EX4.12/Chapter4_Example12.sce new file mode 100644 index 000000000..2364593bc --- /dev/null +++ b/1808/CH4/EX4.12/Chapter4_Example12.sce @@ -0,0 +1,37 @@ +clc
+clear
+//INPUT DATA
+p1=5;//pressure in bar
+p2=0.1;//pressure in bar
+m=5;//mass flow rate in kJ/s
+h4=191.8;//Enthalpy in kJ/kg
+h10=2584.7;//Enthalpy in kJ/kg
+S4=0.649;//Entropy in kJ/kg.K
+S10=8.15;//Entropy in kJ/kg.K
+V4=0.001001;//Specific volume in m^3/kg
+h6=640.1;//Enthalpy in kJ/kg
+h9=2747.5;//Enthalpy in kJ/kg
+S6=1.8604;//Entropy in kJ/kg.K
+S9=6.8192;//Entropy in kJ/kg.K
+x2=0.9;//Quality of steam
+Qs=70000;//heat added in boiler in kW
+
+
+//CALCULATIONS
+h2=h6+(x2*(h9-h6));//Enthalpy in kJ/kg
+h5=h4+(V4*(p1-p2));//Enthalpy in kJ/kg
+Wp1=h5-h4;//Pump work in kJ/kg
+mf=((m*(h2-h5))/(h6-h5));//mass flow rate in kJ/s
+h1=((Qs/mf)+h6);//Enthalpy in kJ/kg
+S2=S6+(x2*(S9-S6));//Entropy in kJ/kg.K
+x3=((S2-S4)/(S10-S4));//quality of steam
+h3=h4+(x3*(h10-h4));//Enthalpy in kJ/kg
+Wt=(mf*(h1-h2))+(mf-m)*(h2-h3);//Turbine work in kJ/kg
+nR=((Wt-Wp1)/Qs)*100;//thermal efficiency in percentage
+Wn=Wt-Wp1;//work in kJ/s
+ssc=(mf*3600)/Wn;//specific steam consumption in kg/kW.hr
+R=Wn/Wt;//Work ratio
+
+//OUTPUT
+printf('(i) The Mass flow rate of steam is %3.1f kg/s \n (ii) Thermal efficiency of rankine cycle is %3.1f percentage \n (iii) Specific steam consumption is %3.2f kg/kWhr \n (iv) Work ratio is approximately equal to %f',mf,nR,ssc,R)
+
diff --git a/1808/CH4/EX4.13/Chapter4_Example13.sce b/1808/CH4/EX4.13/Chapter4_Example13.sce new file mode 100644 index 000000000..f0f11b35f --- /dev/null +++ b/1808/CH4/EX4.13/Chapter4_Example13.sce @@ -0,0 +1,35 @@ +clc
+clear
+//INPUT DATA
+P1=70;//Boiler pressure in Bar
+P2=0.1;//condenser pressure in Bar
+P3=10;//bled pressure in Bar
+T=400;//Boiler temperature in Degree C
+h6=1267.4;//Enthalpy in kJ/kg
+h1=3158.1;//Enthalpy in kJ/kg
+S1=6.448;//Entropy in kJ/kg.K
+h7=762.2;//Enthalpy in kJ/kg
+h9=2776.2;//Enthalpy in kJ/kg
+S7=2.1382;//Entropy in kJ/kg.K
+S9=6.5828;//Entropy in kJ/kg.K
+h4=191.8;//Enthalpy in kJ/kg
+h10=2584.7;//Enthalpy in kJ/kg
+S4=0.649;//Entropy in kJ/kg.K
+S10=8.15;//Entropy in kJ/kg.K
+V4=0.001;//Specific volume in m^3/kg
+
+
+//CALCULATIONS
+x2=((S1-S7)/(S9-S7));//quality of steam
+h2=h7+(x2*(h9-h7));//Enthalpy in kJ/kg
+x3=((S1-S4)/(S10-S4));//quality of steam
+h3=h4+(x3*(h10-h4));//Enthalpy in kJ/kg
+h5=h4+(V4*(P1-P2));//Enthalpy in kJ/kg
+Wp=h5-h4;//Pump work in kJ/kg
+m1=((h6-h5)/(h2-h7));//mass flow rate
+Wt=(h1-h2)+(1-m1)*(h2-h3);//Turbine work in kJ/kg
+Qs=(h1-h6);//Heat supplied in kJ/kg
+nR=((Wt-Wp)/Qs)*100;//Rankine efficiency in percentage
+
+//OUTPUT
+printf(' Thr Rankine cycle efficiency is %3.2f percentage ',nR)
diff --git a/1808/CH4/EX4.2/Chapter4_Example2.sce b/1808/CH4/EX4.2/Chapter4_Example2.sce new file mode 100644 index 000000000..501e91ad8 --- /dev/null +++ b/1808/CH4/EX4.2/Chapter4_Example2.sce @@ -0,0 +1,31 @@ +clc
+clear
+//INPUT DATA
+p=(100*10^3);//Rate of heat source in kW
+P1=40;//Boiler pressure in bar
+P2=0.1;//Condenser pressure in bar
+n=0.8;//Adiabatic efficiency
+S1=6.0685;//Entropy in kJ/kg.K
+S3=0.649;//Entropy in kJ/kg.K
+S5=8.15;//Entropy in kJ/kg.K
+h1=2800.5;//Enthalpy in kJ/kg
+h2=1920.67;//Enthalpy in kJ/kg
+h3=191.8;//Enthalpy in kJ/kg
+h5=2584.7;//Enthalpy in kJ/kg
+v3=0.001001;//Specific volume in m^3/kg
+
+
+//CALCULATIONS
+Wt1=(h1-h2);//Ideal turbine work in kJ/kg
+WtA=Wt1*n;//Actual turbine work in kJ/kg
+Wp=v3*(P1-P2);//Pump work in kJ/kg
+h4=h3+Wp;//Enthalpy in kJ/kg
+Qs=(h1-h4);//heat supplied in kJ/kg
+h2x=h1-WtA;//Enthalpy in kJ/kg
+nRA=((WtA-Wp)/Qs)*100;//Cycle efficiency
+m=p/Qs;//Mass flow rate in kJ/s
+P=m*(WtA-Wp);//power output in kW
+ssc=m*3600/P;//Specific steam consumption in kg/kW.hr
+
+//OUTPUT
+printf('(i) The cycle efficiency is %3.2f percent \n(ii) The power output is %3.1f kW \n(iii) The specific flow rate of steam is %3.2f kg/kW.hr',nRA,P,ssc)
diff --git a/1808/CH4/EX4.3/Chapter4_Example3.sce b/1808/CH4/EX4.3/Chapter4_Example3.sce new file mode 100644 index 000000000..066fc8764 --- /dev/null +++ b/1808/CH4/EX4.3/Chapter4_Example3.sce @@ -0,0 +1,36 @@ +clc
+clear
+//INPUT DATA
+pb=100;//Saturated vapour pressure in bar
+pc=0.1;//Saturated liquid pressure in bar
+two=35;//Cooling water exit temperature in degree C
+twi=20;//Cooling water entry temperature in degree C
+S1=5.6198;//Entropy in kJ/kg.K
+S3=0.649;//Entropy in kJ/kg.K
+S5=8.15;//Entropy in kJ/kg.K
+h1=2727.7;//Enthalpy in kJ/kg
+h3=191.8;//Enthalpy in kJ/kg
+h5=2584.7;//Enthalpy in kJ/kg
+V3=0.001;//Specific volume in m^3/kg
+Cpw=41.8;//specific heat of water in kJ/kgk
+
+
+//CALCULATIONS
+x2=(S1-S3)/(S5-S3);//quality of steam
+S1=S3+x2*(S5-S3);//Entropy in kJ/kg.K
+h2=h3+x2*(h5-h3);//Enthalpy in kJ/kg
+Wp=V3*(pb-pc);//Pump work in kJ/kg
+h4=h3+Wp;//Enthalpy in kJ/kg
+Wt=h1-h2;//Turbine work in kJ/kg
+Wn=Wt-Wp;//Net work in kJ/kg
+nR=(Wn/(h1-h4))*100;//Thermal efficiency
+m=((pb*1000*3600)/Wn)/10^5;//Mass flow rate of steam in kg/hr *10^5
+mx=((pb*1000)/Wn);//Mass flow rate of steam in kg/s
+QS1=mx*(h1-h4);//Rate of heat transferred into fluid in kJ/kg
+QR1=mx*(h2-h3);//rate of heat transfer from condenser in kJ/s
+mw1=(((h2-h3)*m)/((two-twi)*Cpw));//Mass flow rate of water in kg/hr *10^6
+Rw=((h1-h2)-Wp)/(h1-h2);//Work ratio
+
+//OUTPUT
+printf('(i) The Thermal efficiency is %3.2f percent \n(ii)The mass flow rate of steam is %3.2f * 10^5 kJ/hr \n(iii) The rate of heat transfer into working fluid is %3.1f kJ/s \n(iv)The rate of heat transfer from condenser is %3.2f kJ/s\n(v)mass flow rate of water in condenser is %3.1f *10^6 kg/hr \n(vi) The work ratio is %f ',nR,m,QS1,QR1,mw1,Rw)
+
diff --git a/1808/CH4/EX4.4/Chapter4_Example4.sce b/1808/CH4/EX4.4/Chapter4_Example4.sce new file mode 100644 index 000000000..4a9662ed3 --- /dev/null +++ b/1808/CH4/EX4.4/Chapter4_Example4.sce @@ -0,0 +1,35 @@ +clc
+clear
+//INPUT DATA
+pb=100;//Saturated vapour in bar
+pc=0.1;//Saturated liquid in bar
+two=35;//Cooling water exit temperature in degree C
+twi=20;//Cooling water entry temperature in degree C
+S1=5.6198;//Entropy in kJ/kg.K
+S3=0.649;//Entropy in kJ/kg.K
+S5=8.15;//Entropy in kJ/kg.K
+h1=2727.7;//Entropy in kJ/kg
+h2=1778.3;//Entropy in kJ/kg
+h3=191.8;//Enthalpy in kJ/kg
+h4=201.79;//Enthalpy in kJ/kg
+h5=2584.7;//Enthalpy in kJ/kg
+x2=0.63;//Quality of steam
+V3=0.001;//Specific volume in m^3/kg
+Cpw=4.18;//specific heat of water in kJ/kgk
+nt=0.8;//Turbine efficiency in percentage
+np=0.9;//Pump efficiency in percentage
+
+
+//CALCULATIONS
+h21=h1-nt*(h1-h2);//Entropy in kJ/kg
+h41=((h4-h3)/np)+h3;//Entropy in kJ/kg
+nRA=((h1-h21)-(h41-h3))/(h1-h4)*100;//Actual thermal efficiency
+m=pb*1000/((h1-h21)-(h41-h3));//Mass flow rate of steam
+mx=(m*3600);//Mass flow rate in kg/hr
+QS1=m*(h1-h41);//Rate of heat transfer into working medium in MW
+QR1=m*(h21-h3);//Rate of heat transfer from the condenser in MW
+mw1=(mx*(h21-h3))/((Cpw)*(two-twi))/10^7;//mass flow rate of water in the condenser in kg/s
+RwA=((h1-h21)-(h41-h3))/(h1-h21);//work ratio
+
+ //OUTPUT
+printf('(i) The Actual Thermal efficiency is %3.2f percent \n(ii)The mass flow rate of steam is %3.2f kJ/s \n(iii) The rate of heat transfer into working medium is %3.1f kJ/s \n(iv)The rate of heat transfer from condenser is %3.2f kJ/s\n(v)mass flow rate of water in condenser is %3.3f *10^7 kg/s \n(vi) The work ratio is %f ',nRA,m,QS1,QR1,mw1,RwA)
diff --git a/1808/CH4/EX4.5/Chapter4_Example5.sce b/1808/CH4/EX4.5/Chapter4_Example5.sce new file mode 100644 index 000000000..a6dafde32 --- /dev/null +++ b/1808/CH4/EX4.5/Chapter4_Example5.sce @@ -0,0 +1,29 @@ +clc
+clear
+//INPUT DATA
+T1=500;//temperature in degree C
+pb=70;//Saturated vapour in bar
+pc=0.2;//Saturated liquid in bar
+v1=30;//Specific volume in m^3/kg
+v2=90;//Specific volume in m^3/kg
+ms=130000;//mass flow rate in kg/hr
+h1=3410.3;//Enthalpy in kJ/kg
+S1=6.798;//Entropy in kJ/kg.K
+h3=251.2;//Enthalpy in kJ/kg
+h5=2609.9;//Enthalpy in kJ/kg
+v3=0.1;//Specific volume in m^3/kg
+S3=0.8321;//Entropy in kJ/kg.K
+S5=7.9094;//Entropy in kJ/kg.K
+
+
+//CALCULATIONS
+x2=(S1-S3)/(S5-S3);//quality of steam
+h2=(h3+(x2*(h5-h3)));//Enthalpy in kJ/kg
+Wt=(h1-h2)+((v1^2-v2^2)/(2*1000));//Tyrbine work in kJ/kg
+h4=h3+(v3*(pb-pc));//enthalpy in kJ/kg
+nRi=((Wt-(h4-h3))/(h1-h4))*100;//Ideal thermal efficiency in percentage
+P=ms*((Wt-(h4-h3))/3600)/1000;//Power developed in MW
+
+
+//OUTPUT
+printf('(i) The Ideal Thermal efficiency is %3.1f percent \n(ii) The power developed is %3.1f MW ',nRi,P)
diff --git a/1808/CH4/EX4.6/Chapter4_Example6.sce b/1808/CH4/EX4.6/Chapter4_Example6.sce new file mode 100644 index 000000000..2847a33b7 --- /dev/null +++ b/1808/CH4/EX4.6/Chapter4_Example6.sce @@ -0,0 +1,38 @@ +clc
+clear
+//INPUT DATA
+pb=15;//Saturated vapour in bar
+pc=0.1;//Saturated liquid in bar
+pcr=0.05;//Saturated liquid in bar
+x2=0.95;//Quality of steam
+m=50;//Steam flow rate
+Tmax=350;//temperature in degree C
+Tmin=45.8;//temperature in degree C
+h1=3147.5;//Enthalpy in kJ/kg
+S1=7.102//Entropy in kJ/kg.K
+h41=191.8;//Enthalpy in kJ/kg
+v41=0.001001;//Specific volume in m^3/kg
+h7=2584.7;//Enthalpy in kJ/kg
+h4=137.8;//Enthalpy in kJ/kg
+v4=0.001005//Specific volume in m^3/kg
+S6=8.395;//Entropy in kJ/kg.K
+S4=0.476;//Entropy in kJ/kg.K
+h6=2561.5;//Enthalpy in kJ/kg
+
+//CALCULATIONS
+h2=h41+x2*(h7-h41);//Enthalpy in kJ/kg
+x3=((S1-S4)/(S6-S4));//quality of steam
+h3=h4+x3*(h6-h4);//Enthalpy in kJ/kg
+h51=h41+v41*(pb-pc);//Enthalpy in kJ/kg
+h5=h4+v4*(pb-pcr);//Enthalpy in kJ/kg
+nRi=(((h1-h2)-(h51-h41))/(h1-h51))*100;//Ideal rankine efficiency
+P=(m*((h1-h2)-(h51-h41)));//Power in kW
+ssc=((m*3600)/P);//Specific steam consumption in kg/kW.hr
+nC=((Tmax-Tmin)/(Tmax+273))*100;//carnot efficiency in percentage
+nRi1=(((h1-h3)-(h5-h4))/(h1-h5));//Change in rankine efficiency
+P1=(m*((h1-h3)-(h5-h4)));//power in kW
+ssc1=((m*3600)/P1);//Specific steam consumption in kg/kW.hr
+
+
+//OUTPUT
+printf('(i) The Ideal Rankine efficiency is %3.1f percent \n(ii) The specific steam consumption is %3.3f kg/kwh \n(iii)The carnot efficiency for temp limits is %3.1f percent\n(iv)change in rankine efficiency is %3.2f kg/kW.hr',nRi,ssc,nC,ssc1)
diff --git a/1808/CH4/EX4.7/Chapter4_Example7.sce b/1808/CH4/EX4.7/Chapter4_Example7.sce new file mode 100644 index 000000000..05967e0af --- /dev/null +++ b/1808/CH4/EX4.7/Chapter4_Example7.sce @@ -0,0 +1,34 @@ +clc
+clear
+//INPUT DATA
+pb=25;//Saturated vapour in bar
+pc=0.2;//Saturated liquid in bar
+T111=300;//Temperature in degree C
+h1=2800.9;//Enthalpy in kJ/kg
+hb=962;//Enthalpy in kJ/kg
+h5=2609.9;//Enthalpy in kJ/kg
+h3=251.5;//Enthalpy in kJ/kg
+S5=7.9094;//Entropy in kJ/kg.K
+S3=0.8321;//Entropy in kJ/kg.K
+Sb=2.5543;//Entropy in kJ/kg.K
+S1=6.2536;//Entropy in kJ/kg.K
+x1=0.8;////Quality of steam
+h111=3008.9;//Enthalpy in kJ/kg
+S111=6.644;////Entropy in kJ/kg.K
+
+
+//CALCULATIONS
+h11=(hb+x1*(h1-hb));//Enthalpy in kJ/kg
+S11=(Sb+x1*(S1-Sb));//Enthalpy in kJ/kg
+x21=((S11-S3)/(S5-S3));//quality of steam
+h21=(h3+(x21*(h5-h3)));//Enthalpy in kJ/kg
+nRi=(((h11-h21)/(h11-h3))*100);//Rankine cycle efficiency in percentage
+x2=((S1-S3)/(S5-S3));//quality of steam
+h2=h3+x2*(h5-h3);//Enthalpy in kJ/kg
+nRi2=(((h1-h2)/(h1-h3))*100);//Rankine cycle efficiency in percentage
+x211=((S111-S3)/(S5-S3));//quality of steam
+h211=(h3+(x211*(h5-h3)));//Enthalpy in kJ/kg
+nRi1=(((h111-h211)/(h111-h3))*100);//Rankine cycle efficiency in percentage
+
+//OUTPUT
+printf('(i) The Rankine cycle efficiency when steam is dry at turbine inlet is %3.2f percent \n(ii) The Rankine cycle efficiency when steam is saturated is %3.2f percentage \n(iii)The Rankine cycle efficiency when steam is superheated is %3.2f percent ',nRi,nRi2,nRi1)
diff --git a/1808/CH4/EX4.8/Chapter4_Example8.sce b/1808/CH4/EX4.8/Chapter4_Example8.sce new file mode 100644 index 000000000..2a1ae5fac --- /dev/null +++ b/1808/CH4/EX4.8/Chapter4_Example8.sce @@ -0,0 +1,35 @@ +clc
+clear
+//INPUT DATA
+p1=40;//Boiler pressure in bar
+p2=4;//lp turbine pressure in bar
+p4=0.1;//condenser pressure in bar
+h1=2960.7;//Enthalpy in kJ/kg
+S1=6.362;//Entropy in kJ/kg.K
+h4=3066.8;//Enthalpy in kJ/kg
+S4=7.566;//Entropy in kJ/kg.K
+S3=6.8943;//Entropy in kJ/kg.K
+S10=1.7764;//Entropy in kJ/kg.K
+h3=2737.6;//Enthalpy in kJ/kg
+h10=604.7;//Enthalpy in kJ/kg
+h6=191.8;//Enthalpy in kJ/kg
+h9=2584.7;//Enthalpy in kJ/kg
+S6=0.649;//Entropy in kJ/kg.K
+S9=8.15;//Entropy in kJ/kg.K
+V6=0.001001;//Specific volume in m^3/kg
+
+
+//CALCULATIONS
+x2=((S1-S10)/(S3-S10));//quality of steam
+h2=(h10+(x2*(h3-h10)));//Enthalpy in kJ/kg
+x5=((S4-S6)/(S9-S6));//quality of steam
+h5=(h6+(x5*(h9-h6)));//Enthalpy in kJ/kg
+Wt=((h1-h2)+(h4-h5));//turbine work in kJ/kg
+h7=(h6+(V6*(p1-p4*100)));//Enthalpy in kJ/kg
+Wp=(h7-h6);//Pump work in kJ/kg
+Qs=((h1-h7)+(h4-h2));//heat supplied in kJ/kg
+nRr=((Wt-Wp)/Qs)*100;//Rankine cycle efficiency in percentage
+
+
+//OUTPUT
+printf('(i) The Rankine efficiency is %3.2f percent ',nRr)
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)
|