initial commit / add all books

6 files changed, 137 insertions, 0 deletions

diff --git a/2837/CH20/EX20.1/Ex20_1.sce b/2837/CH20/EX20.1/Ex20_1.sce
new file mode 100755
index 000000000..7a26d3ac2
--- /dev/null
+++ b/2837/CH20/EX20.1/Ex20_1.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Initalization of variables

+Qs=825.1 //Btu/lb

+ds=0.9588

+t1=101.74 //F

+th=400.95 //F

+//calculations

+Qr=ds*(t1+459.69)

+work=Qs-Qr

+eta=work/Qs*100

+eta2=(th-t1)/(th+459.69) *100

+//results

+printf("In case 1, Thermal efficiency = %.2f percent",eta)

+printf("\n In case 2, Thermal efficiency = %.2f percent",eta2)

diff --git a/2837/CH20/EX20.2/Ex20_2.sce b/2837/CH20/EX20.2/Ex20_2.sce
new file mode 100755
index 000000000..f3ab250ce
--- /dev/null
+++ b/2837/CH20/EX20.2/Ex20_2.sce
@@ -0,0 +1,24 @@
+clc

+clear

+//Initalization of variables

+s2=1.5263

+sfg=1.8456

+sf=1.9782 

+h2=1201.1 //Btu/lb

+hf=1106 //Btu/lb

+hfg=1036.3 //Btu/lb

+v=0.01616 //m^3/kg

+p2=250 //psia

+p1=1//psia

+J=778

+//calculations

+x3=1+ (s2-sf)/sfg

+h3=hf-(1-x3)*hfg

+h4=69.7

+Wp=v*144*(p2-p1)/J

+h1=h4+Wp

+etat=((h2-h3)-Wp)/(h2-h1) *100

+eta2=(h2-h3)/(h2-h4)*100

+//results

+printf("\n In case 1, Efficieny = %.2f percent",etat)

+printf("\n In case 2, Efficieny = %.2f percent",eta2)

diff --git a/2837/CH20/EX20.3/Ex20_3.sce b/2837/CH20/EX20.3/Ex20_3.sce
new file mode 100755
index 000000000..9f7664da3
--- /dev/null
+++ b/2837/CH20/EX20.3/Ex20_3.sce
@@ -0,0 +1,29 @@
+clc

+clear

+//Initalization of variables

+p=40000 //kW

+ef=0.98

+rate=302000 //lb

+s3=1.6001

+h2=1490.1

+loss=600

+v=400 //ft/s

+g=32.2 //ft/s^2

+J=778

+//calculations

+out=p/(0.746*ef)

+srate=rate/out

+X=-(s3-1.9782)/1.8456

+h3=1106 - X*1036.3

+theoturb=h2-h3

+intturb=(out+loss)*2544/rate

+Ie=intturb/theoturb *100

+h3d=h2-intturb-v^2 /(2*g*J)

+hex=h3d+ v^2 /(2*g*J)

+excess=rate*(hex-h3)

+//results

+printf("Steam rate = %.2f lb/shaft hp-hr",srate)

+printf("\n Internal engine efficiency = %.1f percent",Ie)

+printf("\n Enthalpy of exhaust steam = %.1f Btu/lb",h3d)

+printf("\n Excess heat to be removed = %d Btu/hr",excess)

+disp("The answers are a bit different due to rounding off error in textbook")

diff --git a/2837/CH20/EX20.4/Ex20_4.sce b/2837/CH20/EX20.4/Ex20_4.sce
new file mode 100755
index 000000000..f02889298
--- /dev/null
+++ b/2837/CH20/EX20.4/Ex20_4.sce
@@ -0,0 +1,22 @@
+clc

+clear

+//Initalization of variables

+s2=1.5263

+sf=1.6993

+sfg=1.3313

+hf=1164.1 //Btu/lb

+hfg=945.3 //Btu/lb

+h2=1201.1 //Btu/lb

+h1=852.3 //Btu/lb

+//calculations

+X3=-(s2-sf)/sfg

+h3=hf-X3*hfg

+h4=218.82

+h6=h4

+h5=69.7

+x=(h4-h5)/(h3-h5)

+W= h2-h3+ (1-x)*(h3-h1)

+Qs=h2-h4

+eff=W/Qs *100

+//results

+printf("Thermal efficiency = %.2f percent",eff)

diff --git a/2837/CH20/EX20.5/Ex20_5.sce b/2837/CH20/EX20.5/Ex20_5.sce
new file mode 100755
index 000000000..90ae8c512
--- /dev/null
+++ b/2837/CH20/EX20.5/Ex20_5.sce
@@ -0,0 +1,25 @@
+clc

+clear

+//Initalization of variables

+h6=157.933 //Btu/lb

+s2=0.11626

+sf=0.16594

+sfg=0.14755

+hf=139.095 //Btu/lb

+hfg=126.98 //Btu/lb

+h5=12.016 //Btu/lb

+h2=1201.1 //Btu/lb

+h1=69.7  //Btu/lb

+w=348.8 //Btu/lb

+m=0.0745 //lb

+//calculations

+x7=-(s2-sf)/sfg

+h7=hf-x7*hfg

+dh6=h6-h7

+mr=(h7-h5)/(h2-h1)

+work=w*m

+tw=work+dh6

+dh65=h6-h5

+eff=tw/dh65 *100

+//results

+printf("Thermal efficiency = %.2f percent",eff)

diff --git a/2837/CH20/EX20.6/Ex20_6.sce b/2837/CH20/EX20.6/Ex20_6.sce
new file mode 100755
index 000000000..6fae10223
--- /dev/null
+++ b/2837/CH20/EX20.6/Ex20_6.sce
@@ -0,0 +1,22 @@
+clc

+clear

+//Initalization of variables

+m=1 //lb

+cp=0.26

+t2=1800+460 //R

+t1=400.95+460 //R

+x=0.6

+sink=100+460 //R

+tm=2600+460 //R

+//calculations

+Q=m*cp*(t2-t1)

+ds=m*cp*log((t2/t1))

+tds=ds*(sink)

+avail=Q-tds

+hf=Q*x/(1-x)

+av2=hf*(tm-sink)/(tm)

+Qt=Q+hf

+av=avail+av2

+per=av/Qt *100

+//results

+printf("Available portion of heat transferred = %.1f percent",per)