4 files changed, 86 insertions, 0 deletions
diff --git a/2420/CH6/EX6.1/6_1.sce b/2420/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..dd553486c
--- /dev/null
+++ b/2420/CH6/EX6.1/6_1.sce
@@ -0,0 +1,25 @@
+clc
+clear
+//Initialization of variables
+P1=200 //psia
+T1=600 //F
+P2=2 //psia
+J=778
+//calculations
+disp("from mollier charts,")
+h1=1322 //Btu/lb
+h2=974 //Btu/lb
+vf2=0.01623 //cu ft per lb
+hf2=94 //Btu/lb
+t2=126 //F
+Wtj=h1-h2
+Qout=h2-hf2
+Wp=(P1-P2)*vf2
+Wpj=Wp/J
+h3=hf2+Wpj
+Qin=h1-h3
+etat=((h1-h2)-Wpj)/(h1-(hf2+Wpj))
+eta=((h1-h2))/(h1-(hf2))
+//results
+printf("Efficiency of rankine cycle = %.1f percent",etat*100)
+printf("\n Efficiency of rankine cycle neglecting boiler feed pump = %.1f percent",eta*100)
diff --git a/2420/CH6/EX6.2/6_2.sce b/2420/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..43e57acac
--- /dev/null
+++ b/2420/CH6/EX6.2/6_2.sce
@@ -0,0 +1,25 @@
+clc
+clear
+//Initialization of variables
+B=70 //F
+P1=140 //psia
+x=0.986
+P2=14.7 //psia
+ms=2000 //lb/hr
+Ihp=80
+//calculations
+disp("From mollier charts,")
+hc=38 //Btu/lb
+hf=324.82 //Btu/lb
+hfg=868.2 //Btu/lb
+h1=hf+x*hfg
+Qin=ms*(h1-hc)
+eta=Ihp*2545*100/(Qin)
+Qw=Ihp*2545
+Qr=Qin-Qw
+per=Qr/Qin *100
+//results
+printf("Heat input to the boiler = %d Btu/hr",Qin)
+printf("\n Cycle efficiency = %.1f percent",eta)
+printf("\n Heat rejected to waste = %d Btu/hr or %.1f percent of Qin",Qr,per)
+disp("The answer is a bit different due to rounding off error in textbook")
diff --git a/2420/CH6/EX6.3/6_3.sce b/2420/CH6/EX6.3/6_3.sce
new file mode 100755
index 000000000..0e512e466
--- /dev/null
+++ b/2420/CH6/EX6.3/6_3.sce
@@ -0,0 +1,25 @@
+clc
+clear
+//Initialization of variables
+B=70 //F
+P1=140 //psia
+x=0.986
+P2=14.7 //psia
+ms=2000 //lb/hr
+Ihp=80
+//calculations
+disp("From mollier charts,")
+hc=180 //Btu/lb
+hf=324.82 //Btu/lb
+hfg=868.2 //Btu/lb
+h1=hf+x*hfg
+Qin=ms*(h1-hc)
+eta=Ihp*2545*100/(Qin)
+Qw=Ihp*2545
+Qr=Qin-Qw
+per=Qr/Qin *100
+//results
+printf("Heat input to the boiler = %d Btu/hr",Qin)
+printf("\n Cycle efficiency = %.2f percent",eta)
+printf("\n Heat rejected to waste = %d Btu/hr or %.2f percent of Qin",Qr,per)
+disp("The answer is a bit different due to rounding off error in textbook")
diff --git a/2420/CH6/EX6.4/6_4.sce b/2420/CH6/EX6.4/6_4.sce
new file mode 100755
index 000000000..cee7e707e
--- /dev/null
+++ b/2420/CH6/EX6.4/6_4.sce
@@ -0,0 +1,11 @@
+clc
+clear
+//Initialization of variables
+m=1.24 //lb
+HV=11300 //Btu/lb
+//calculations
+HR=m*HV
+eff=3413/HR
+//results
+printf("Plant heat rate = %d Btu/kw hr",HR)
+printf("\n Overall efficiency = %.1f percent",eff*100)