initial commit / add all books

6 files changed, 90 insertions, 0 deletions

diff --git a/2144/CH7/EX7.1/ex7_1.sce b/2144/CH7/EX7.1/ex7_1.sce
new file mode 100755
index 000000000..92f446f37
--- /dev/null
+++ b/2144/CH7/EX7.1/ex7_1.sce
@@ -0,0 +1,15 @@
+// Exa 7.1

+clc;

+clear;

+close;

+// Given data

+H1 = 2600;// in kJ/kg

+H2 = 1850;// in kJ/kg

+g = 9.81;

+C1 = 10;// in meter/second

+C2 = 20;// in meter/secon

+Q = 120;// in kJ/kg

+Z1 = 30;// in meter

+Z2 = 10;// in meter

+W = g*(Z1-Z2)/1000+H1-H2+(C1^2-C2^2)/(2*1000)+Q

+disp(W,"The work done in kJ/kg is");

diff --git a/2144/CH7/EX7.2/ex7_2.sce b/2144/CH7/EX7.2/ex7_2.sce
new file mode 100755
index 000000000..d33edda71
--- /dev/null
+++ b/2144/CH7/EX7.2/ex7_2.sce
@@ -0,0 +1,18 @@
+// Exa 7.2

+clc;

+clear;

+close;

+// Given data

+H1 = 3100;// in kJ/kg

+H2 = 1950;// in kJ/kg

+C1 = 20;// in meter/second

+C2 = 30;// in meter/secon

+Q = 0;// in kJ/kg

+Q_desh= 20;// in kJ/kg

+Vs= 1.1;// in m^3/kg

+W = H1-H2+(C1^2-C2^2)/(2*1000)+Q-Q_desh;// in kJ/kg

+m= 2;//mass flow rate in kg/sec

+Power= m*W;// in kW

+disp(Power,"Power output of the turbine in kW is : ")

+Area= m*Vs/C2;// in m^2

+disp(Area,"Area of exhaust pipe in m^2 is : ")

diff --git a/2144/CH7/EX7.3/ex7_3.sce b/2144/CH7/EX7.3/ex7_3.sce
new file mode 100755
index 000000000..beba70c7f
--- /dev/null
+++ b/2144/CH7/EX7.3/ex7_3.sce
@@ -0,0 +1,9 @@
+// Exa 7.3

+clc;

+clear;

+close;

+// Given data

+H1 = 2940;// in kJ/kg

+H2 = 2630;// in kJ/kg

+C = sqrt((H1-H2)*1000*2);// in m/sec

+disp(C,"Velocity of the steam leaving the nozzle in m/sec is");

diff --git a/2144/CH7/EX7.4/ex7_4.sce b/2144/CH7/EX7.4/ex7_4.sce
new file mode 100755
index 000000000..e2c487a14
--- /dev/null
+++ b/2144/CH7/EX7.4/ex7_4.sce
@@ -0,0 +1,13 @@
+// Exa 7.4

+clc;

+clear;

+close;

+// Given data

+H1 = 2800;// in kJ/kg

+H2 = 2600;// in kJ/kg

+C2 = sqrt(2*(H1-H2)*1000);// in m/s

+disp(C2,"Exit velocity in m/s is ");

+m_f = 25;// mass flow rate in kg/sec

+V = 0.154;// in m^3/kg

+A = (m_f*V)/C2;// in m^2

+disp(A,"Total exit area in m^2 is");

diff --git a/2144/CH7/EX7.5/ex7_5.sce b/2144/CH7/EX7.5/ex7_5.sce
new file mode 100755
index 000000000..3c369bcdf
--- /dev/null
+++ b/2144/CH7/EX7.5/ex7_5.sce
@@ -0,0 +1,14 @@
+// Exa 7.5

+clc;

+clear;

+close;

+// Given data

+Q = 20;// in kJ/kg

+P = 10;// in MW

+P = P * 10^3;// in kW

+H1 = 3248;// in kJ/kg

+H2 = 2552;// in kJ/kg

+C1 = 20;// m/s

+C2 = 40;// m/s

+m = P/((H1-H2+(C1^2-C2^2)/(2*1000))-Q);// in kg/s

+disp(m,"Mass in kg is");

diff --git a/2144/CH7/EX7.6/ex7_6.sce b/2144/CH7/EX7.6/ex7_6.sce
new file mode 100755
index 000000000..2ebedfe36
--- /dev/null
+++ b/2144/CH7/EX7.6/ex7_6.sce
@@ -0,0 +1,21 @@
+// Exa 7.6

+clc;

+clear;

+close;

+// Given data

+h_f1 = 2584;// in kJ/kg

+h_fg1 = 2392;// in kJ/kg

+H2 = 192;// in kJ/kg

+x = 0.2;

+H1 = round(h_f1- (x*h_fg1));// in kJ/kg

+x1 = 0.8;

+Vs = 14.67;// in m^3

+V1 = x1*Vs;// in m^3/kg

+A = 0.45;// in m^2

+C1 = V1/A;// in m/s

+Q = 5;// kJ/s

+C2 = 0;

+W = 0;

+Q_desh = W-H1 - C1^2/(2*1000)-Q+H2+C2^2/2;// in kJ/s

+disp(Q_desh,"Rate of heat transfer in kJ/s is");

+