initial commit / add all books

16 files changed, 213 insertions, 0 deletions

diff --git a/1016/CH8/EX8.1/ex8_1.sce b/1016/CH8/EX8.1/ex8_1.sce
new file mode 100755
index 000000000..d7f20c9ab
--- /dev/null
+++ b/1016/CH8/EX8.1/ex8_1.sce
@@ -0,0 +1,9 @@
+clc;clear;

+//Example 8.1

+

+//given data

+V=60000;//working voltage in V

+

+//calculation

+Wmin=12400/V;

+disp(Wmin,'Wavelength emitted in Angstrom')
\ No newline at end of file
diff --git a/1016/CH8/EX8.10/ex8_10.sce b/1016/CH8/EX8.10/ex8_10.sce
new file mode 100755
index 000000000..a7cb9c11c
--- /dev/null
+++ b/1016/CH8/EX8.10/ex8_10.sce
@@ -0,0 +1,13 @@
+    clc;clear;

+//Example 8.10

+

+//given values

+D=12;//glancing angle in Degree

+n=1;

+d=3.04*10^-10;//grating space in m

+

+//calculation 

+W=(2*d*sind(D));

+disp((W/(10^-10)),'the wavelength in Angstrom');

+D3=asind((3*W)/(2*d));

+disp(D3,'the angle for third order reflection in degrees')
\ No newline at end of file
diff --git a/1016/CH8/EX8.11/ex8_11.sce b/1016/CH8/EX8.11/ex8_11.sce
new file mode 100755
index 000000000..1c44d7c7c
--- /dev/null
+++ b/1016/CH8/EX8.11/ex8_11.sce
@@ -0,0 +1,10 @@
+clc;clear;

+//Example 8.11

+

+//given data

+d=1.181;//distance of seperation in Angstrom

+W=1.540;//wavelength in Angstrom

+

+//calculations

+n=2*d/W;//sin(D) = 1 for max value

+disp(n,'the orders of bragg reflection')
\ No newline at end of file
diff --git a/1016/CH8/EX8.12/ex8_12.sce b/1016/CH8/EX8.12/ex8_12.sce
new file mode 100755
index 000000000..6ffbb139d
--- /dev/null
+++ b/1016/CH8/EX8.12/ex8_12.sce
@@ -0,0 +1,16 @@
+clc;clear;

+//Example 8.12

+

+//given data

+W=0.6;//wavelength in angstrom

+D1=6.45;

+D2=9.15;

+D3=13;//angles in degree

+

+//calculation

+d=W/(2*sind(D1));

+disp(d,'interplanar spacing for (a) in angstrom');

+d=W/(2*sind(D2));

+disp(d,'interplanar spacing for (b) in angstrom');

+d=W/(2*sind(D3))*2;//n=2 for (c)

+disp(d,'interplanar spacing for (c) in angstrom')
\ No newline at end of file
diff --git a/1016/CH8/EX8.13/ex8_13.sce b/1016/CH8/EX8.13/ex8_13.sce
new file mode 100755
index 000000000..951f4b516
--- /dev/null
+++ b/1016/CH8/EX8.13/ex8_13.sce
@@ -0,0 +1,14 @@
+clc;clear;

+//Example 8.13

+

+//given data

+W=3*10^-10;//wavelength in m

+D=40;//angle in degree

+n=1;

+

+//calculation

+d=n*W/(2*sind(D));

+disp((d/10^-10),'spacing in AU')

+a=2*d;

+v=a^3;

+disp(v,'the volumne in m^3 is')
\ No newline at end of file
diff --git a/1016/CH8/EX8.14/ex8_14.sce b/1016/CH8/EX8.14/ex8_14.sce
new file mode 100755
index 000000000..b413c01fc
--- /dev/null
+++ b/1016/CH8/EX8.14/ex8_14.sce
@@ -0,0 +1,17 @@
+clc;clear;

+//Example 8.14

+

+//given data

+D1=5.4;

+D2=7.6;

+D3=9.4;//angles in degree

+

+//calcualtion

+d1=1/(2*sind(D1));

+d2=1/(2*sind(D2));

+d3=1/(2*sind(D3));

+m=min(d1,d2,d3);

+d1=d1/m;

+d2=d2/m;

+d3=d3/m;

+disp(d1,d2,d3,'d1:d2:d3 =')
\ No newline at end of file
diff --git a/1016/CH8/EX8.15/ex8_15.sce b/1016/CH8/EX8.15/ex8_15.sce
new file mode 100755
index 000000000..76bdb1edd
--- /dev/null
+++ b/1016/CH8/EX8.15/ex8_15.sce
@@ -0,0 +1,18 @@
+clc;clear;

+//Example 8.15

+

+//given data

+V=50000;//applied voltage in V

+p=1.99*10^3;//density in kg/m^3

+n=4;

+Na=6.02*10^26;//Avgraodo no. in 1/kg mole

+M=74.6;//molecular mass

+W=0.248*10^-10;//wavelength in m

+

+//calculation

+Wmin=12400/V;

+disp(Wmin,'short wavelength limit');

+a=(n*M/(Na*p))^(1/3);

+d=a/2;

+D=asind(W/(2*d));

+disp(D,'glancing angle in degree')
\ No newline at end of file
diff --git a/1016/CH8/EX8.16/ex8_16.sce b/1016/CH8/EX8.16/ex8_16.sce
new file mode 100755
index 000000000..ea892c9f5
--- /dev/null
+++ b/1016/CH8/EX8.16/ex8_16.sce
@@ -0,0 +1,16 @@
+clc;clear;

+//Example 8.16

+

+//given data

+W=1.54;//wavelength in angstrom

+D=15.9;//angle in degree

+M=58.45//molecular weight

+p=2164*10^3;//density in kg/m^3

+n=2;//for NaCl molecule

+

+//calculation

+d=W/(2*sind(D));

+disp(d,'lattice spacing in angstrom');

+d=d*10^-10;

+Na=M/(2*d^3*p);

+disp(Na,'Avogrado number in 1/gm mole')
\ No newline at end of file
diff --git a/1016/CH8/EX8.17/ex8_17.sce b/1016/CH8/EX8.17/ex8_17.sce
new file mode 100755
index 000000000..7ae7ee113
--- /dev/null
+++ b/1016/CH8/EX8.17/ex8_17.sce
@@ -0,0 +1,11 @@
+clc;clear;

+//Example 8.17

+

+//given data

+D=60;//angle in degree

+W=0.254;//wavelength in angstrom

+

+//calcualtion

+dW=0.024*(1-cosd(D));

+W1=W-dW;

+disp(W1,'primary X-ray wavelength in angstrom')
\ No newline at end of file
diff --git a/1016/CH8/EX8.18/ex8_18.sce b/1016/CH8/EX8.18/ex8_18.sce
new file mode 100755
index 000000000..376e80e51
--- /dev/null
+++ b/1016/CH8/EX8.18/ex8_18.sce
@@ -0,0 +1,14 @@
+clc;clear;

+//Example 8.18

+

+//given data

+D=32;//angle in degree

+W=1.54*10^-10;//wavelength in angstrom

+h=2;k=2;l=0;//lattice consts

+

+//calcualtions

+d=W/(2*sind(D));

+a=d*sqrt(h^2+k^2+l^2);

+disp(a,'lattice parameter in m');

+r=sqrt(2)*a/4;

+disp(r,'radius of atom in m')
\ No newline at end of file
diff --git a/1016/CH8/EX8.2/ex8_2.sce b/1016/CH8/EX8.2/ex8_2.sce
new file mode 100755
index 000000000..c6ae6721e
--- /dev/null
+++ b/1016/CH8/EX8.2/ex8_2.sce
@@ -0,0 +1,15 @@
+clc;clear;

+//Example 8.2

+

+//given data

+V=12400;//Volatage applied in V

+I=0.002;//current drop in A

+e=1.6*10^-19;//the charge on electron in C

+

+//calculations

+n=I/e;

+disp(n,'No. of electrons');

+v=(5.93*10^5)*(sqrt(V));

+disp(v,'the speed with which they strike in m/s');

+Wmin=12400/V;

+disp(Wmin,'shortest wavelength in Angstrom')
\ No newline at end of file
diff --git a/1016/CH8/EX8.3/ex8_3.sce b/1016/CH8/EX8.3/ex8_3.sce
new file mode 100755
index 000000000..fae6c6b05
--- /dev/null
+++ b/1016/CH8/EX8.3/ex8_3.sce
@@ -0,0 +1,9 @@
+clc;clear;

+//Example 8.3

+

+//given values

+Wmin=1;//shortest wavelength in Angstrom

+

+//calculations

+V=(12400/Wmin)/1000;

+disp(V,'The minimum applied voltage in kV')
\ No newline at end of file
diff --git a/1016/CH8/EX8.4/ex8_4.sce b/1016/CH8/EX8.4/ex8_4.sce
new file mode 100755
index 000000000..eee274bb8
--- /dev/null
+++ b/1016/CH8/EX8.4/ex8_4.sce
@@ -0,0 +1,14 @@
+clc;clear;

+//Exmaple 8.4

+

+//given data

+I=0.005;//current in A

+V=100000;//potential difference in V

+

+//calcualtions

+v=(5.98*10^5)*(sqrt(V));

+disp(v,'Maximum speed in m/s');

+IP=V*I;//incident power in W

+P=.999*IP;//power converted into heat in W

+H=P/4.18;

+disp(H,'The heat produced/second in cal/s');
\ No newline at end of file
diff --git a/1016/CH8/EX8.5/ex8_5.sce b/1016/CH8/EX8.5/ex8_5.sce
new file mode 100755
index 000000000..7b8a6b2b8
--- /dev/null
+++ b/1016/CH8/EX8.5/ex8_5.sce
@@ -0,0 +1,12 @@
+clc;clear;

+//Example 8.5

+

+//given data

+V=30000;//potential difference in V

+Wmin=0.414*10^-10;//short wavelength limit in m

+e=1.602*10^-19;//the charge on electron in C

+c=3*10^8;//speed of light in m/s

+

+//calcualtions

+h=(e*V*Wmin)/c;

+disp(h,'The Plancks const in Js')
\ No newline at end of file
diff --git a/1016/CH8/EX8.6/ex8_6.sce b/1016/CH8/EX8.6/ex8_6.sce
new file mode 100755
index 000000000..1aca3fff7
--- /dev/null
+++ b/1016/CH8/EX8.6/ex8_6.sce
@@ -0,0 +1,11 @@
+clc;clear;

+//Example 8.6

+

+//given data

+W=1.43*10^-10;//wavelength in m

+Z=74;//atomic no

+R=10.97*10^6;//Rydberg constant in 1/m

+

+//calcualation

+b=74-sqrt(36/(5*R*W));//Transition from to M to L

+disp(b,'the screening const.')
\ No newline at end of file
diff --git a/1016/CH8/EX8.9/ex8_9.sce b/1016/CH8/EX8.9/ex8_9.sce
new file mode 100755
index 000000000..0a8927981
--- /dev/null
+++ b/1016/CH8/EX8.9/ex8_9.sce
@@ -0,0 +1,14 @@
+clc;clear;

+//Example 8.9

+

+//given data

+um=0.6;//mass adsoption coeffcient in cm^2/g

+p=2.7;//density of aluminium in g/cm^3

+

+//calculations

+u=p*um;

+disp(u,'linear adsorption coefficent of aluminium in 1/cm');

+T=0.693/u

+disp(T,'the hvl in cm');

+x=(log(20))*(1/u);

+disp(x,'the thickness in cm')
\ No newline at end of file