From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2015/CH4/EX4.1/4_1.sce    | 26 ++++++++++++++++++++++++++
 2015/CH4/EX4.10/4_10.sce  | 40 ++++++++++++++++++++++++++++++++++++++++
 2015/CH4/EX4.11/4_11.sce  | 17 +++++++++++++++++
 2015/CH4/EX4.12/4_12.sce  | 30 ++++++++++++++++++++++++++++++
 2015/CH4/EX4.2/4_2.sce    | 18 ++++++++++++++++++
 2015/CH4/EX4.3.a/4_3a.sce | 23 +++++++++++++++++++++++
 2015/CH4/EX4.3.b/4_3b.sce | 23 +++++++++++++++++++++++
 2015/CH4/EX4.4/4_4.sce    | 33 +++++++++++++++++++++++++++++++++
 2015/CH4/EX4.5/4_5.sce    | 37 +++++++++++++++++++++++++++++++++++++
 2015/CH4/EX4.6/4_6.sce    | 18 ++++++++++++++++++
 2015/CH4/EX4.7.a/4_7a.sce | 22 ++++++++++++++++++++++
 2015/CH4/EX4.7.b/4_7b.sce | 22 ++++++++++++++++++++++
 2015/CH4/EX4.8/4_8.sce    | 23 +++++++++++++++++++++++
 13 files changed, 332 insertions(+)
 create mode 100755 2015/CH4/EX4.1/4_1.sce
 create mode 100755 2015/CH4/EX4.10/4_10.sce
 create mode 100755 2015/CH4/EX4.11/4_11.sce
 create mode 100755 2015/CH4/EX4.12/4_12.sce
 create mode 100755 2015/CH4/EX4.2/4_2.sce
 create mode 100755 2015/CH4/EX4.3.a/4_3a.sce
 create mode 100755 2015/CH4/EX4.3.b/4_3b.sce
 create mode 100755 2015/CH4/EX4.4/4_4.sce
 create mode 100755 2015/CH4/EX4.5/4_5.sce
 create mode 100755 2015/CH4/EX4.6/4_6.sce
 create mode 100755 2015/CH4/EX4.7.a/4_7a.sce
 create mode 100755 2015/CH4/EX4.7.b/4_7b.sce
 create mode 100755 2015/CH4/EX4.8/4_8.sce

(limited to '2015/CH4')

diff --git a/2015/CH4/EX4.1/4_1.sce b/2015/CH4/EX4.1/4_1.sce
new file mode 100755
index 000000000..4778cfc12
--- /dev/null
+++ b/2015/CH4/EX4.1/4_1.sce
@@ -0,0 +1,26 @@
+clc
+//initialisation of variables
+t1=523.3 //temparature under p1=40 bar in k
+t2=314.5 //temparature under p2=0.80 bar in k
+s4=2.797 //entropy under p1=40 bar 
+s1=6.070 //entropy under p1=40 bar
+sf3=0.593 //entropy under p2=0.08 bar
+sfg3=7.634 //entropy under p2=0.08 bar
+h4=1087 //kj/kg
+h1=2801 //kj/kg
+hf3=174 //kj/kg under p2=0.08bar
+hfg3=2402 //kj/kg under p2=0.08bar
+//CALCULATIONS
+eff=(t1-t2)/t1
+x3=(s4-sf3)/sfg3
+x2=(s1-sf3)/sfg3
+h3=hf3+(x3*hfg3)
+h2=hf3+(x2*hfg3)
+wt=h1-h2
+cw=h4-h3
+wr=(wt-cw)/wt
+//RESULTS
+printf('efficiency of carnot cycle is %2f',eff)
+printf('\nquality is %2f',x3)
+printf('\ngross work of expansion is %2f',wt)
+printf('\nwork ratio is %2f',wr)
diff --git a/2015/CH4/EX4.10/4_10.sce b/2015/CH4/EX4.10/4_10.sce
new file mode 100755
index 000000000..65d13f0c8
--- /dev/null
+++ b/2015/CH4/EX4.10/4_10.sce
@@ -0,0 +1,40 @@
+clc
+//no 4.9 printed in the book....print mistake
+//initialisation of variables
+//for the mercury cycle
+ha=360.025 //kj/kg
+sa=0.50625 //kj/kgk
+sfb=0.0961 //kj/kgk
+sfgb=0.5334 //kj/kgk
+hfb=38.05 //kj/kg
+hfgb=294.02 //kj/kg
+//for the steam cycle
+h5=2801 //kj/kg
+h3=163 //kj/kg
+hb=264.2 //kj/kg
+h1=2963 //kj/kg
+s1=6.364 //kj/kgk
+sf2=0.559 //kj/kgk
+sfg2=7.715 //kj/kgk
+qs=3916.2 //kj/kg
+hf2=163 //kj/kg
+hfg2=2409 //kj/kg
+//CALCULATIONS
+xb=(sa-sfb)/sfgb
+hb=hfb+(xb*hfgb)
+m1=(h5-h3)/(hb-hfb)
+x2=(s1-sf2)/sfg2
+h2=hf2+(x2*hfg2)
+wn=m1*(ha-hb)+(h1-h2)
+teff1=wn/qs
+hx=ha-(0.8*(ha-hb))
+hy=h1-(0.8*(h1-h2))
+m2=(h5-h3)/(hx-hfb)
+wo=m2*(ha-hx)+(h1-hy)
+qs=m2*(ha-hfb)+(h1-h5)
+teff2=wo/qs
+//RESULTS
+printf('thermal efficiency of steam cycle is %2f',teff1)
+printf('\nwork output of plant is %2fkj/kg',wo)
+printf('\nheat supplied is %2fkj/kg',qs)
+printf('\nthermal efficiency of the plant is %2f',teff2)
diff --git a/2015/CH4/EX4.11/4_11.sce b/2015/CH4/EX4.11/4_11.sce
new file mode 100755
index 000000000..3ed39b0a6
--- /dev/null
+++ b/2015/CH4/EX4.11/4_11.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+ha=360.025 //kj/kg
+hfb=38.05 //kj/kg
+hb=264.2 //kj/kg
+h1=2963 //kj/kg
+h2=1974.6 //kj/kg
+h3=163 //kj/kg
+h4=1087 //kj/kg
+h=1714 //kj/kg
+//CALCULATIONS
+m=h/(hb-hfb)
+wo=7.58*(ha-hb)+(h1-h2)
+qs=7.58*(ha-hfb)+(h4-h3)+(h1-h)
+teff=(wo/qs)
+//RESULTS
+printf('thermal efficiency is %2f',teff)
diff --git a/2015/CH4/EX4.12/4_12.sce b/2015/CH4/EX4.12/4_12.sce
new file mode 100755
index 000000000..8c3edbf05
--- /dev/null
+++ b/2015/CH4/EX4.12/4_12.sce
@@ -0,0 +1,30 @@
+clc
+//initialisation of variables
+ha=359.11 //under 10 bar pressure in kj/kg
+sa=0.5089 //under 10 bar pressure in kj/kgk
+sfb=0.0870 //under 0.08 bar pressure in kj/kgk
+sfgb=0.57 //under 0.08 bar pressure in kj/kgk
+hfb=33.21 //under 0.08 bar pressure in kj/kg
+hfgb=294.7 //under 0.08 bar pressure in kj/kg
+h=1840.5 //kj/kg
+h1=3350 //under 25 bar pressure and 723 k in kj/kg
+s1=7.183 //under 25 bar pressure and 723 k in kj/kgk
+sf2=0.476 //under 25 bar pressure and 723 k in kj/kgk
+sfg2=7.918 //under 25 bar pressure and 723 k in kj/kgk
+hf2=138 //under 25 bar pressure and 723 ki n kj/kg
+hfg2=2423 //under 25 bar pressure and 723 k in kj/kg
+h5=964 //kj/kg
+//CALCULATIONS
+xb=(sa-sfb)/(sfgb)
+hb=hfb+(xb*hfgb)
+m=h/(hb-hfb)
+x2=(s1-sf2)/sfg2
+h2=hf2+(x2*hfg2)
+wo=8.47*(ha-hb)+(h1-h2)
+qs=8.47*(ha-hfb)+(h5-138)+(h1-2802.5)
+teff=(wo/qs)*100
+//RESULTS
+printf('work output is %2f',wo) //textbook ans slightly varies
+printf('\nheat supplied to the plant is %2f',qs)
+printf('\nthermal efficiency is %2f',teff)
+
diff --git a/2015/CH4/EX4.2/4_2.sce b/2015/CH4/EX4.2/4_2.sce
new file mode 100755
index 000000000..f20514219
--- /dev/null
+++ b/2015/CH4/EX4.2/4_2.sce
@@ -0,0 +1,18 @@
+clc
+//initialisation of variables
+v=0.1008*10^-2
+p1=40 //pressure in bar
+p2=0.08 //pressure in bar
+wt=903.8 //kj/kg
+wp=4.02 //kj/kg
+h1=2801 //kj/kg
+h3=174 //kj/kg
+//CALCULATIONS
+pw=v*(p1-p2)
+wn=wt-wp
+qs=h1-(h3+wp)
+reff=wn/qs
+wr=wn/wt
+//RESULTS
+printf('heat supplied is %2f',qs)
+printf('\nrankine efficiency and work ratio is %2f and %2f',reff,wr)
diff --git a/2015/CH4/EX4.3.a/4_3a.sce b/2015/CH4/EX4.3.a/4_3a.sce
new file mode 100755
index 000000000..77d2b0c9f
--- /dev/null
+++ b/2015/CH4/EX4.3.a/4_3a.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+h1=2801 //kj/kg
+h3=867.5 //kj/kg
+h4=1087 //kj/kg
+ieff=0.50 //isentropic efficiency of compression
+wt=903.8 //kj/kg
+feff=0.75 //furnace efficiency
+ieeff=0.85//isentropic expansion efficiency
+//CALCULATIONS
+hx=((h4-h3)/0.5)+867.5
+wr=hx-h3
+atu=ieeff*wt
+hs=h1-hx
+nwo=atu-wr
+eff=nwo/hs
+oeff=eff*feff
+wrt=nwo/atu
+ssc=3600/nwo
+hr=3600/oeff
+//RESULTS
+printf('steam and heat rates are %2fkg/kwh and %2fkj/kwh',ssc,hr)
+
diff --git a/2015/CH4/EX4.3.b/4_3b.sce b/2015/CH4/EX4.3.b/4_3b.sce
new file mode 100755
index 000000000..6b87bd78c
--- /dev/null
+++ b/2015/CH4/EX4.3.b/4_3b.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of  variables
+h3=174 //kj/kg
+h4=178.02 //kj/kg
+ieff=0.50 //isentropic efficiency of compression
+wt=903.8 //kj/kg
+feff=0.75 //furnace efficiency
+ieeff=0.85//isentropic expansion efficiency
+wp=4.02 //kj/kg
+h1=2801 //kj/kg
+//CALCULATIONS
+hx=((h4-h3)/0.5)+174
+wr=wp/ieff
+atu=ieeff*wt
+hs=h1-hx
+nwo=atu-wr
+eff=nwo/hs
+oeff=eff*feff
+wrt=nwo/atu
+ssc=3600/nwo
+hr=3600/oeff
+//RESULTS
+printf('steam and heat rates are %2fkg/kwh and %2fkj/kwh',ssc,hr)
diff --git a/2015/CH4/EX4.4/4_4.sce b/2015/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..c3ed3dc43
--- /dev/null
+++ b/2015/CH4/EX4.4/4_4.sce
@@ -0,0 +1,33 @@
+clc
+//initialisation of variables
+h1=3221.6 //kj/kg
+s1=7.399 //kj/kgk
+sf2=0.521 //kj/kgk
+sfg2=7.808 //kj/kgk
+hf2=152 //kj/kg
+hfg2=2415 //kj/kg
+t1=653 //temp in k
+t2=309.2 //temp in k
+v=0.1006*10^-2
+p1=10 //pressure in bar
+p2=0.06 //pressure in bar
+h3=152 //kj/kg
+x=110
+y=639.7
+z=610
+a=2015
+//CALCULATIONS
+x2=(s1-sf2)/sfg2
+h2=hf2+(x2*hfg2)
+wo=h1-h2
+hs=h1-h3
+theff=wo/hs
+sr1=3600/wo
+ceff=(t1-t2)/t1
+wp=v*(p1-p2)
+h4=h3+wp
+reff=(x+y)/(z+a)
+sr2=3600/(x+y)
+hr=3600/reff
+printf('steam rate and carnot efficiency are %2fkg/kwh and %2f',sr1,ceff)
+printf('\nsteam rate and heat rate are %2fkg/kwh and %2f',sr2,hr)
diff --git a/2015/CH4/EX4.5/4_5.sce b/2015/CH4/EX4.5/4_5.sce
new file mode 100755
index 000000000..6c9c76e65
--- /dev/null
+++ b/2015/CH4/EX4.5/4_5.sce
@@ -0,0 +1,37 @@
+clc
+//initialisation of variables
+h1=3157 //kj/kg
+h2=2725 //kj/kg
+h3=3299 //kj/kg
+h4=2257.9 //kj/kg
+h5=1940.3 //kj/kg
+h6=152 //kj/kg
+x4=0.872
+x5=0.7405
+v=0.1006*10^-2 //volume
+p1=100 //pressure in bar
+p2=0.06 //pressure in bar
+//CALCULATIONS
+wp=v*(p1-p2)*100
+h7=h6+wp
+wt1=h1-h5
+wn1=wt1-wp
+qs1=h1-h7
+wr1=wn1/wt1
+reff=wn1/qs1
+//reheat cycle
+wt2=(h1-h2)+(h3-h4)
+wn2=wt2-wp
+wr2=wn2/wt2
+qs2=h1-h7+h3-h2
+teff=wn2/qs2
+pd=wn2/3600
+pdi=(pd-0.3352)/0.3352
+df=1-pdi
+//RESULTS
+printf('work ratio and rakine efficiency of rankine cycle is %2f and %2f',wr1,reff)
+disp('dryness fraction of steam is 0.872')
+printf('\nheat supplied is %2f',qs1)
+printf('\npower developed is %2f',pd)
+printf('\npower developed per kg of steam is %2f',pdi)
+
diff --git a/2015/CH4/EX4.6/4_6.sce b/2015/CH4/EX4.6/4_6.sce
new file mode 100755
index 000000000..a30ab71af
--- /dev/null
+++ b/2015/CH4/EX4.6/4_6.sce
@@ -0,0 +1,18 @@
+clc
+//initialisation of variables
+h1=2979 //kj/kg
+h2=2504.3 //kj/kg
+h3=1987.4 //kj/kg
+h4=152 //kj/kg
+h6=561 //kj/kg
+//CALCULATIONS
+m=(h6-h4)/(h2-h4)
+wo=(h1-h2)+(1-m)*(h2-h3)
+qs=h1-h6
+teff=wo/qs
+ssc=3600/wo
+//RESULTS
+printf('work output is %2fkj/kg',wo)
+printf('\nheat supplied is %2fkj/kg',qs)
+printf('\nthermal efficiency is %2f',teff)
+printf('\nspecific steam consumption is %2fkg/kwh',ssc)
diff --git a/2015/CH4/EX4.7.a/4_7a.sce b/2015/CH4/EX4.7.a/4_7a.sce
new file mode 100755
index 000000000..a9a3d973f
--- /dev/null
+++ b/2015/CH4/EX4.7.a/4_7a.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+h1=3222.5 //kj/kg
+h2=3127.5 //kj/kg
+h3=2692.5 //kj/kg
+h4=2406.7 //kj/kg
+h5=360 //kj/kg
+h6=360 //kj/kg
+h7=584 //kj/kg
+h8=962 //kj/kg
+//CALCULATIONS
+m1=(h8-h7)/(h2-h7)
+m2=((1-m1)*(h7-h5))/(h3-h5)
+wo=(h1-h2)+(1-m1)*(h2-h3)+(1-m1-m2)*(h3-h4)
+qs=h1-h8
+teff=wo/qs
+sr=3600/wo
+//RESULTS
+printf('work output is %2fkj/kg',wo)
+printf('\nheat supplied is %2fkj/kg',qs)
+printf('\nthermal efficiency is %2f',teff)
+printf('\nsteam rate is %2fkg/kwh',sr)
diff --git a/2015/CH4/EX4.7.b/4_7b.sce b/2015/CH4/EX4.7.b/4_7b.sce
new file mode 100755
index 000000000..d1c3e6bc0
--- /dev/null
+++ b/2015/CH4/EX4.7.b/4_7b.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+h1=3222.5 //kj/kg
+h2=3127.5 //kj/kg
+h3=2692.5 //kj/kg
+h4=2406.7 //kj/kg
+h5=360 //kj/kg
+h6=360 //kj/kg
+h7=584 //kj/kg
+h8=962 //kj/kg
+//CALCULATIONS
+m1=(h8-h7)/(h2-h8)
+m2=((h7-h6)-m1*(h8-h7))/(h3-h7)
+wo=(h1-h2)+(1-m1)*(h2-h3)+(1-m1-m2)*(h3-h4)
+qs=h1-h8
+teff=wo/qs
+sr=3600/wo
+//RESULTS
+printf('work output is %2fkj/kg',wo)
+printf('\nheat supplied is %2fkj/kg',qs)
+printf('\nthermal efficiency is %2f',teff)
+printf('\nsteam rate is %2fkg/kwh',sr)
diff --git a/2015/CH4/EX4.8/4_8.sce b/2015/CH4/EX4.8/4_8.sce
new file mode 100755
index 000000000..58fd68ffc
--- /dev/null
+++ b/2015/CH4/EX4.8/4_8.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+h1=2990 //kj/kg
+h2=2710 //kj/kg
+h3=2325 //kj/kg
+h4=152 //kj/kg
+h5=152 //kj/kg
+h7=505 //kj/kg
+wo=612 //kj/kg
+qs=2485 //kj/kg
+//CALCULATIONS
+m=(h7-h4)/(h2-h4)
+mph=m*30000
+ip=((h1-h2)+(1-m)*(h2-h3))*(30000/3600)
+teff=wo/qs
+//when there is no feeding
+eff=(h1-h3)/(h1-h4)
+sc=(3600/(h1-h3))*ip
+//RESULTS
+printf('internal powers is %2fkw',ip)
+printf('\nthermal efficiency when feeding is there is %2f',teff)
+printf('\nwhen there is no feeding,thermal efficiency is %2f',eff)
+printf('\nsteam consumption is %2fkg/h',sc)
-- 
cgit