initial commit / add all books

8 files changed, 164 insertions, 0 deletions

diff --git a/527/CH5/EX5.1/5_1exam.sce b/527/CH5/EX5.1/5_1exam.sce
new file mode 100755
index 000000000..c67926013
--- /dev/null
+++ b/527/CH5/EX5.1/5_1exam.sce
@@ -0,0 +1,7 @@
+//Engineering and Chemical Thermodynamics

+//Example 5.1

+//Page no :218

+

+clear ; clc ;

+disp("  Example: 5.1   Page no : 218") ;

+disp("           The problem contains only theory and different substitutions.There is no numerical part involved. Users can go through the book to obtain the required expression.")
\ No newline at end of file
diff --git a/527/CH5/EX5.2/5_2exam.sce b/527/CH5/EX5.2/5_2exam.sce
new file mode 100755
index 000000000..b0142015d
--- /dev/null
+++ b/527/CH5/EX5.2/5_2exam.sce
@@ -0,0 +1,20 @@
+//Engineering and Chemical Thermodynamics

+//Example 5.2

+//Page no :222

+

+clear ; clc ;

+//Given 

+T_c = 370 ; //[K]

+P_c = 41.58 * 10^5 ;//[N/m^2]

+R = 8.314 ;

+V1 = 0.001 ;//[m^3]

+V2 = 0.04 ; //[m^3]

+q = 600 ; //[J]

+

+a = 27/64 * (R ^2)*(T_c)^2 / P_c ;

+//Using E5.2D , E5.2E in E5.2C 

+del_U = -0.96 * (1 / V2 - 1 / V1) ; 

+W = del_U - q ;

+

+disp(" Example: 5.2   Page no : 222") ;

+printf("\n     Work done for the expansion = %g J/mol",W) ;
\ No newline at end of file
diff --git a/527/CH5/EX5.3/5_3exam.sce b/527/CH5/EX5.3/5_3exam.sce
new file mode 100755
index 000000000..c1f310120
--- /dev/null
+++ b/527/CH5/EX5.3/5_3exam.sce
@@ -0,0 +1,7 @@
+//Engineering and Chemical Thermodynamics

+//Example 5.3

+//Page no :223

+

+clear ; clc 

+disp("  Example: 5.3   Page no : 223") ;

+disp("           The problem contains only theory and different substitutions.There is no numerical part involved. Users can go through the book to obtain the required expression.") ;
\ No newline at end of file
diff --git a/527/CH5/EX5.4/5_4exam.sce b/527/CH5/EX5.4/5_4exam.sce
new file mode 100755
index 000000000..6ec359881
--- /dev/null
+++ b/527/CH5/EX5.4/5_4exam.sce
@@ -0,0 +1,44 @@
+//Engineering and Chemical Thermodynamics

+//Example 5.4

+//Page no :225

+

+clear ; clc ;

+//Given

+P_1 = 9.43 * 10^5 ; //[N/m^2]

+P_2 = 18.9 * 10^5 ; //[N/m^2]

+T_1 = 80 + 273 ; //[K]

+T_2 = 120 + 273 ; //[K]

+A = 1.935 ;

+B = 36.915 * 10^-3 ;

+C = -11.402 * 10^-6 ;

+T_c = 425.2 ; // [K]

+P_c = 37.9 * 10^5 ;//[N/m^2]

+R = 8.314 ;

+del_h_1 = 1368 ; //[J/mol]

+del_h_3 = -2542 ; //[J/mol]

+Ws = 2100 ; //[J/mol]

+

+a = 0.42748 * R^2 * T_c^2.5 / P_c ;

+b = 0.08664 * R * T_c / P_c ;

+ 

+

+  function y = f1 (v) , y  = R * T_1 / (v - b) - a / (sqrt(T_1) * v *(v + b)) - P_1;

+  endfunction ;

+za=  fsolve([0.001] , f1) ;

+

+  function y = f2 (v) , y  = R * T_2 / (v - b) - a / (sqrt(T_2) * v *(v + b)) - P_2;

+  endfunction ;

+ zb=  fsolve([0.001] , f2) ;

+

+   function y = f(T), 

+       y = R * ( A * T + B/2 * T^2 + C/3 * T^3) ;

+   endfunction ;

+

+del_h_2 = f(T_2) - f(T_1) ;

+del_h_total = del_h_1 + del_h_2 + del_h_3 ;

+q = del_h_total - Ws ;

+

+

+disp(" Example: 5.4   Page no : 225") ;

+printf("\n          v1 = %f m^3/mol\n          v2 = %f m^3/mol",za ,zb ) ;

+printf("\n\n     The heat input = %g J/mol",ceil(q));
\ No newline at end of file
diff --git a/527/CH5/EX5.5/5_5exam.sce b/527/CH5/EX5.5/5_5exam.sce
new file mode 100755
index 000000000..e07695dd9
--- /dev/null
+++ b/527/CH5/EX5.5/5_5exam.sce
@@ -0,0 +1,39 @@
+//Engineering and Chemical Thermodynamics

+//Example 5.5

+//Page no :234

+

+clear ; clc ;

+//Given

+T_c = 425.2 ; //[K] ,From Appendix A.1

+P_c = 37.9 * 10^5 ; //[N/m^2] ,From Appendix A.1

+w = 0.199 ;// From Appendix A.1

+A = 1.935 ; 

+B = 36.915 * 10^-3 ;

+C = -11.402 * 10^-6 ;

+Ws = 2100 ; //[J/mol]

+T1 = 353.15 ;//[K]

+T2 = 393.15 ;//[K]

+P1 =7.47 * 10^5 ;//[N/m^2] 

+P2 = 18.9 * 10^5 ; //[N/m^2]

+R = 8.314 ;

+enth_dep1_0 = -0.413 ;// Table C.3,C.4 in Appendix C

+enth_dep1_1 = -0.622 ;// Table C.3,C.4 in Appendix C

+enth_dep1 = enth_dep1_0 + w * enth_dep1_1 ;//....E5.5B

+enth_dep2_0 = -0.771 ;// Table C.3,C.4 in Appendix C 

+enth_dep2_1 = -0.994 ;// Table C.3,C.4 in Appendix C

+enth_dep2 = enth_dep2_0 + w * enth_dep2_1 ;//....E5.5C

+

+T1_r = T1 / T_c ;

+P1_r = P1 / P_c ;

+T2_r = T2 / T_c ;

+P2_r = P2 / P_c ;

+

+function y=f(T) , y = R * (A * T + B/2 * T^2 + C/3 * T^3)

+endfunction

+del_h = f(T2) - f(T1) ;//.....E5.5D

+

+Del_h = -enth_dep1 * R * T_c + del_h + enth_dep2 * R * T_c ;

+q = Del_h - Ws ;

+

+disp(" Example: 5.5   Page no : 235") ;

+printf("\n     Heat input = %d J/mol",q)
\ No newline at end of file
diff --git a/527/CH5/EX5.6/5_6exam.sce b/527/CH5/EX5.6/5_6exam.sce
new file mode 100755
index 000000000..9da61389a
--- /dev/null
+++ b/527/CH5/EX5.6/5_6exam.sce
@@ -0,0 +1,7 @@
+//Engineering and Chemical Thermodynamics

+//Example 5.6

+//Page no :237

+

+clear ; clc ;

+disp("  Example: 5.6   Page no : 237") ;

+disp("           The problem contains only theory and different substitutions.There is no numerical part involved. Users can go through the book to obtain the required expression.")
\ No newline at end of file
diff --git a/527/CH5/EX5.7/5_7exam.sce b/527/CH5/EX5.7/5_7exam.sce
new file mode 100755
index 000000000..50d3a5a1e
--- /dev/null
+++ b/527/CH5/EX5.7/5_7exam.sce
@@ -0,0 +1,7 @@
+//Engineering and Chemical Thermodynamics

+//Example 5.7

+//Page no :239

+

+clear ; clc ;

+disp("  Example: 5.7   Page no :239") ;

+disp("           The problem contains only theory and different substitutions.There is no numerical part involved. Users can go through the book to obtain the required expression.")
\ No newline at end of file
diff --git a/527/CH5/EX5.8/5_8exam.sce b/527/CH5/EX5.8/5_8exam.sce
new file mode 100755
index 000000000..68f6355c5
--- /dev/null
+++ b/527/CH5/EX5.8/5_8exam.sce
@@ -0,0 +1,33 @@
+//Engineering and Chemical Thermodynamics

+//Example 5.8

+//Page no :241

+

+clear ; clc ;

+//Given 

+T_c = 126.2 ; //[K] , From appendix A.1

+P_c = 33.8 * 10^5 ; //[N/m^2] , From appendix A.1

+w = 0.039 ;// From appendix A.1

+enth_dep_1 = -2.81 ; // From table C.1 Appendix C

+A = 3.28 ;// From Appendix A.2

+B = 0.593 * 10^-3 ;// From Appendix A.2

+del_h_dep_l = -5.1 ; 

+del_h_dep_v = -0.1 ;

+T1 = 151 ; //[K]

+P1 = 100 * 10^5 ; //[N/m^2]

+P2 = 1 * 10^5 ; //[N/m^2]

+T2_r = 0.61 ; // From figure 5.4

+T1_r = T1 / T_c ;

+P1_r = P1 / P_c ;

+P2_r = P2 / P_c ;

+

+T2 = T2_r * T_c ; //[K]

+function y=f(T),y = A * T + B/2 * T^2 

+endfunction

+x = 1 / T_c *(f(T2) - f(T1)) ;

+

+y = enth_dep_1 - x ;

+

+disp(" Example: 5.8   Page no : 241") ;

+disp(y)

+X = ( y - del_h_dep_l) / (del_h_dep_v - del_h_dep_l);

+printf("\n   Quality = %.2f",X) ;
\ No newline at end of file