From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3843/CH6/EX6.1/Ex6_1.sce   | 15 +++++++++++++++
 3843/CH6/EX6.10/Ex6_10.sce | 21 +++++++++++++++++++++
 3843/CH6/EX6.11/Ex6_11.sce | 19 +++++++++++++++++++
 3843/CH6/EX6.2/Ex6_2.sce   | 13 +++++++++++++
 3843/CH6/EX6.3/Ex6_3.sce   | 20 ++++++++++++++++++++
 3843/CH6/EX6.4/Ex6_4.sce   | 15 +++++++++++++++
 3843/CH6/EX6.5/Ex6_5.sce   | 26 ++++++++++++++++++++++++++
 3843/CH6/EX6.6/Ex6_6.sce   | 27 +++++++++++++++++++++++++++
 3843/CH6/EX6.7/Ex6_7.sce   |  8 ++++++++
 3843/CH6/EX6.8/Ex6_8.sce   | 19 +++++++++++++++++++
 3843/CH6/EX6.9/Ex6_9.sce   | 23 +++++++++++++++++++++++
 11 files changed, 206 insertions(+)
 create mode 100644 3843/CH6/EX6.1/Ex6_1.sce
 create mode 100644 3843/CH6/EX6.10/Ex6_10.sce
 create mode 100644 3843/CH6/EX6.11/Ex6_11.sce
 create mode 100644 3843/CH6/EX6.2/Ex6_2.sce
 create mode 100644 3843/CH6/EX6.3/Ex6_3.sce
 create mode 100644 3843/CH6/EX6.4/Ex6_4.sce
 create mode 100644 3843/CH6/EX6.5/Ex6_5.sce
 create mode 100644 3843/CH6/EX6.6/Ex6_6.sce
 create mode 100644 3843/CH6/EX6.7/Ex6_7.sce
 create mode 100644 3843/CH6/EX6.8/Ex6_8.sce
 create mode 100644 3843/CH6/EX6.9/Ex6_9.sce

(limited to '3843/CH6')

diff --git a/3843/CH6/EX6.1/Ex6_1.sce b/3843/CH6/EX6.1/Ex6_1.sce
new file mode 100644
index 000000000..f891cd7fe
--- /dev/null
+++ b/3843/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,15 @@
+// Example 6_1
+clc;funcprot(0);
+// Given data
+T_1=20;// °C
+p_1=200;// kPa
+W=720;// kJ
+V_1=2;// m^3
+R=0.287;// kJ/kg.K
+c_v=0.717;// kJ/kg.K
+
+// Calculation
+m=(p_1*V_1)/(R*(T_1+273));// The mass in kg
+T_2=(W/(m*c_v))+(T_1+273);// K
+delS=m*c_v*log(T_2/(T_1+273));// kJ/K
+printf("\nThe increase in entropy,delS=%1.3f kJ/K",delS);
diff --git a/3843/CH6/EX6.10/Ex6_10.sce b/3843/CH6/EX6.10/Ex6_10.sce
new file mode 100644
index 000000000..ca1ae4d08
--- /dev/null
+++ b/3843/CH6/EX6.10/Ex6_10.sce
@@ -0,0 +1,21 @@
+// Example 6_10
+clc;funcprot(0);
+// Given data
+P_1=140;// The steam pressure at turbine inlet in psia
+T_1=1000;// The temperature at turbine inlet in °F
+P_2=2;// The steam pressure at turbine exit in psia
+m=4;// lbm/sec
+
+// Calculation
+// From steam tables
+h_1=1531;// Btu/lbm
+s_2=1.8827;// Btu/lbm.°R
+s_1=s_2;// Btu/lbm.°R
+s_f2=0.1750;// Btu/lbm.°R
+s_fg2=1.7448;// Btu/lbm.°R
+x_2=(s_2-s_f2)/s_fg2;// Btu/lbm.°R
+h_f2=94.02;// Btu/lbm
+h_fg2=1022.1;// Btu/lbm
+h_2=h_f2+(x_2*h_fg2);// Btu/lbm
+W_T=m*(h_1-h_2);// Btu/sec
+printf("\nThe power output,W_T=%4.0f Btu/sec or %4.0f hp",W_T,W_T*1.414);
diff --git a/3843/CH6/EX6.11/Ex6_11.sce b/3843/CH6/EX6.11/Ex6_11.sce
new file mode 100644
index 000000000..b1a8b1bc5
--- /dev/null
+++ b/3843/CH6/EX6.11/Ex6_11.sce
@@ -0,0 +1,19 @@
+// Example 6_11
+clc;funcprot(0);
+// Given data
+// From example 6.10
+P_1=140;// The steam pressure at turbine inlet in psia
+T_1=1000;// The temperature at turbine inlet in °F
+P_2=2;// The steam pressure at turbine exit in psia
+m=4;// lbm/sec
+W_s=1748;// Btu/sec
+n_t=0.80;// The isentropic efficiency of the turbine
+h_1=1521;// Btu/lbm
+
+// Calculation
+W_a=n_t*W_s;// Btu/sec
+h_2a=h_1-(W_a/m);// Btu/lbm
+P_2a=2;// psia
+T_2a=(((1186-1182)/(1186-1168))*(280-240))+280;// °F
+s_2a=2.0526;// Btu/lbm.°R
+printf("\nThe temperature of the final state,T_2a=%3.0f°F \nThe entropy of thefinal state,s_2a=%1.4f Btu/lbm.°R",T_2a,s_2a);
diff --git a/3843/CH6/EX6.2/Ex6_2.sce b/3843/CH6/EX6.2/Ex6_2.sce
new file mode 100644
index 000000000..118275dbc
--- /dev/null
+++ b/3843/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,13 @@
+// Example 6_2
+clc;funcprot(0);
+// Given data
+P_1=1200;// kPa
+P_2=140;// kPa
+T_1=350+273;// K
+c_v=0.717;// kJ/kg.K
+k=1.4;// The specific heat ratio
+
+// Calculation
+T_2=T_1*(P_2/P_1)^((k-1)/k);// K
+w=c_v*(T_1-T_2);// kJ/kg
+printf("The work done by the gases,w=%3.0f kJ/kg",w);
diff --git a/3843/CH6/EX6.3/Ex6_3.sce b/3843/CH6/EX6.3/Ex6_3.sce
new file mode 100644
index 000000000..52fb49911
--- /dev/null
+++ b/3843/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,20 @@
+// Example 6_3
+clc;funcprot(0);
+// Given data
+T_1=20;// °C
+P_1=200;// kPa
+W=720;// kJ
+V_1=2;// m^3
+R=0.287;// kJ/kg.K
+c_v=0.717;// kJ/kg.K
+
+// Calculation
+m=(P_1*V_1)/(R*(T_1+273));// The mass in kg
+u_1=209.1;// kJ/kg
+u_2=-(W/m)+u_1;// kJ/kg
+T_2=501.2;// K
+phi_2=2.222;// The relative humidity at state 2
+phi_1=1.678;// The relative humidity at state 1
+P_2=P_1*(T_2/(T_1+273));// kPa
+delS=m*(phi_2-phi_1-(R*log(P_2/P_1)));// kJ/K
+printf("\nThe entropy change,delS=%1.3f kJ/K",delS);
diff --git a/3843/CH6/EX6.4/Ex6_4.sce b/3843/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..5adeed255
--- /dev/null
+++ b/3843/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,15 @@
+// Example 6_4
+clc;funcprot(0);
+// Given data
+P_1=1200;// kPa
+T_1=350;// °C
+P_2=140;// kPa
+
+// Calculation
+P_r1=((1/20)*(20.64-18.36))+18.36;// The relative pressure at state 1
+P_r2=P_r1*(P_2/P_1);//  The relative pressure at state 2
+T_2=(((2.182-2.149)/(2.626-2.149))*(360-340))+340;// K
+u_1=((3/20)*(465.5-450.1))+450.1;// kJ/kg
+u_2=(((2.182-2.149)/(2.626-2.149))*(257.2-242.8))+242.8;// kJ/kg
+w=u_1-u_2;// The work done by the gases in kJ/kg
+printf("\nThe work done by the gases,w=%3.1f kJ/kg",w);
diff --git a/3843/CH6/EX6.5/Ex6_5.sce b/3843/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..84245b01b
--- /dev/null
+++ b/3843/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,26 @@
+// Example 6_5
+clc;funcprot(0);
+// Given data
+P_1=100;// The initial pressure in psia
+T_1=600;// The initial temperature in °F
+P_2=10;// The final pressure in psia
+
+// Calculation
+// From steam tables
+v_2=6.216;// ft^3/lbm
+v_1=v_2;// ft^3/lbm
+v_f2=0.0166;// ft^3/lbm
+v_g2=38.42;// ft^3/lbm
+x=(v_2-v_f2)/(v_g2-v_f2);// The quality of steam
+// From steam tables
+s_f2=0.2836;// Btu/lbm-°R
+s_fg2=1.5041;// Btu/lbm-°R
+s_1=1.7582;// Btu/lbm-°R
+s_2=s_f2+(x*s_fg2);// Btu/lbm-°R
+dels=s_2-s_1;//  Btu/lbm-°R
+u_f2=161.2;// Btu/lbm
+u_fg2=911.01;// Btu/lbm
+u_1=1214.2;// Btu/lbm
+q=[u_f2+(x*u_fg2)]-u_1;// Btu/lbm
+printf("\nThe entropy change,dels=%1.3f Btu/lbm-°R \nThe heat transfer,q=%3.0f Btu/lbm",dels,q);
+
diff --git a/3843/CH6/EX6.6/Ex6_6.sce b/3843/CH6/EX6.6/Ex6_6.sce
new file mode 100644
index 000000000..9ee772a00
--- /dev/null
+++ b/3843/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,27 @@
+// Example 6_6
+clc;funcprot(0);
+// Given data
+P_1=20;// kPa
+P_2=1000;// kPa
+P_3=P_2;// kPa
+P_4=P_1;// kPa
+x_4=0.88;// The quality of steam
+m=1;// kg
+
+// Calculation
+// From steam tables
+T_B=179.9;// °C
+T_C=60.1;// °C
+x_1=0.18;// The quality of steam at inlet
+h_2=763;// kJ/kg
+h_3=2778;// kJ/kg
+Q_B=m*(h_3-h_2);// kJ
+h_f4=251;// kJ/kg
+h_fg4=2358;// kJ/kg
+h_4=h_f4+(x_4*h_fg4);// kJ/kg
+h_f1=251;// kJ/kg
+h_fg1=2358;// kJ/kg
+h_1=h_f1+(x_1*h_fg1);// kJ/kg
+Q_C=m*(h_4-h_1);// kJ
+dQbyT=(Q_B/(T_B+273))-(Q_C/(T_C+273));// kJ/K
+printf("\ndQ/T=%0.3f kJ/K.This is negative,as it must be if the proposed power plant is to satisfy the inequality of Clausius.",dQbyT);
diff --git a/3843/CH6/EX6.7/Ex6_7.sce b/3843/CH6/EX6.7/Ex6_7.sce
new file mode 100644
index 000000000..e18cee862
--- /dev/null
+++ b/3843/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,8 @@
+// Example 6_7
+clc;funcprot(0);
+// Given data
+R=53.3/778;//  Btu/lbm-°R
+
+// Calculation
+delS=R*log(2);// The entropy change in Btu/lbm-°R
+printf("\nThe entropy change,delS=%0.5f Btu/lbm-°R",delS);
diff --git a/3843/CH6/EX6.8/Ex6_8.sce b/3843/CH6/EX6.8/Ex6_8.sce
new file mode 100644
index 000000000..7b5aad6a6
--- /dev/null
+++ b/3843/CH6/EX6.8/Ex6_8.sce
@@ -0,0 +1,19 @@
+// Example 6_8
+clc;funcprot(0);
+// Given data
+m=2;// The mass of steam in kg
+T=400;// °C
+P=600;// kPa
+T_0=25+273;// K
+
+// Calculation
+// From steam tables
+s_1=7.7086;// kJ/kg.K
+s_2=1.9316;// kJ/kg.K
+dS_sys=m*(s_2-s_1);// kJ/K
+h_1=3270.2;// kJ/kg
+h_2=670.6;// kJ/kg
+Q=m*(h_1-h_2);// The heat transfer in kJ
+dS_surr=Q/T_0;// kJ/K
+dS_univ=dS_surr+dS_sys;// kJ/K
+printf("\nThe net entropy change of the process,dS_univ=%1.2f kJ/K",dS_univ);
diff --git a/3843/CH6/EX6.9/Ex6_9.sce b/3843/CH6/EX6.9/Ex6_9.sce
new file mode 100644
index 000000000..ed478949d
--- /dev/null
+++ b/3843/CH6/EX6.9/Ex6_9.sce
@@ -0,0 +1,23 @@
+// Example 6_9
+clc;funcprot(0);
+// Given data
+m_1=4;// kg/s
+m_2=0.5;// kg/s
+T_1=45;// °C
+T_2=250;// °C
+P=600;// kPa
+
+// Calculation
+m_3=m_2+m_1;// kg/s
+// From steam tables
+h_2=2957.2;// kJ/kg
+h_1=188.4;// kJ/kg
+h_3=((m_2*h_2)+(m_1*h_1))/m_3;// kJ/kg
+// The exiting water temperature is interpolated from the saturated steam tables
+h_f=496;// kJ/kg
+T_3=(((496-461.3)/(503.7-461.3))*(110-100))+110;//  The exiting water temperature in °C
+s_3=1.508;// kJ/kg.K
+s_2=7.182;// The entropy of the entering superheated steam in kJ/kg.K
+s_1=0.639;// The entering entropy of the subcooled water in kJ/kg.K
+S_prod=(m_3*s_3)-(m_2*s_2)-(m_1*s_1);// kW/K
+printf("\nThe rate of entropy production,S_prod=%0.3f kW/K",S_prod);
-- 
cgit