updated the code

3 files changed, 46 insertions, 46 deletions

diff --git a/635/CH5/EX5.21/Ch05Ex21.sci b/635/CH5/EX5.21/Ch05Ex21.sci
index 5e92b2cb4..6d251c65c 100755
--- a/635/CH5/EX5.21/Ch05Ex21.sci
+++ b/635/CH5/EX5.21/Ch05Ex21.sci
@@ -1,8 +1,8 @@
-// Scilab Code Ex5.21 Determining tilt angle from dislocation spacing in the boundary of Cu: Page-188 (2010)

-a = 3.61e-010;    // Lattice parameter of Cu, m

-b = a/sqrt(2);    // Burger vector magnitude for fcc Cu, m

-h = 1.5e-06;    // The vertical spacing between two neighbouring edge dislocations, m

-tan_theta = atand(b/h)*(%pi/180);    // tangent of tilt angle between two tilt boundaries of Cu, radian

-printf("\nThe tilt angle between two tilt boundaries of Cu = %3.1e radian", theta);

-// Result

+// Scilab Code Ex5.21 Determining tilt angle from dislocation spacing in the boundary of Cu: Page-188 (2010)
+a = 3.61e-010;    // Lattice parameter of Cu, m
+b = a/sqrt(2);    // Burger vector magnitude for fcc Cu, m
+h = 1.5e-06;    // The vertical spacing between two neighbouring edge dislocations, m
+theta = atand(b/h)*(%pi/180);    // tangent of tilt angle between two tilt boundaries of Cu, radian
+printf("\nThe tilt angle between two tilt boundaries of Cu = %3.1e radian", theta);
+// Result
 // The tilt angle between two tilt boundaries of Cu = 1.7e-004 radian
\ No newline at end of file
diff --git a/635/CH5/EX5.22/Ch05Ex22.sci b/635/CH5/EX5.22/Ch05Ex22.sci
index 4daf087ad..bd4812d5d 100755
--- a/635/CH5/EX5.22/Ch05Ex22.sci
+++ b/635/CH5/EX5.22/Ch05Ex22.sci
@@ -1,7 +1,7 @@
-// Scilab Code Ex5.22 Determining tilt angle from dislocation spacing in the boundary of Cu: Page-188 (2010)

-b = 0.4e-09;    // Burger vector magnitude for fcc Cu, m

-h = 3.0e-06;    // The vertical spacing between two neighbouring edge dislocations, m

-tan_theta = atand(b/h)*(%pi/180);    // tangent of tilt angle between two tilt boundaries of Cu, radian

-printf("\nThe tilt angle between two tilt boundaries of Cu = %4.2e radian", theta);

-// Result

+// Scilab Code Ex5.22 Determining tilt angle from dislocation spacing in the boundary of Cu: Page-188 (2010)
+b = 0.4e-09;    // Burger vector magnitude for fcc Cu, m
+h = 3.0e-06;    // The vertical spacing between two neighbouring edge dislocations, m
+theta = atand(b/h)*(%pi/180);    // tangent of tilt angle between two tilt boundaries of Cu, radian
+printf("\nThe tilt angle between two tilt boundaries of Cu = %4.2e radian", theta);
+// Result
 // The tilt angle between two tilt boundaries of Cu = 1.33e-004 radian
\ No newline at end of file
diff --git a/635/CH7/EX7.2/Ch07Ex2.sci b/635/CH7/EX7.2/Ch07Ex2.sci
index 9940947ad..312f16c7f 100755
--- a/635/CH7/EX7.2/Ch07Ex2.sci
+++ b/635/CH7/EX7.2/Ch07Ex2.sci
@@ -1,34 +1,34 @@
-// Scilab Code Ex7.2 Comparison of frequency of waves in a monoatomic and diatomic linear systems: Page-238 (2010)

-a = 2.5e-010;    // Interatomic spacing between two identical atoms, m

-v0 = 1e+03;    // Velocity of sound in the solid, m/s

-lambda = 10e-010;    // Wavelength of the sound wave, m

-omega = v_0*2*%pi/lambda;    // Angular frequency of sound wave in a monoatomic lattice, rad per sec

-printf("\nThe frequency of sound waves in a monoatomic lattice = %4.2e rad/sec", omega);

-// For acoustic waves in a diatomic lattice (M = m), the angular frequency, omega = 0 at k = 0 and

-// omega = (2*K/m)^(1/2)    --- (i)    at k = %pi/(2*a)

-// As v0 = a*(2*K/m)^(1/2)    --- (ii)

-// From (i) and (ii), we have

-omega_min = 0;    // Angular frequency of acoustic waves at k = 0, rad per sec

-omega_max = v0/a;    // Angular frequency of acoustic waves at k = %pi/(2*a), rad per sec

-printf("\n\nThe frequency of acoustic waves wave in a diatomic lattice :\n %d rad/sec for k = 0 \n %1.0e rad/sec for k = pi/(2*a)", omega_min, omega_max);

-// For optical waves in a diatomic lattice (M = m), the angular frequency 

-// omega = sqrt(2)*(2*K/m)^(1/2)    --- (iii)    at k = 0

-// As v0 = a*(2*K/m)^(1/2)    --- (iv)

-// From (iii) and (iv), we have

-omega_max = sqrt(2)*v_0/a;    // Angular frequency of optical waves at k = 0, rad per sec

-// For optical waves in a diatomic lattice (M = m), the angular frequency 

-// omega = (2*K/m)^(1/2)    --- (iii)    at k = %pi/(2*a)

-// As v0 = a*(2*K/m)^(1/2)    --- (iv)

-// From (iii) and (iv), we have

-omega_min = v_0/a;    // Angular frequency of optical waves at k = %pi/(2*a), rad per sec

-printf("\n\nThe frequency of optical swaves wave in a diatomic lattice :\n %4.2e rad/sec for k = 0 \n %1.0e rad/sec for k = pi/(2*a)", omega_max, omega_min);

-// Result 

-// The frequency of sound waves in a monoatomic lattice = 6.28e+012 rad/sec

-

-// The frequency of acoustic waves wave in a diatomic lattice :

-// 0 rad/sec for k = 0 

-// 4e+012 rad/sec for k = pi/(2*a)

-

-// The frequency of optical swaves wave in a diatomic lattice :

-// 5.66e+012 rad/sec for k = 0 

+// Scilab Code Ex7.2 Comparison of frequency of waves in a monoatomic and diatomic linear systems: Page-238 (2010)
+a = 2.5e-010;    // Interatomic spacing between two identical atoms, m
+v0 = 1e+03;    // Velocity of sound in the solid, m/s
+lambda = 10e-010;    // Wavelength of the sound wave, m
+omega = v0*2*%pi/lambda;    // Angular frequency of sound wave in a monoatomic lattice, rad per sec
+printf("\nThe frequency of sound waves in a monoatomic lattice = %4.2e rad/sec", omega);
+// For acoustic waves in a diatomic lattice (M = m), the angular frequency, omega = 0 at k = 0 and
+// omega = (2*K/m)^(1/2)    --- (i)    at k = %pi/(2*a)
+// As v0 = a*(2*K/m)^(1/2)    --- (ii)
+// From (i) and (ii), we have
+omega_min = 0;    // Angular frequency of acoustic waves at k = 0, rad per sec
+omega_max = v0/a;    // Angular frequency of acoustic waves at k = %pi/(2*a), rad per sec
+printf("\n\nThe frequency of acoustic waves wave in a diatomic lattice :\n %d rad/sec for k = 0 \n %1.0e rad/sec for k = pi/(2*a)", omega_min, omega_max);
+// For optical waves in a diatomic lattice (M = m), the angular frequency 
+// omega = sqrt(2)*(2*K/m)^(1/2)    --- (iii)    at k = 0
+// As v0 = a*(2*K/m)^(1/2)    --- (iv)
+// From (iii) and (iv), we have
+omega_max = sqrt(2)*v0/a;    // Angular frequency of optical waves at k = 0, rad per sec
+// For optical waves in a diatomic lattice (M = m), the angular frequency 
+// omega = (2*K/m)^(1/2)    --- (iii)    at k = %pi/(2*a)
+// As v0 = a*(2*K/m)^(1/2)    --- (iv)
+// From (iii) and (iv), we have
+omega_min = v0/a;    // Angular frequency of optical waves at k = %pi/(2*a), rad per sec
+printf("\n\nThe frequency of optical swaves wave in a diatomic lattice :\n %4.2e rad/sec for k = 0 \n %1.0e rad/sec for k = pi/(2*a)", omega_max, omega_min);
+// Result 
+// The frequency of sound waves in a monoatomic lattice = 6.28e+012 rad/sec
+
+// The frequency of acoustic waves wave in a diatomic lattice :
+// 0 rad/sec for k = 0 
+// 4e+012 rad/sec for k = pi/(2*a)
+
+// The frequency of optical swaves wave in a diatomic lattice :
+// 5.66e+012 rad/sec for k = 0 
 // 4e+012 rad/sec for k = pi/(2*a)
\ No newline at end of file