summaryrefslogtreecommitdiff
path: root/1016/CH8
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1016/CH8
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1016/CH8')
-rwxr-xr-x1016/CH8/EX8.1/ex8_1.sce9
-rwxr-xr-x1016/CH8/EX8.10/ex8_10.sce13
-rwxr-xr-x1016/CH8/EX8.11/ex8_11.sce10
-rwxr-xr-x1016/CH8/EX8.12/ex8_12.sce16
-rwxr-xr-x1016/CH8/EX8.13/ex8_13.sce14
-rwxr-xr-x1016/CH8/EX8.14/ex8_14.sce17
-rwxr-xr-x1016/CH8/EX8.15/ex8_15.sce18
-rwxr-xr-x1016/CH8/EX8.16/ex8_16.sce16
-rwxr-xr-x1016/CH8/EX8.17/ex8_17.sce11
-rwxr-xr-x1016/CH8/EX8.18/ex8_18.sce14
-rwxr-xr-x1016/CH8/EX8.2/ex8_2.sce15
-rwxr-xr-x1016/CH8/EX8.3/ex8_3.sce9
-rwxr-xr-x1016/CH8/EX8.4/ex8_4.sce14
-rwxr-xr-x1016/CH8/EX8.5/ex8_5.sce12
-rwxr-xr-x1016/CH8/EX8.6/ex8_6.sce11
-rwxr-xr-x1016/CH8/EX8.9/ex8_9.sce14
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