diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3685/CH12/EX12.2 | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '3685/CH12/EX12.2')
| -rw-r--r-- | 3685/CH12/EX12.2/Ex12_2.sce | 41 | ||||
| -rw-r--r-- | 3685/CH12/EX12.2/Ex12_2.txt | 7 |
2 files changed, 48 insertions, 0 deletions
diff --git a/3685/CH12/EX12.2/Ex12_2.sce b/3685/CH12/EX12.2/Ex12_2.sce new file mode 100644 index 000000000..dffe2e34b --- /dev/null +++ b/3685/CH12/EX12.2/Ex12_2.sce @@ -0,0 +1,41 @@ +clc
+h1 = 3159.3 // Enthalpy at state 1 in kJ/kg
+s1 = 6.9917 // Entropy at state 1 in kJ/kgK
+h3 = 173.88 // Enthalpy at state 3 in kJ/kg
+s3 = 0.5926 // Entropy at state 3 in kJ/kgK
+sfp2 = s3 // Isentropic process
+hfp2 = h3 // Isenthalpic process
+hfgp2 = 2403.1 // Latent heat of vaporization in kJ/kg
+sgp2 = 8.2287 // Entropy of gas in kJ/kgK
+vfp2 = 0.001008 // Specific volume in m^3/kg
+sfgp2 = 7.6361// Entropy of liquid in kJ/kgK
+x2s = (s1-sfp2)/(sfgp2)// Steam quality
+h2s = hfp2+(x2s*hfgp2) // Enthalpy at state 2s
+// Part (a)
+P1 = 20 // Turbine inlet pressure in bar
+P2 = 0.08 // Turbine exit pressure in bar
+h4s = vfp2*(P1-P2)*1e2+h3 // Enthalpy at state 4s
+Wp = h4s-h3 // Pump work
+Wt = h1-h2s // Turbine work
+Wnet = Wt-Wp // Net work
+Q1 = h1-h4s // Heat addition
+n_cycle = Wnet/Q1// Cycle efficiency
+printf("\n Example 12.2")
+printf("\n Net work per kg of steam is %f kJ/kg",Wnet)//The answer provided in the textbook is wrong
+
+printf("\n Cycle efficiency is %f percent",n_cycle*100)
+
+// Part (b)
+n_p = 0.8 // pump efficiency
+n_t = 0.8// Turbine efficiency
+Wp_ = Wp/n_p // Pump work
+Wt_ = Wt*n_t // Turbine work
+Wnet_ = Wt_-Wp_// Net work
+P = 100*((Wnet-Wnet_)/Wnet) // Percentage reduction in net work
+n_cycle_ = Wnet_/Q1 // cycle efficiency
+P_ = 100*((n_cycle-n_cycle_)/n_cycle) //reduction in cycle
+printf("\n\n Percentage reduction in net work per kg of steam is %f percent",P)
+printf("\n Percentage reduction in cycle efficiency is %f percent",P_)
+
+//The answers vary due to round off error
+
diff --git a/3685/CH12/EX12.2/Ex12_2.txt b/3685/CH12/EX12.2/Ex12_2.txt new file mode 100644 index 000000000..82943e493 --- /dev/null +++ b/3685/CH12/EX12.2/Ex12_2.txt @@ -0,0 +1,7 @@ +
+ Example 12.2
+ Net work per kg of steam is 969.599095 kJ/kg
+ Cycle efficiency is 32.499671 percent
+
+ Percentage reduction in net work per kg of steam is 20.093190 percent
+ Percentage reduction in cycle efficiency is 20.093190 percent
\ No newline at end of file |