initial commit / add all books

11 files changed, 148 insertions, 0 deletions

diff --git a/3831/CH7/EX7.1/Ex7_1.sce b/3831/CH7/EX7.1/Ex7_1.sce
new file mode 100644
index 000000000..8fc6040e4
--- /dev/null
+++ b/3831/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,9 @@
+// Example 7_1

+clc;funcprot(0);

+// Given data

+T_L=70.0;// °F

+T_H=4000.0;// °F

+

+// Solution

+n_T_max=(1-((T_L+459.67)/(T_H+459.67)))*100;// The maximum possible thermal efficiency of this engine in %

+printf('\nThe maximum possible thermal efficiency of this engine,(n_T)_max=%2.1f percentage',n_T_max);

diff --git a/3831/CH7/EX7.10/Ex7_10.sce b/3831/CH7/EX7.10/Ex7_10.sce
new file mode 100644
index 000000000..b3c5b0586
--- /dev/null
+++ b/3831/CH7/EX7.10/Ex7_10.sce
@@ -0,0 +1,19 @@
+// Example 7_10

+clc;funcprot(0);

+// Given data

+m_1=1.00;// lbm

+p_1=14.7;// psia

+T_1=70.0;// °F

+p_2=50.0;// psia

+T_2=T_1;// °F

+W_act=-42.0*10^3;// ft.lbf

+R=53.34;// ft.lbf

+

+// Solution

+P_1=p_1*144;// lbf/ft^2

+V_1=(m_1*R*(T_1+459.67))/P_1;// ft^3

+W_rev=P_1*V_1*log(p_1/p_2);// ft.lbf

+W_in=W_rev-W_act;// ft.lbf

+S_pW=W_in/(T_1+459.67);// ft.lbf/R

+S_pW=S_pW/778.16;// Btu/R

+printf('\nThe work mode entropy production,(S_p)_w=%0.4f Btu/R',S_pW);

diff --git a/3831/CH7/EX7.11/Ex7_11.sce b/3831/CH7/EX7.11/Ex7_11.sce
new file mode 100644
index 000000000..b73055d44
--- /dev/null
+++ b/3831/CH7/EX7.11/Ex7_11.sce
@@ -0,0 +1,11 @@
+// Example 7_11

+clc;funcprot(0);

+// Given data

+T=30;// °C

+mu=0.10;// N.s/m^2

+dVbydx=1000;// s^-1

+

+// Calculation

+Sigma_w=(mu*dVbydx^2)/(T+273.15);// N/m^2.s.K

+Sigma_w=Sigma_w/10^3;// kJ/(m^3.s.K)

+printf('\nThe entropy production rate per unit volume,Sigma_w-vis=%0.2f kJ/(m^3.s.K)',Sigma_w);

diff --git a/3831/CH7/EX7.12/Ex7_12.sce b/3831/CH7/EX7.12/Ex7_12.sce
new file mode 100644
index 000000000..cb68055f7
--- /dev/null
+++ b/3831/CH7/EX7.12/Ex7_12.sce
@@ -0,0 +1,15 @@
+// Example 7_12

+clc;funcprot(0);

+// Given data

+T=600;// K

+I=0.10;// amp

+L=10.0*10^-3;// m

+b=5.00*10^-3;// m

+w=1.00*10^-3;// m

+rho_e=0.10;// ohm.m

+

+// Calculation

+A=b*w;// m^2

+R_e=rho_e*(L/A);// W/A^2

+S_pW=(I^2*R_e)/T;// W/K

+printf('\nThe entropy production rate of the chip,(S_p)_W=%0.4f W/K',S_pW);

diff --git a/3831/CH7/EX7.2/Ex7_2.sce b/3831/CH7/EX7.2/Ex7_2.sce
new file mode 100644
index 000000000..b27fff3da
--- /dev/null
+++ b/3831/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,17 @@
+// Example 7_2

+clc;funcprot(0);

+// Given data

+T_L=10;// °C

+W_E=5.00;// MW

+W_P=100;// kW

+Q_L=8.00;// MW

+

+// Solution

+// (a)

+Q_H=abs(-Q_L)+(W_E-abs(-W_P/10^3));// MW

+n_T=((W_E-abs(-W_P/10^3))/Q_H);// The actual thermal efficiency of the power plant

+printf('\nThe actual thermal efficiency of the power plant,n_T=%2.1f percentage',n_T*100);

+// (b)

+T_H=(T_L+273.15)/(1-n_T);// K

+T_H=T_H-273.15;// °C

+printf('\nThe equivalent heat source temperature,T_H=%3.0f°C',T_H);

diff --git a/3831/CH7/EX7.3/Ex7_3.sce b/3831/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..f91547ec8
--- /dev/null
+++ b/3831/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,9 @@
+// Example 7_3

+clc;funcprot(0);

+// Given data

+T_H=95;// °F

+T_L=70;// °F

+

+// Solution

+COP=(T_L+459.67)/((T_H+459.67)-(T_L+459.67));// Coefficient of performance

+printf('\nThe Coefficient of performance,COP_Carnot air conditioner=%2.0f',COP);

diff --git a/3831/CH7/EX7.4/Ex7_4.sce b/3831/CH7/EX7.4/Ex7_4.sce
new file mode 100644
index 000000000..e68d41c10
--- /dev/null
+++ b/3831/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,14 @@
+// Example 7_4

+clc;funcprot(0);

+// Given data

+m=1.5;// kg

+x_1=0;// The dryness fraction

+T_1=20.0;// °C

+p_1=0.10;// MPa

+p_2=0.10;// MPa

+c=4.19;// kJ/kg.°C

+

+// Solution

+T_2=T_1;// °C

+deltaS=c*log(T_2/T_1);// kJ/kg.K

+printf('\nThe change in specific entropy of the water,s_2-s_1=%0.0f.Consequently, the entropy of an incompressible material is not altered by changing its pressure.',deltaS);

diff --git a/3831/CH7/EX7.5/Ex7_5.sce b/3831/CH7/EX7.5/Ex7_5.sce
new file mode 100644
index 000000000..5dabbe103
--- /dev/null
+++ b/3831/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,15 @@
+// Example 7_5

+clc;funcprot(0);

+// Given data

+m=0.035;// kg

+p_1=0.100;// MPa

+T_1=20.0;// °C

+p_2=5.00;// MPa

+k=1.4;// The specific heat ratio for air

+R_air=0.286;// kJ/kg.K

+

+// Solution

+T_2=((T_1+273.15)*(p_2/p_1)^((k-1)/k))-273.15;// °C

+v_1=(m*R_air*(T_1+273.15))/(p_1*10^3);// m^3/kg

+v_2=v_1*((T_2+273.15)/(T_1+273.15))^(1/(1-k));// m^3/kg

+printf('\nThe final temperature,T_2=%3.0f°C \nThe specific volume of the air,v_2=%0.5f m^3/kg',T_2,v_2);

diff --git a/3831/CH7/EX7.6/Ex7_6.sce b/3831/CH7/EX7.6/Ex7_6.sce
new file mode 100644
index 000000000..2e1c65538
--- /dev/null
+++ b/3831/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,16 @@
+// Example 7_6

+clc;funcprot(0);

+// Given dataS

+m=3.00;// lbm

+T_1=100.0;// °F

+x_1=80.0/100;// Quality of steam

+p_2=200;// psia

+T_2=800.0;// °F

+s_f1=0.1296;// Btu/lbm.R

+s_fg1=1.8528;// Btu/lbm.R

+s_2=1.7662;// Btu/lbm.R

+

+// Solution

+s_1=s_f1+(x_1*s_fg1);// Btu/lbm.R

+deltaS=m*(s_2-s_1);// Btu/R

+printf('\nThe change in total entropy,S_2-S_1=%0.3f Btu/R',deltaS);

diff --git a/3831/CH7/EX7.7/Ex7_7.sce b/3831/CH7/EX7.7/Ex7_7.sce
new file mode 100644
index 000000000..6a03cc870
--- /dev/null
+++ b/3831/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,13 @@
+// Example 7_7

+clc;funcprot(0);

+// Given data

+mdot=3.00;// kg/min

+x_in=0;// The quality of steam at inlet

+x_out=75;// The quality of steam at outlet

+T_in=100;// °C

+h_fg=2257;// kJ/kg

+

+// Solution

+Qdot=mdot*(x_out/100)*h_fg;// kJ/min

+S_T_Q=Qdot/(T_in+273.15);// kJ/min.K

+printf('\nThe heat transport rate of entropy for this process,(S_T)_Q=%2.1f kJ/min.K',S_T_Q);

diff --git a/3831/CH7/EX7.8/Ex7_8.sce b/3831/CH7/EX7.8/Ex7_8.sce
new file mode 100644
index 000000000..71fc465b8
--- /dev/null
+++ b/3831/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,10 @@
+// Example 7_8

+clc;funcprot(0);

+// Given data

+V=2.50*10^-3;// m^3

+Sigma_Q=53.7;// W/k.m^3

+tau=30.0;// min

+

+// Solution

+S_pQ=Sigma_Q*V*tau*60;// J/K

+printf('\nThe heat production of entropy inside this motor,(S_p)_Q=%3.0f J/K',S_pQ);