diff options
Diffstat (limited to '3411')
114 files changed, 878 insertions, 0 deletions
diff --git a/3411/CH1/EX1.1/Ex1_1.sce b/3411/CH1/EX1.1/Ex1_1.sce new file mode 100644 index 000000000..35a68a85b --- /dev/null +++ b/3411/CH1/EX1.1/Ex1_1.sce @@ -0,0 +1,12 @@ +//Example 1.1
+clc();
+clear;
+//To calculate the location of screen from slits
+d=0.08 //units in cm
+d=d*10^-2 //units in mts
+betaa=6*10^-4 //units in mts
+v=8*10^11 //units in kHz
+c=3*10^8 //units in mts
+lamda=c/(v*10^3) //units in mts
+d=(betaa*d)/lamda //units in mts
+printf("The distance of the screen from the slits is %.2fmts",d)
diff --git a/3411/CH1/EX1.1/Ex1_1.txt b/3411/CH1/EX1.1/Ex1_1.txt new file mode 100644 index 000000000..877edc1aa --- /dev/null +++ b/3411/CH1/EX1.1/Ex1_1.txt @@ -0,0 +1 @@ + The distance of the screen from the slits is 1.28mts
\ No newline at end of file diff --git a/3411/CH1/EX1.10/Ex1_10.sce b/3411/CH1/EX1.10/Ex1_10.sce new file mode 100644 index 000000000..ea62936bc --- /dev/null +++ b/3411/CH1/EX1.10/Ex1_10.sce @@ -0,0 +1,11 @@ +//Example 1.10
+clc();
+clear;
+//To find the diameter of the 20th dark ring
+D4=0.4 //units in cm
+D12=0.7 //units in cm
+//As we have (D20^2-D4^2)/(D12^2-D4^2)=(4*16)/(4*8)
+ans=(4*16)/(4*8)
+D20_2=(ans*((D12)^2-(D4)^2))+(D4)^2 //units in cm^2
+D20=sqrt(D20_2) //units in cm
+printf("Diameter of the 20th dark ring is %.3fcm",D20)
diff --git a/3411/CH1/EX1.10/Ex1_10.txt b/3411/CH1/EX1.10/Ex1_10.txt new file mode 100644 index 000000000..935d8934e --- /dev/null +++ b/3411/CH1/EX1.10/Ex1_10.txt @@ -0,0 +1 @@ +Diameter of the 20th dark ring is 0.906cm
\ No newline at end of file diff --git a/3411/CH1/EX1.11/Ex1_11.sce b/3411/CH1/EX1.11/Ex1_11.sce new file mode 100644 index 000000000..a5e2eaadf --- /dev/null +++ b/3411/CH1/EX1.11/Ex1_11.sce @@ -0,0 +1,8 @@ +//Example 1.11
+clc();
+clear;
+//To calculate refractive Index of liquid
+ d10=1.40
+ d_10=1.27
+ u=(d10/d_10)^2
+ printf("The refractive index of liquid is %.3f",u)
diff --git a/3411/CH1/EX1.11/Ex1_11.txt b/3411/CH1/EX1.11/Ex1_11.txt new file mode 100644 index 000000000..77e40fa8b --- /dev/null +++ b/3411/CH1/EX1.11/Ex1_11.txt @@ -0,0 +1 @@ +The refractive index of liquid is 1.215
\ No newline at end of file diff --git a/3411/CH1/EX1.12/Ex1_12.sce b/3411/CH1/EX1.12/Ex1_12.sce new file mode 100644 index 000000000..27043d537 --- /dev/null +++ b/3411/CH1/EX1.12/Ex1_12.sce @@ -0,0 +1,14 @@ +//Example 1.12
+clc();
+clear;
+//To calculate the wavelength of the light used
+Dnp=0.8 //units in cm
+Dn=0.3 //units in cm
+n1=25
+n2=5
+p=n1-n2
+R=100 //units in cm
+lamda=(Dnp^2-Dn^2)/(4*p*R) //units in cm
+printf("The wavelength of light used is %.8fcm",lamda)
+//In text book the answer is printed wrong as 4.87*10^-5cm
+//correct Answer is 6.875*10^-5cm
diff --git a/3411/CH1/EX1.12/Ex1_12.txt b/3411/CH1/EX1.12/Ex1_12.txt new file mode 100644 index 000000000..077d048d1 --- /dev/null +++ b/3411/CH1/EX1.12/Ex1_12.txt @@ -0,0 +1 @@ +The wavelength of light used is 0.00006875cm
\ No newline at end of file diff --git a/3411/CH1/EX1.2/Ex1_2.sce b/3411/CH1/EX1.2/Ex1_2.sce new file mode 100644 index 000000000..20c9c6298 --- /dev/null +++ b/3411/CH1/EX1.2/Ex1_2.sce @@ -0,0 +1,15 @@ +//Example 1.2
+clc();
+clear;
+//To calculate the wavelength
+//First case to calculte the wavelengths of the light source to obtain fringes 0.46*10^-2 mts
+lamda1=4200 //units in armstrongs
+lamda1=lamda1*10^-10 //units in mts
+betaa=0.64*10^-2 //units in mts
+D_d=betaa/lamda1 //units in mts
+//Second caseDistance between slits and screen is reduced to half
+beeta1=0.46*10^-2 //units in mts
+lamdaD_d=beeta1*2 //units in mts
+lamda=(lamda1*lamdaD_d)/betaa //units in mts
+lamda=lamda*10^10 //units in armstrongs
+printf("The wavelength of the Light source is %.1fArmstrongs",lamda)
diff --git a/3411/CH1/EX1.2/Ex1_2.txt b/3411/CH1/EX1.2/Ex1_2.txt new file mode 100644 index 000000000..924cad728 --- /dev/null +++ b/3411/CH1/EX1.2/Ex1_2.txt @@ -0,0 +1 @@ +The wavelength of the Light source is 6037.5Armstrongs
\ No newline at end of file diff --git a/3411/CH1/EX1.3/Ex1_3.sce b/3411/CH1/EX1.3/Ex1_3.sce new file mode 100644 index 000000000..a0e529224 --- /dev/null +++ b/3411/CH1/EX1.3/Ex1_3.sce @@ -0,0 +1,19 @@ +//Example 1.3
+clc();
+clear;
+//To compare the intensity at a point distance 1mm from the center to that at its center and to find minimum dist from center of point
+//Path difference=(Y*d)/D
+y=1 //units in mm
+y=y*10^-3 //units in mts
+D=1 //units in mts
+d=1 //units in mm
+d=d*10^-3 //units in mts
+pathdifference=(y*d)/D //units in mts
+lamda=5893 //units in armstrongs
+lamda=lamda*10^-10 //units in mts
+phasedifference=(2*pathdifference)/lamda //units in pi radiand
+ratioofintensity=(cos((phasedifference/2)*%pi))^2 //units in
+printf("The ratio of intensity with central maximum is %.4f\n",ratioofintensity)
+pathdifference=lamda/4
+distance=(pathdifference*D)/d //units in mts
+printf("The Distance of the point on the screen from center is %fmts",distance)
diff --git a/3411/CH1/EX1.3/Ex1_3.txt b/3411/CH1/EX1.3/Ex1_3.txt new file mode 100644 index 000000000..9a5c604aa --- /dev/null +++ b/3411/CH1/EX1.3/Ex1_3.txt @@ -0,0 +1,2 @@ +The ratio of intensity with central maximum is 0.3363
+The Distance of the point on the screen from center is 0.000147mts
\ No newline at end of file diff --git a/3411/CH1/EX1.4/Ex1_4.sce b/3411/CH1/EX1.4/Ex1_4.sce new file mode 100644 index 000000000..407667f07 --- /dev/null +++ b/3411/CH1/EX1.4/Ex1_4.sce @@ -0,0 +1,14 @@ +//Example 1.4
+clc();
+clear;
+//To calculate thickness of plate
+//t=(n*lamda)/(u-u1)
+n=5
+u=1.7
+u1=1.4
+lamda=4800 //units in armstrongs
+lamda=lamda*10^-10 //units in mts
+t=(n*lamda)/(u-u1) //units in mts
+printf("Thickness of glass plate is %.6fmts",t)
+//In text book the answer is printed wrong as 8*10^-8 mts
+//the correct answer is 8*10^-6 mts
diff --git a/3411/CH1/EX1.4/Ex1_4.txt b/3411/CH1/EX1.4/Ex1_4.txt new file mode 100644 index 000000000..1659250bd --- /dev/null +++ b/3411/CH1/EX1.4/Ex1_4.txt @@ -0,0 +1 @@ +Thickness of glass plate is 0.000008mts
\ No newline at end of file diff --git a/3411/CH1/EX1.5/Ex1_5.sce b/3411/CH1/EX1.5/Ex1_5.sce new file mode 100644 index 000000000..c211b994b --- /dev/null +++ b/3411/CH1/EX1.5/Ex1_5.sce @@ -0,0 +1,11 @@ +//Example 1.5
+clc();
+clear;
+//To find the refractive index of coil
+volume=0.2 //units in CC
+thickness=volume/(100*100) //units in cm
+n=1
+lamda=5.5*10^-5 //units in cm
+r=0
+u=(n*lamda)/(2*thickness*cos(r))
+printf("Refractive index of oil is %.3f",u)
diff --git a/3411/CH1/EX1.5/Ex1_5.txt b/3411/CH1/EX1.5/Ex1_5.txt new file mode 100644 index 000000000..9ae748b0b --- /dev/null +++ b/3411/CH1/EX1.5/Ex1_5.txt @@ -0,0 +1 @@ +Refractive index of oil is 1.375
\ No newline at end of file diff --git a/3411/CH1/EX1.6/Ex1_6.sce b/3411/CH1/EX1.6/Ex1_6.sce new file mode 100644 index 000000000..99f489e0c --- /dev/null +++ b/3411/CH1/EX1.6/Ex1_6.sce @@ -0,0 +1,26 @@ +//Example 1.6
+clc();
+clear;
+//Calculate the wavelengths of light in visible spectrum
+i=35 //units in degrees
+u=1.33
+d=5*10^-5 //units in cm
+r=asin(sin(i*%pi/180)/u) //units in radians
+r=r*180/%pi //units in degrees
+//For n=1
+n=1
+lamda1=(2*u*d*cos(r*%pi/180))/n //units in cm
+printf("For n=1 lamda=%.6fcm which lies in infrared region",lamda1)
+//For n=2
+n=2
+lamda2=(2*u*d*cos(r*%pi/180))/n //units in cm
+printf("\nFor n=2 lamda=%.6fcm which lies in visible region",lamda2)
+//For n=3
+n=3
+lamda3=(2*u*d*cos(r*%pi/180))/n //units in cm
+printf("\nFor n=3 lamda=%.6fcm which lies in visible region",lamda3)
+//For n=4
+n=4
+lamda4=(2*u*d*cos(r*%pi/180))/n //units in cm
+printf("\nFor n=4 lamda=%.6fcm which lies in ultraviolet region",lamda4)
+printf("\nHence absent wavelengths in reflected region are %.6fcm and %.6fcm",lamda2,lamda3)
diff --git a/3411/CH1/EX1.6/Ex1_6.txt b/3411/CH1/EX1.6/Ex1_6.txt new file mode 100644 index 000000000..dfebdc2f5 --- /dev/null +++ b/3411/CH1/EX1.6/Ex1_6.txt @@ -0,0 +1,5 @@ +For n=1 lamda=0.000120cm which lies in infrared region
+For n=2 lamda=0.000060cm which lies in visible region
+For n=3 lamda=0.000040cm which lies in visible region
+For n=4 lamda=0.000030cm which lies in ultraviolet region
+Hence absent wavelengths in reflected region are 0.000060cm and 0.000040cm
\ No newline at end of file diff --git a/3411/CH1/EX1.7/Ex1_7.sce b/3411/CH1/EX1.7/Ex1_7.sce new file mode 100644 index 000000000..1359ac720 --- /dev/null +++ b/3411/CH1/EX1.7/Ex1_7.sce @@ -0,0 +1,12 @@ +//Example1.7
+clc();
+clear;
+//To calculate the fring width
+//betaa=(lamda)/(2*alpha)
+lamda=6000 //units in armstrongs
+lamda=lamda*10^-8 //units in cm
+diameter=0.05 //units in mm
+distance=15 //units in cm
+alpha=(diameter/distance)*10^-1 //units in radians
+betaa=lamda/(2*alpha) //units in cm
+printf("The fringe width is %.2fcm",betaa)
diff --git a/3411/CH1/EX1.7/Ex1_7.txt b/3411/CH1/EX1.7/Ex1_7.txt new file mode 100644 index 000000000..3303a42dc --- /dev/null +++ b/3411/CH1/EX1.7/Ex1_7.txt @@ -0,0 +1 @@ +The fringe width is 0.09cm
\ No newline at end of file diff --git a/3411/CH1/EX1.8/Ex1_8.sce b/3411/CH1/EX1.8/Ex1_8.sce new file mode 100644 index 000000000..3db76f95e --- /dev/null +++ b/3411/CH1/EX1.8/Ex1_8.sce @@ -0,0 +1,10 @@ +//Example 1.8
+clc();
+clear;
+//To calculate the distance from the edge of wedge
+alpha=0.01 //units in radians
+n=10
+lamda=6000 //units in armstrongs
+lamda=lamda*10^-10 //units in mts
+x=((2*n-1)*lamda)/(4*alpha) //units in mts
+printf("Distance from the edge of the wedge is %.6fmts",x)
diff --git a/3411/CH1/EX1.8/Ex1_8.txt b/3411/CH1/EX1.8/Ex1_8.txt new file mode 100644 index 000000000..9d7cad977 --- /dev/null +++ b/3411/CH1/EX1.8/Ex1_8.txt @@ -0,0 +1 @@ +Distance from the edge of the wedge is 0.000285mts
\ No newline at end of file diff --git a/3411/CH1/EX1.9/Ex1_9.sce b/3411/CH1/EX1.9/Ex1_9.sce new file mode 100644 index 000000000..4ff832115 --- /dev/null +++ b/3411/CH1/EX1.9/Ex1_9.sce @@ -0,0 +1,14 @@ +//Example 1.9
+clc();
+clear;
+//To calculate diameter of the fifth bright ring
+n=5
+lamda=5460 //units in armstrongs
+lamda=lamda*10^-6 //units in cm
+f=400 //units in cm
+u=1.5
+R=(u-1)*2*f //units in cm
+diameter=sqrt(2*(2*n-1)*lamda*R)
+printf("Diameter of the 5th bright ring is %.4fcm",diameter)
+//In text book the answer is printed wrong as 0.627cm
+//The correct answer is 6.269 cms
diff --git a/3411/CH1/EX1.9/Ex1_9.txt b/3411/CH1/EX1.9/Ex1_9.txt new file mode 100644 index 000000000..399401da9 --- /dev/null +++ b/3411/CH1/EX1.9/Ex1_9.txt @@ -0,0 +1 @@ +Diameter of the 5th bright ring is 6.2699cm
\ No newline at end of file diff --git a/3411/CH2/EX2.1/Ex2_1.sce b/3411/CH2/EX2.1/Ex2_1.sce new file mode 100644 index 000000000..66de16a46 --- /dev/null +++ b/3411/CH2/EX2.1/Ex2_1.sce @@ -0,0 +1,12 @@ +//Example 2_1
+clc();
+clear;
+//To calculate the no of lines in one cm of grating surface
+k=2
+lamda=5*10^-5 //units in cm
+theta=30 //units in degrees
+//We have nooflines=1/e=(k*lamda)/sin(theta)
+nooflines=sin(theta*%pi/180)/(k*lamda) //units in cm
+printf("No of lines per centimeter is %.f",nooflines)
+//In text book the answer is printed wrong as 10^3
+//The correct answer is 5*10^3
diff --git a/3411/CH2/EX2.1/Ex2_1.txt b/3411/CH2/EX2.1/Ex2_1.txt new file mode 100644 index 000000000..cbac21c2f --- /dev/null +++ b/3411/CH2/EX2.1/Ex2_1.txt @@ -0,0 +1 @@ +No of lines per centimeter is 5000
\ No newline at end of file diff --git a/3411/CH2/EX2.2/Ex2_2.sce b/3411/CH2/EX2.2/Ex2_2.sce new file mode 100644 index 000000000..c5aa8d241 --- /dev/null +++ b/3411/CH2/EX2.2/Ex2_2.sce @@ -0,0 +1,17 @@ +//Example 2_2
+clc();
+clear;
+//Find the difference in angles of deviation in first and third order spectra
+lamda=5000 //units in armstrongs
+lamda=lamda*10^-8 //units in cm
+e=1/6000
+//For first order e*sin(theta1)=1*lamda
+theta1=asin(lamda/e) //units in radians
+theta1=theta1*180/%pi //units in degrees
+printf("For First order spectra theta1=%.1f degrees",theta1)
+//For third order e*sin(theta3)=3*lamda
+theta3=asin(3*lamda/e) //units in radians
+theta3=theta3*180/%pi //units in degrees
+printf("\nFor Third order spectra theta3=%.1f degrees",theta3)
+diffe=theta3-theta1 //units in degrees
+printf("\nDifference in Angles of deviation in first and third order spectra is theta3-theta1=%.2fdegrees",diffe)
diff --git a/3411/CH2/EX2.2/Ex2_2.txt b/3411/CH2/EX2.2/Ex2_2.txt new file mode 100644 index 000000000..17c20f890 --- /dev/null +++ b/3411/CH2/EX2.2/Ex2_2.txt @@ -0,0 +1,3 @@ +For First order spectra theta1=17.5 degrees
+For Third order spectra theta3=64.2 degrees
+Difference in Angles of deviation in first and third order spectra is theta3-theta1=46.70degrees
\ No newline at end of file diff --git a/3411/CH2/EX2.3/Ex2_3.sce b/3411/CH2/EX2.3/Ex2_3.sce new file mode 100644 index 000000000..8f4692a40 --- /dev/null +++ b/3411/CH2/EX2.3/Ex2_3.sce @@ -0,0 +1,12 @@ +//Example 2_3
+clc();
+clear;
+//To calculate minimum no of lines per centimeter
+lamda1=5890 //units in armstrongs
+lamda2=5896 //units in armstrongs
+dlamda=lamda2-lamda1 //units in armstrongs
+k=2
+n=lamda1/(k*dlamda)
+width=2.5 //units in cm
+nooflines=n/width
+printf("No of lines per cm=%.1f",nooflines)
diff --git a/3411/CH2/EX2.3/Ex2_3.txt b/3411/CH2/EX2.3/Ex2_3.txt new file mode 100644 index 000000000..cd0a73a06 --- /dev/null +++ b/3411/CH2/EX2.3/Ex2_3.txt @@ -0,0 +1 @@ +No of lines per cm=196.3
\ No newline at end of file diff --git a/3411/CH2/EX2.4/Ex2_4.sce b/3411/CH2/EX2.4/Ex2_4.sce new file mode 100644 index 000000000..87d998788 --- /dev/null +++ b/3411/CH2/EX2.4/Ex2_4.sce @@ -0,0 +1,15 @@ +//Example 2_4
+clc();
+clear;
+//To examine two spectral lines are clearly resolved in first order and second order
+n=425
+tno=2*n
+lamda1=5890 //units in armstrongs
+lamda2=5896 //units in armstrongs
+dlamda=lamda2-lamda1
+//For first order
+n=lamda1/dlamda
+printf("As total no of lines required for resolution in first order is %.f and total no of lines in grating is %d the lines will not be resolved in first order",n,tno)
+//For second order
+n=lamda1/(2*dlamda)
+printf("\nAs total no of lines required for resolution in first order is %.f and total no of lines in grating is %d the lines will be resolved in second order",n,tno)
diff --git a/3411/CH2/EX2.4/Ex2_4.txt b/3411/CH2/EX2.4/Ex2_4.txt new file mode 100644 index 000000000..9e641bf8e --- /dev/null +++ b/3411/CH2/EX2.4/Ex2_4.txt @@ -0,0 +1,3 @@ +tal no of lines in grating is 850 the lines will not be resolved in first order
+
+As total no of lines required for resolution in first order is 491 and total no of lines in grating is 850 the lines will be resolved in second order
\ No newline at end of file diff --git a/3411/CH2/EX2.5/Ex2_5.sce b/3411/CH2/EX2.5/Ex2_5.sce new file mode 100644 index 000000000..e8dc2231f --- /dev/null +++ b/3411/CH2/EX2.5/Ex2_5.sce @@ -0,0 +1,16 @@ +//Example 2_5
+clc();
+clear;
+//To find the angle of separation
+lamda1=5016 //units in armstrongs
+lamda2=5048 //units in armstrongs
+lamda1=lamda1*10^-8 //units in cm
+lamda2=lamda2*10^-8 //units in cm
+k=2
+n=15000
+e=2.54/n //units in cm
+theta1=asin((2*lamda1)/e)*(180/%pi) //units in degrees
+theta2=asin((2*lamda2)/e)*(180/%pi) //units in degrees
+diffe=theta2-theta1 //units in degrees
+diffe=diffe*60 //units in minutes
+printf("Angle of separation is %.f minutes",diffe)
diff --git a/3411/CH2/EX2.5/Ex2_5.txt b/3411/CH2/EX2.5/Ex2_5.txt new file mode 100644 index 000000000..7c2e06621 --- /dev/null +++ b/3411/CH2/EX2.5/Ex2_5.txt @@ -0,0 +1 @@ +Angle of separation is 16 minutes
\ No newline at end of file diff --git a/3411/CH2/EX2.6/Ex2_6.sce b/3411/CH2/EX2.6/Ex2_6.sce new file mode 100644 index 000000000..6efa919fd --- /dev/null +++ b/3411/CH2/EX2.6/Ex2_6.sce @@ -0,0 +1,13 @@ +//Example 2_6
+clc();
+clear;
+//To Calculate the dispersive power of the grating
+n=4000
+e=1/n //units in cm
+k=3
+lamda=5000 //units in armstrongs
+lamda=lamda*10^-8 //units in cm
+theta=asin((k*lamda)/e)*(180/%pi) //units in degrees
+costheta=cos(theta*%pi/180)
+disppower=(k*n)/costheta
+printf("The dispersive power of the grating is %.f",disppower)
diff --git a/3411/CH2/EX2.6/Ex2_6.txt b/3411/CH2/EX2.6/Ex2_6.txt new file mode 100644 index 000000000..350068631 --- /dev/null +++ b/3411/CH2/EX2.6/Ex2_6.txt @@ -0,0 +1 @@ +The dispersive power of the grating is 15000
\ No newline at end of file diff --git a/3411/CH2/EX2.7/Ex2_7.sce b/3411/CH2/EX2.7/Ex2_7.sce new file mode 100644 index 000000000..f4eaecf63 --- /dev/null +++ b/3411/CH2/EX2.7/Ex2_7.sce @@ -0,0 +1,10 @@ +//Example 2_7
+clc();
+clear;
+//To Calculate highest power of spectrum seen with mono chromaic light
+lamda=6000 //units in armstrongs
+lamda=lamda*10^-8 //units in cm
+n=5000
+e=1/n //units in cm
+k=e/lamda
+printf("The highest order spectrum Seen with monochromatic light is %.2f",k)
diff --git a/3411/CH2/EX2.7/Ex2_7.txt b/3411/CH2/EX2.7/Ex2_7.txt new file mode 100644 index 000000000..ff375f9f6 --- /dev/null +++ b/3411/CH2/EX2.7/Ex2_7.txt @@ -0,0 +1 @@ +spectrum Seen with monochromatic light is 3.33
\ No newline at end of file diff --git a/3411/CH2/EX2.8/Ex2_8.sce b/3411/CH2/EX2.8/Ex2_8.sce new file mode 100644 index 000000000..8549f9f24 --- /dev/null +++ b/3411/CH2/EX2.8/Ex2_8.sce @@ -0,0 +1,14 @@ +//Example 2_8
+clc();
+clear;
+//To calculate the wavelength
+k=2
+theta1=10 //units in degrees
+dtheta=3 //units in degrees
+dlamda=5*10^-9 //units in cm
+lamda=(sin((theta1*%pi)/180)*dlamda*60*60)/(cos((theta1*%pi)/180)*dtheta*(%pi/180)) //units in cm
+printf("Wavelength of the lines is %.7f cms",lamda)
+lamda_dlamda=lamda+dlamda //units in cm
+N=6063
+Ne=(N*k*lamda)/sin((theta1*%pi)/180) //units in cm
+printf("\nMinimum grating width required is %.1fcm",Ne)
diff --git a/3411/CH2/EX2.8/Ex2_8.txt b/3411/CH2/EX2.8/Ex2_8.txt new file mode 100644 index 000000000..111c32342 --- /dev/null +++ b/3411/CH2/EX2.8/Ex2_8.txt @@ -0,0 +1,2 @@ +Wavelength of the lines is 0.0000606 cms
+Minimum grating width required is 4.2cm
\ No newline at end of file diff --git a/3411/CH2/EX2.9/Ex2_9.sce b/3411/CH2/EX2.9/Ex2_9.sce new file mode 100644 index 000000000..8f6449a63 --- /dev/null +++ b/3411/CH2/EX2.9/Ex2_9.sce @@ -0,0 +1,15 @@ +//Example 2_9
+clc();
+clear;
+//To calculate resolving power in second order
+//We have e*sin(theta)=k*lamda
+//We have e*0.2=k*lamda ->1
+//And e*0.3=(k+1)*lamda ->2
+//Subtracting one and two 3*0.1=lamda
+lamda=5000 //units in armstrongs
+lamda=lamda*10^-8 //units in cm
+e=lamda/0.1 //units in cm
+width=2.5 //units in cm
+N=width/e
+respower=2*N
+printf("Resolving power is %.f",respower)
diff --git a/3411/CH2/EX2.9/Ex2_9.txt b/3411/CH2/EX2.9/Ex2_9.txt new file mode 100644 index 000000000..69b6b527e --- /dev/null +++ b/3411/CH2/EX2.9/Ex2_9.txt @@ -0,0 +1 @@ +Resolving power is 10000
\ No newline at end of file diff --git a/3411/CH3/EX3.1/Ex3_1.sce b/3411/CH3/EX3.1/Ex3_1.sce new file mode 100644 index 000000000..09d3ddf13 --- /dev/null +++ b/3411/CH3/EX3.1/Ex3_1.sce @@ -0,0 +1,9 @@ +//Example 3_1
+clc();
+clear;
+//To calculate the polarising angle
+u=1.5
+ip=atan(u)*(180/%pi) //units in degrees
+printf("The Polarising angle is %.2fdegrees or 56degrees.18minutes",ip)
+//in text book the answer is printed wrong as 56degrees.18minutes
+//the correct answer is 56.31degrees or 56 degrees 18minutes
diff --git a/3411/CH3/EX3.1/Ex3_1.txt b/3411/CH3/EX3.1/Ex3_1.txt new file mode 100644 index 000000000..f92ca6d87 --- /dev/null +++ b/3411/CH3/EX3.1/Ex3_1.txt @@ -0,0 +1 @@ +The Polarising angle is 56.31degrees or 56degrees.18minutes
\ No newline at end of file diff --git a/3411/CH3/EX3.2/Ex3_2.sce b/3411/CH3/EX3.2/Ex3_2.sce new file mode 100644 index 000000000..8220c1a9f --- /dev/null +++ b/3411/CH3/EX3.2/Ex3_2.sce @@ -0,0 +1,10 @@ +//Example 3_2
+clc();
+clear;
+//To calculate the thickness of quarter wave plate
+lamda=6000 //units in armstrongs
+lamda=lamda*10^-10 //units in mts
+n0=1.554
+ne=1.544
+d=(lamda)/(4*(n0-ne)) //units in mts
+printf("Thickness of quarter wave plate is %.6fmts",d)
diff --git a/3411/CH3/EX3.2/Ex3_2.txt b/3411/CH3/EX3.2/Ex3_2.txt new file mode 100644 index 000000000..439db4610 --- /dev/null +++ b/3411/CH3/EX3.2/Ex3_2.txt @@ -0,0 +1 @@ +Thickness of quarter wave plate is 0.000015mts
\ No newline at end of file diff --git a/3411/CH3/EX3.3/Ex3_3.sce b/3411/CH3/EX3.3/Ex3_3.sce new file mode 100644 index 000000000..627f8ab5b --- /dev/null +++ b/3411/CH3/EX3.3/Ex3_3.sce @@ -0,0 +1,11 @@ +//Example 3_3
+clc();
+clear;
+//To calculate the wavelength
+d=12.5 //units in microns
+d=d*10^-6 //units in mts
+u0_ue=0.01
+lamda=4*d*u0_ue
+printf("The wavelength is %.7fmts",lamda)
+//In text book the answer is printed wrong as 4*10^-7mts
+//The correct answer is 5*10^-7 mts
diff --git a/3411/CH3/EX3.3/Ex3_3.txt b/3411/CH3/EX3.3/Ex3_3.txt new file mode 100644 index 000000000..81865944e --- /dev/null +++ b/3411/CH3/EX3.3/Ex3_3.txt @@ -0,0 +1 @@ +The wavelength is 0.0000005mts
\ No newline at end of file diff --git a/3411/CH3/EX3.4/Ex3_4.sce b/3411/CH3/EX3.4/Ex3_4.sce new file mode 100644 index 000000000..33b6fad64 --- /dev/null +++ b/3411/CH3/EX3.4/Ex3_4.sce @@ -0,0 +1,10 @@ +//Example 3_4
+clc();
+clear;
+//To calculate the thickness of the plate
+lamda=5.5*10^-5 //units in cm
+u0=1.553
+ue=1.542
+d=lamda/(2*(u0-ue)) //units in cm
+d=d*10^-2 //units in mts
+printf("The thickness of the plate is %.7fmts",d)
diff --git a/3411/CH3/EX3.4/Ex3_4.txt b/3411/CH3/EX3.4/Ex3_4.txt new file mode 100644 index 000000000..df9d84ac8 --- /dev/null +++ b/3411/CH3/EX3.4/Ex3_4.txt @@ -0,0 +1 @@ +The thickness of the plate is 0.0000250mts
\ No newline at end of file diff --git a/3411/CH5/EX5.1/Ex5_1.sce b/3411/CH5/EX5.1/Ex5_1.sce new file mode 100644 index 000000000..39caac475 --- /dev/null +++ b/3411/CH5/EX5.1/Ex5_1.sce @@ -0,0 +1,24 @@ +//Example 5_1
+clc();
+clear;
+//To determine the miller indices of the plane
+//Given Intercepts are 2a,-3b,6c
+a=1
+b=1
+c=1
+intercepts1=2*a
+intercepts2=-3*b
+intercepts3=6*c
+unitcell1=intercepts1/a
+unitcell2=intercepts2/b
+unitcell3=intercepts3/c
+resiprocal1=1/unitcell1
+resiprocal2=1/unitcell2
+resiprocal3=1/unitcell3
+lcms=int32([unitcell1 unitcell2 unitcell3]);
+v=lcm(lcms)
+lcm1=3
+lcm2=-2
+lcm3=1
+printf("Co-ordinates of A,B,C are (%.2f,0,0),(0,%.1f,0)(0,0,%d)",1/lcm1,1/lcm2,lcm3)
+printf("\n Miller indices of the plane are(%d,%d,%d)",lcm1,lcm2,lcm3)
diff --git a/3411/CH5/EX5.1/Ex5_1.txt b/3411/CH5/EX5.1/Ex5_1.txt new file mode 100644 index 000000000..d16a9fc74 --- /dev/null +++ b/3411/CH5/EX5.1/Ex5_1.txt @@ -0,0 +1,2 @@ +Co-ordinates of A,B,C are (0.33,0,0),(0,-0.5,0)(0,0,1)
+ Miller indices of the plane are(3,-2,1)
\ No newline at end of file diff --git a/3411/CH5/EX5.10/Ex5_10.sce b/3411/CH5/EX5.10/Ex5_10.sce new file mode 100644 index 000000000..870847749 --- /dev/null +++ b/3411/CH5/EX5.10/Ex5_10.sce @@ -0,0 +1,14 @@ +//Example 5_10
+clc();
+clear;
+//To calculate the lattice constant
+h=6.63*10^-34 //Plancks Constant
+m=1.804*10^-27
+KB=1.38*10^-23
+T=300
+lamda=h/sqrt(3*m*KB*T) //units in mts
+n=2
+a=(sqrt(3)*lamda)/2 //units in mts
+printf("Lattice constant a=");
+disp(a);
+printf("mts")
diff --git a/3411/CH5/EX5.10/Ex5_10.txt b/3411/CH5/EX5.10/Ex5_10.txt new file mode 100644 index 000000000..dc254f563 --- /dev/null +++ b/3411/CH5/EX5.10/Ex5_10.txt @@ -0,0 +1,3 @@ +Lattice constant a=
+ 1.213D-10
+mts
\ No newline at end of file diff --git a/3411/CH5/EX5.11/Ex5_11.sce b/3411/CH5/EX5.11/Ex5_11.sce new file mode 100644 index 000000000..f56c13965 --- /dev/null +++ b/3411/CH5/EX5.11/Ex5_11.sce @@ -0,0 +1,7 @@ +//Example 5_11
+clc();
+clear;
+//To determine the unitcell and its dimensions
+lamda=71 //units in pm
+a=lamda/(2*sqrt(0.0111)) //units in pm
+printf("The unitcell and its dimensions are %dpm",a)
diff --git a/3411/CH5/EX5.11/Ex5_11.txt b/3411/CH5/EX5.11/Ex5_11.txt new file mode 100644 index 000000000..d5e90c7e6 --- /dev/null +++ b/3411/CH5/EX5.11/Ex5_11.txt @@ -0,0 +1 @@ + The unitcell and its dimensions are 336pm
\ No newline at end of file diff --git a/3411/CH5/EX5.12/Ex5_12.sce b/3411/CH5/EX5.12/Ex5_12.sce new file mode 100644 index 000000000..04af73bb1 --- /dev/null +++ b/3411/CH5/EX5.12/Ex5_12.sce @@ -0,0 +1,11 @@ +//Example 5_12
+clc();
+clear;
+//To determine the lattice constant
+lamda=0.154 //units in nm
+h=1
+k=1
+l=0
+theta=20 //units in degrees
+a=(lamda/2)*(sqrt(sqrt(h^2+k^2+l^2)/sin(theta*(%pi/180))^2)) //units in nm
+printf("Lattice constant a=%.3fnm \n And the element is tungsten Since Tungsten has lattice constant of %.3fnm and crystallizes in bcc structure",a,a)
diff --git a/3411/CH5/EX5.12/Ex5_12.txt b/3411/CH5/EX5.12/Ex5_12.txt new file mode 100644 index 000000000..dbe820550 --- /dev/null +++ b/3411/CH5/EX5.12/Ex5_12.txt @@ -0,0 +1,2 @@ +Lattice constant a=0.268nm
+ And the element is tungsten Since Tungsten has lattice constant of 0.268nm and crystallizes in bcc structure
\ No newline at end of file diff --git a/3411/CH5/EX5.13/Ex5_13.sce b/3411/CH5/EX5.13/Ex5_13.sce new file mode 100644 index 000000000..616fd5eeb --- /dev/null +++ b/3411/CH5/EX5.13/Ex5_13.sce @@ -0,0 +1,10 @@ +//Example 5_13
+clc();
+clear;
+//To determine the lattice parameter of the material
+lamda=0.07107 //units in nm
+theta=29.71 //units in degrees
+d400=lamda/(2*sin(theta*(%pi/180))) //units in nm
+hkl=16
+a=d400*sqrt(hkl) //units in nm
+printf("Lattice parameter of the material a=%.4fnm",a)
diff --git a/3411/CH5/EX5.13/Ex5_13.txt b/3411/CH5/EX5.13/Ex5_13.txt new file mode 100644 index 000000000..4de14b667 --- /dev/null +++ b/3411/CH5/EX5.13/Ex5_13.txt @@ -0,0 +1 @@ +Lattice parameter of the material a=0.2868nm
\ No newline at end of file diff --git a/3411/CH5/EX5.14/Ex5_14.sce b/3411/CH5/EX5.14/Ex5_14.sce new file mode 100644 index 000000000..b212eaeee --- /dev/null +++ b/3411/CH5/EX5.14/Ex5_14.sce @@ -0,0 +1,17 @@ +//Example 5_14
+clc();
+clear;
+//To calculate the effective temprature of neutrons
+a=0.352 //units in nm
+h=1
+k=1
+l=1
+d=a/sqrt(h^2+k^2+l^2) //units in nm
+theta=28.5 //units in degrees
+lamda=2*d*sin(theta*(%pi/180)) //units in nm
+h=6.63*10^-34 //Plancks Constant
+m=1.67*10^-27
+KB=1.38*10^-23
+lamda=lamda*10^-9 //units in mts
+T=h^2/(3*m*KB*lamda^2)
+printf("The effective temprature of neutrons is T=%dK",T)
diff --git a/3411/CH5/EX5.14/Ex5_14.txt b/3411/CH5/EX5.14/Ex5_14.txt new file mode 100644 index 000000000..7e9f3632f --- /dev/null +++ b/3411/CH5/EX5.14/Ex5_14.txt @@ -0,0 +1 @@ +The effective temprature of neutrons is T=169K
\ No newline at end of file diff --git a/3411/CH5/EX5.15/Ex5_15.sce b/3411/CH5/EX5.15/Ex5_15.sce new file mode 100644 index 000000000..f5f7ee853 --- /dev/null +++ b/3411/CH5/EX5.15/Ex5_15.sce @@ -0,0 +1,18 @@ +//Example 5_15
+clc();
+clear;
+//To calculate the Braggs angle
+h=6.63*10^-34 //Plancks Constant
+m=9.1*10^-31
+e=1.6*10^-19
+v=80
+lamda=h/sqrt(2*m*e*v) //units in mts
+lamda=lamda*10^9 //units in nm
+a=0.35 //units in nm
+h=1
+k=1
+l=1
+d111=a/sqrt(h^2+k^2+l^2) //units in nm //units in nm
+theta=asin(lamda/(2*d111)) //units in radians
+theta=theta*180/%pi //units in degrees
+printf("Braggs angle is theta=%.2fDegrees or 19Degrees40Minutes",theta)
diff --git a/3411/CH5/EX5.15/Ex5_15.txt b/3411/CH5/EX5.15/Ex5_15.txt new file mode 100644 index 000000000..61f0ff7a5 --- /dev/null +++ b/3411/CH5/EX5.15/Ex5_15.txt @@ -0,0 +1 @@ + Braggs angle is theta=19.87Degrees or 19Degrees40Minutes
\ No newline at end of file diff --git a/3411/CH5/EX5.16/Ex5_16.sce b/3411/CH5/EX5.16/Ex5_16.sce new file mode 100644 index 000000000..52f671b14 --- /dev/null +++ b/3411/CH5/EX5.16/Ex5_16.sce @@ -0,0 +1,24 @@ +//Example 5_16
+clc();
+clear;
+//To calculate the difference between the samples
+d=0.2552
+a=d*sqrt(2)
+lamda=0.152 //units in nm
+theta=21 //units in degrees
+//For sample A
+d111=lamda/(2*sin(theta*%pi/180)) //units in nm
+h=1
+k=1
+l=1
+a=d111*sqrt(h^2+k^2+l^2) //units in nm
+printf("For sample A a=%.4f nm",a)
+//For sample B
+theta=21.38
+d111=lamda/(2*sin(theta*%pi/180)) //units in nm
+h=1
+k=1
+l=1
+a=d111*sqrt(h^2+k^2+l^2) //units in nm
+printf("\nFor sample B a=%.4f nm",a)
+printf("\n Sample B is pure high purity copper as lattice parameter of A is 1.75percent greater than that of pure copper")
diff --git a/3411/CH5/EX5.16/Ex5_16.txt b/3411/CH5/EX5.16/Ex5_16.txt new file mode 100644 index 000000000..47695e7f2 --- /dev/null +++ b/3411/CH5/EX5.16/Ex5_16.txt @@ -0,0 +1,3 @@ + For sample A a=0.3673 nm
+For sample B a=0.3611 nm
+ Sample B is pure high purity copper as lattice parameter of A is 1.75percent greater than that of pure copper
\ No newline at end of file diff --git a/3411/CH5/EX5.17/Ex5_17.sce b/3411/CH5/EX5.17/Ex5_17.sce new file mode 100644 index 000000000..0eea0a453 --- /dev/null +++ b/3411/CH5/EX5.17/Ex5_17.sce @@ -0,0 +1,17 @@ +//Example 5_17
+clc();
+clear;
+//To find the lattice parameter and atomic diameter
+lamda=0.171 //units in nm
+theta=30 //units in degrees
+d110=lamda/(2*sin(theta*%pi/180)) //units in nm
+h=1
+k=1
+l=0
+a=d110*sqrt(h^2+k^2+l^2) //units in nm
+printf("The lattice parameter is a=%.3fnm",a)
+//Assuming the metal is FCC
+a1=0.171*sqrt(3) //units in nm
+a2=0.148*sqrt(4) //units in nm
+ad=a1/sqrt(2) //units in nm
+printf("\n Atomic diameter is %.4fnm",ad)
diff --git a/3411/CH5/EX5.17/Ex5_17.txt b/3411/CH5/EX5.17/Ex5_17.txt new file mode 100644 index 000000000..7415e7b96 --- /dev/null +++ b/3411/CH5/EX5.17/Ex5_17.txt @@ -0,0 +1,2 @@ +The lattice parameter is a=0.242nm
+ Atomic diameter is 0.2094nm
\ No newline at end of file diff --git a/3411/CH5/EX5.18/Ex5_18.sce b/3411/CH5/EX5.18/Ex5_18.sce new file mode 100644 index 000000000..6e32f24a0 --- /dev/null +++ b/3411/CH5/EX5.18/Ex5_18.sce @@ -0,0 +1,12 @@ +//Example 5_18
+clc();
+clear;
+//To find out the planes which gives reflection
+lamda=0.154 //units in nm
+theta=90 //units in degrees as sin(theta) is maximum at 90 degrees
+d=lamda/(2*sin(theta*%pi/180)) //units in nm
+D=0.228 //units in nm
+hkl=(2*D)/(d*sqrt(3))
+hkl2=hkl^2
+printf("As h^2+k^2+l^2=%.2f \n The highest possible values of (h,k,l) are (2,2,2) Hence (2,2,2) planes give reflection",hkl2)
+//Given in text book h^2+k^2+l^2=13.98 but the answer is h^2+k^2+l^2=11.69
diff --git a/3411/CH5/EX5.18/Ex5_18.txt b/3411/CH5/EX5.18/Ex5_18.txt new file mode 100644 index 000000000..e9df8c5c7 --- /dev/null +++ b/3411/CH5/EX5.18/Ex5_18.txt @@ -0,0 +1,2 @@ +As h^2+k^2+l^2=11.69
+ The highest possible values of (h,k,l) are (2,2,2) Hence (2,2,2) planes give reflection
\ No newline at end of file diff --git a/3411/CH5/EX5.2/Ex5_2.sce b/3411/CH5/EX5.2/Ex5_2.sce new file mode 100644 index 000000000..333fed038 --- /dev/null +++ b/3411/CH5/EX5.2/Ex5_2.sce @@ -0,0 +1,21 @@ +//Example 5_2
+clc();
+clear;
+//To determine the miller indices of the plane
+//Given Intercepts are Infinity,OY,OZ
+intercepts1="Infinity"
+intercepts2="OY"
+intercepts3="OZ"
+unitcell1="Infinity"
+unitcell2=1
+unitcell3=(2/3)
+resiprocal1=0
+resiprocal2=1/unitcell2
+resiprocal3=1/unitcell3
+lcms=int32([unitcell2 unitcell3]);
+v=lcm(lcms)
+lcm1=0
+lcm2=2
+lcm3=3
+printf("Co-ordinates of A,B,C are (Infinity,0,0),(0,%d,0)(0,0,%f)",unitcell2,unitcell3)
+printf("\n Miller indices of the plane are(%d,%d,%d)",lcm1,lcm2,lcm3)
diff --git a/3411/CH5/EX5.2/Ex5_2.txt b/3411/CH5/EX5.2/Ex5_2.txt new file mode 100644 index 000000000..a84d4830b --- /dev/null +++ b/3411/CH5/EX5.2/Ex5_2.txt @@ -0,0 +1,2 @@ +Co-ordinates of A,B,C are (Infinity,0,0),(0,1,0)(0,0,0.666667)
+ Miller indices of the plane are(0,2,3)
\ No newline at end of file diff --git a/3411/CH5/EX5.3/Ex5_3.sce b/3411/CH5/EX5.3/Ex5_3.sce new file mode 100644 index 000000000..110d7a526 --- /dev/null +++ b/3411/CH5/EX5.3/Ex5_3.sce @@ -0,0 +1,13 @@ +//Example 5_3
+clc();
+clear;
+//To find the intercepts along the Y and Z axes
+a=0.121 //units in nm
+b=0.184 //units in nm
+c=0.197 //units in nm
+//Given miller indices are (2,3,1)
+OA_OB=3/2
+OA_OC=1/2
+OB=(2/3)*b //units in nm
+OC=2*c //units in nm
+printf("The Intercepts along the Y and Z axes are OB=%.3fnm and OC=%.3fnm",OB,OC)
diff --git a/3411/CH5/EX5.3/Ex5_3.txt b/3411/CH5/EX5.3/Ex5_3.txt new file mode 100644 index 000000000..b57ad054b --- /dev/null +++ b/3411/CH5/EX5.3/Ex5_3.txt @@ -0,0 +1 @@ +The Intercepts along the Y and Z axes are OB=0.123nm and OC=0.394nm
\ No newline at end of file diff --git a/3411/CH5/EX5.4/Ex5_4.sce b/3411/CH5/EX5.4/Ex5_4.sce new file mode 100644 index 000000000..ef1229c92 --- /dev/null +++ b/3411/CH5/EX5.4/Ex5_4.sce @@ -0,0 +1,13 @@ +//Example 5_4
+clc();
+clear;
+//To calculate the inter planar distance
+a=0.82 //units in nm
+b=0.94 //units in nm
+c=0.75 //units in nm
+h=1
+k=2
+l=3
+d=1/sqrt((((h/a)^2)+((k/b)^2)+((l/c)^2))) //units in nm
+printf("The Distance between (1,2,3) planes and (2,4,6) planes is d123=%.2fnm and d246=%.2fnm",d,d/2)
+//In textbook the answer is printed wrong as d123=0.11nm and d246=0.055nm but the correct answers are d123=0.21nm and d246=0.11nm
diff --git a/3411/CH5/EX5.4/Ex5_4.txt b/3411/CH5/EX5.4/Ex5_4.txt new file mode 100644 index 000000000..c9330488d --- /dev/null +++ b/3411/CH5/EX5.4/Ex5_4.txt @@ -0,0 +1 @@ +The Distance between (1,2,3) planes and (2,4,6) planes is d123=0.21nm and d246=0.11nm
\ No newline at end of file diff --git a/3411/CH5/EX5.5/Ex5_5.sce b/3411/CH5/EX5.5/Ex5_5.sce new file mode 100644 index 000000000..2dbc4f144 --- /dev/null +++ b/3411/CH5/EX5.5/Ex5_5.sce @@ -0,0 +1,9 @@ +//Example 5_5
+clc();
+clear;
+//To find out the interplanar spacing of the reflecting planes of the crystal
+theta=28 //units in degrees
+lamda=0.12 //units in nm
+n=2
+d=(n*lamda)/(2*sin(theta*(%pi/180)))
+printf("The interplanar spacing of the reflecting planes of the crystal is d=%.2fnm",d)
diff --git a/3411/CH5/EX5.5/Ex5_5.txt b/3411/CH5/EX5.5/Ex5_5.txt new file mode 100644 index 000000000..6f4a5b73a --- /dev/null +++ b/3411/CH5/EX5.5/Ex5_5.txt @@ -0,0 +1 @@ +The interplanar spacing of the reflecting planes of the crystal is d=0.26nm
\ No newline at end of file diff --git a/3411/CH5/EX5.6/Ex5_6.sce b/3411/CH5/EX5.6/Ex5_6.sce new file mode 100644 index 000000000..9df6c1ac3 --- /dev/null +++ b/3411/CH5/EX5.6/Ex5_6.sce @@ -0,0 +1,12 @@ +//Example 5_6
+clc();
+clear;
+//To calculate the interplanar spacing and wavelength
+n1=1
+theta1=23 //units in degrees
+n2=3
+theta2=60 //units in degrees
+lamda1=97 //units in pm
+lamda2=(n2*lamda1*sin(theta1*(%pi/180)))/(sin(theta2*(%pi/180))) //units in pm
+d=(n2*lamda1)/(2*sin(theta2*(%pi/180))) //units in pm
+printf("Wavelength lamda=%dpm \n Interplanar spacing d=%dpm",lamda2,d)
diff --git a/3411/CH5/EX5.6/Ex5_6.txt b/3411/CH5/EX5.6/Ex5_6.txt new file mode 100644 index 000000000..d3b42fa92 --- /dev/null +++ b/3411/CH5/EX5.6/Ex5_6.txt @@ -0,0 +1,2 @@ +Wavelength lamda=131pm
+ Interplanar spacing d=168pm
\ No newline at end of file diff --git a/3411/CH5/EX5.7/Ex5_7.sce b/3411/CH5/EX5.7/Ex5_7.sce new file mode 100644 index 000000000..d40ad9d24 --- /dev/null +++ b/3411/CH5/EX5.7/Ex5_7.sce @@ -0,0 +1,27 @@ +//Example 5_7
+clc();
+clear;
+//To find the wavelength whenthese planes give rise to maximum density in reflection
+d=275 //units in pm
+theta=45 //units in degrees
+//For n=1
+n=1
+lamda=(2*d*sin(theta*(%pi/180)))/n //units in pm
+printf("Wavelength for n=1 is lamda=%.1fpm\n",lamda)
+//For n=2
+n=2
+lamda=(2*d*sin(theta*(%pi/180)))/n //units in pm
+printf("Wavelength for n=1 is lamda=%.1fpm\n",lamda)
+//For n=3
+n=3
+lamda=(2*d*sin(theta*(%pi/180)))/n //units in pm
+printf("Wavelength for n=1 is lamda=%.1fpm\n",lamda)
+//For n=4
+n=4
+lamda=(2*d*sin(theta*(%pi/180)))/n //units in pm
+printf("Wavelength for n=1 is lamda=%.1fpm\n",lamda)
+//For n=5
+n=5
+lamda=(2*d*sin(theta*(%pi/180)))/n //units in pm
+printf("Wavelength for n=1 is lamda=%.1fpm\n",lamda)
+printf("For n=1,2,3 and >5 lamda lies beyond the range of wavelengths of polychromatic source")
diff --git a/3411/CH5/EX5.7/Ex5_7.txt b/3411/CH5/EX5.7/Ex5_7.txt new file mode 100644 index 000000000..eeb828b53 --- /dev/null +++ b/3411/CH5/EX5.7/Ex5_7.txt @@ -0,0 +1,6 @@ +Wavelength for n=1 is lamda=388.9pm
+Wavelength for n=1 is lamda=194.5pm
+Wavelength for n=1 is lamda=129.6pm
+Wavelength for n=1 is lamda=97.2pm
+Wavelength for n=1 is lamda=77.8pm
+For n=1,2,3 and >5 lamda lies beyond the range of wavelengths of polychromatic source
\ No newline at end of file diff --git a/3411/CH5/EX5.8/Ex5_8.sce b/3411/CH5/EX5.8/Ex5_8.sce new file mode 100644 index 000000000..c6c61b8da --- /dev/null +++ b/3411/CH5/EX5.8/Ex5_8.sce @@ -0,0 +1,14 @@ +//Example 5_8
+clc();
+clear;
+//To calculate the Bragg angle and the wavelength of X-rays
+//Given plane indices are (1,1,1)
+theta=87 //units in degrees
+theta=theta/2 //units in degrees
+a=0.2 //units in nm
+h=1
+k=1
+l=1
+d=a/sqrt(h^2+k^2+l^2) //units in nm
+lamda=2*d*sin(theta*(%pi/180)) //units in nm
+printf("Bragg angle theta=%.1fdegrees \n wavelength lamda=%.3fnm",theta,lamda)
diff --git a/3411/CH5/EX5.8/Ex5_8.txt b/3411/CH5/EX5.8/Ex5_8.txt new file mode 100644 index 000000000..529d164f5 --- /dev/null +++ b/3411/CH5/EX5.8/Ex5_8.txt @@ -0,0 +1,2 @@ + Bragg angle theta=43.5degrees
+ wavelength lamda=0.159nm
\ No newline at end of file diff --git a/3411/CH5/EX5.9/Ex5_9.sce b/3411/CH5/EX5.9/Ex5_9.sce new file mode 100644 index 000000000..c3f7f1e03 --- /dev/null +++ b/3411/CH5/EX5.9/Ex5_9.sce @@ -0,0 +1,15 @@ +//Example 5_9
+clc();
+clear;
+//To determine the interplanar spacing
+h=6.63*10^-34 //Plancks Constant
+m=9.1*10^-31
+e=1.6*10^-19
+v=844
+lamda=h/sqrt(2*m*e*v) //units in mts
+n=1
+theta=58 //units in degrees
+d=(n*lamda)/(2*sin(theta*(%pi/180))) //units in mts
+printf("The interplanar spacing d=")
+disp(d)
+printf("mts")
diff --git a/3411/CH5/EX5.9/Ex5_9.txt b/3411/CH5/EX5.9/Ex5_9.txt new file mode 100644 index 000000000..05ff349b8 --- /dev/null +++ b/3411/CH5/EX5.9/Ex5_9.txt @@ -0,0 +1,3 @@ + The interplanar spacing d=
+ 2.493D-11
+mts
\ No newline at end of file diff --git a/3411/CH6/EX6.1/Ex6_1.sce b/3411/CH6/EX6.1/Ex6_1.sce new file mode 100644 index 000000000..2020c25ec --- /dev/null +++ b/3411/CH6/EX6.1/Ex6_1.sce @@ -0,0 +1,11 @@ +//Example 6_1
+clc();
+clear;
+//To calculate the Electric field of a laser beam
+i=10^-3/(3*10^-6) //units in W/mts^2
+c=3*10^8 //units in mts/sec
+u=4*10^-7 //units in SI
+n=1
+E0=sqrt((i*2*c*u)/n) //units in V/mts
+printf("The electric field is E0=%.2f V/m",E0)
+//In text book answer is given E0=501 V/m but the correct answer is E0=282.84 V/m
diff --git a/3411/CH6/EX6.1/Ex6_1.txt b/3411/CH6/EX6.1/Ex6_1.txt new file mode 100644 index 000000000..317424c39 --- /dev/null +++ b/3411/CH6/EX6.1/Ex6_1.txt @@ -0,0 +1 @@ +The electric field is E0=282.84 V/m
\ No newline at end of file diff --git a/3411/CH6/EX6.2/Ex6_2.sce b/3411/CH6/EX6.2/Ex6_2.sce new file mode 100644 index 000000000..1e1c84460 --- /dev/null +++ b/3411/CH6/EX6.2/Ex6_2.sce @@ -0,0 +1,12 @@ +//Example 6_2
+clc();
+clear;
+//To calculate the Electric field of a bulb
+w=10 //units in W
+i=(100*w)/(4*%pi*10^2) //Units in W/mts^2
+c=3*10^8 //units in mts/sec
+u=4*10^-7 //units in SI
+n=1
+E0=sqrt((i*2*c*u)/n) //units in V/mts
+printf("The electric field of the bulb is E0=%.2f V/mts",E0)
+//In text book answer is given E0=2.4 V/m but the correct answer is E0=13.82 V/m
diff --git a/3411/CH6/EX6.2/Ex6_2.txt b/3411/CH6/EX6.2/Ex6_2.txt new file mode 100644 index 000000000..b60f8fecc --- /dev/null +++ b/3411/CH6/EX6.2/Ex6_2.txt @@ -0,0 +1 @@ +The electric field of the bulb is E0=13.82 V/mts
\ No newline at end of file diff --git a/3411/CH6/EX6.3/Ex6_3.sce b/3411/CH6/EX6.3/Ex6_3.sce new file mode 100644 index 000000000..43d6cfdd0 --- /dev/null +++ b/3411/CH6/EX6.3/Ex6_3.sce @@ -0,0 +1,12 @@ +//Example 6_3
+clc();
+clear;
+//To calculate the electric field intensity a a point
+r=6*10^-6 //units in mts
+i=(1*10^-3)/(%pi*r^2) //units in W/met^2
+c=3*10^8 //units in mts/sec
+u=4*10^-7 //units in SI
+n=1
+E=sqrt((i*2*c*u)/n) //units in V/mts
+printf("The electric field intensity a a point is given by E=%.2f V/mts",E)
+//In text book answer is given E=8.1*10^4 V/m but the correct answer is E=46065.89 V/m
diff --git a/3411/CH6/EX6.3/Ex6_3.txt b/3411/CH6/EX6.3/Ex6_3.txt new file mode 100644 index 000000000..ff02857d9 --- /dev/null +++ b/3411/CH6/EX6.3/Ex6_3.txt @@ -0,0 +1 @@ +The electric field intensity a a point is given by E=46065.89 V/mts
\ No newline at end of file diff --git a/3411/CH6/EX6.4/Ex6_4.sce b/3411/CH6/EX6.4/Ex6_4.sce new file mode 100644 index 000000000..fa9672c52 --- /dev/null +++ b/3411/CH6/EX6.4/Ex6_4.sce @@ -0,0 +1,12 @@ +//Example 6_4
+clc();
+clear;
+//To calculate the ratio of populations of two energy levels
+h=6.63*10^-34
+c=3*10^8
+lamda=694.3*10^-9
+kb=1.38*10^-23
+T=300
+n1_n2=exp((h*c)/(lamda*kb*T))
+printf("The ratio of Populations of two energy levels is N1/N2=")
+disp(n1_n2);
diff --git a/3411/CH6/EX6.4/Ex6_4.txt b/3411/CH6/EX6.4/Ex6_4.txt new file mode 100644 index 000000000..bf6e975fb --- /dev/null +++ b/3411/CH6/EX6.4/Ex6_4.txt @@ -0,0 +1,3 @@ +The ratio of Populations of two energy levels is N1/N2=
+ 1.127D+30
+
\ No newline at end of file diff --git a/3411/CH6/EX6.5/Ex6_5.sce b/3411/CH6/EX6.5/Ex6_5.sce new file mode 100644 index 000000000..703bd9110 --- /dev/null +++ b/3411/CH6/EX6.5/Ex6_5.sce @@ -0,0 +1,11 @@ +//Example 6_5
+clc();
+clear;
+//To find the wavelength of the radiation emitted
+h=6.63*10^-34
+c=3*10^8
+kb=1.38*10^-23
+T=300
+lamda=(h*c)/(kb*T) //units in microns
+lamda=lamda*10^6 //units in micro meters
+printf("The wavelength of the radiation emmitted is lamda=%.2f um",lamda)
diff --git a/3411/CH6/EX6.5/Ex6_5.txt b/3411/CH6/EX6.5/Ex6_5.txt new file mode 100644 index 000000000..1b2f6aadb --- /dev/null +++ b/3411/CH6/EX6.5/Ex6_5.txt @@ -0,0 +1 @@ +The wavelength of the radiation emmitted is lamda=48.04 um
\ No newline at end of file diff --git a/3411/CH6/EX6.6/Ex6_6.sce b/3411/CH6/EX6.6/Ex6_6.sce new file mode 100644 index 000000000..c45f500f5 --- /dev/null +++ b/3411/CH6/EX6.6/Ex6_6.sce @@ -0,0 +1,14 @@ +//Example 6_6
+clc();
+clear;
+//To calculate the ratio of stimulated emission to Spontaneous emission
+h=6.63*10^-34
+c=3*10^8
+lamda=694.3*10^-9
+kb=1.38*10^-23
+T=300
+constant=(h*c)/(lamda*kb*T)
+R=1/(exp(constant)-1)
+printf("The ratio of stimulated emission to Spontaneous emission is R=")
+disp(R)
+//In text book answer is given R=4.98*10^-14 but the correct answer is R=8.874D-31
\ No newline at end of file diff --git a/3411/CH6/EX6.6/Ex6_6.txt b/3411/CH6/EX6.6/Ex6_6.txt new file mode 100644 index 000000000..b94fda8e1 --- /dev/null +++ b/3411/CH6/EX6.6/Ex6_6.txt @@ -0,0 +1,3 @@ +The ratio of stimulated emission to Spontaneous emission is R=
+ 8.874D-31
+
\ No newline at end of file diff --git a/3411/CH6/EX6.7/Ex6_7.sce b/3411/CH6/EX6.7/Ex6_7.sce new file mode 100644 index 000000000..51356e02b --- /dev/null +++ b/3411/CH6/EX6.7/Ex6_7.sce @@ -0,0 +1,11 @@ +//Example 6_7
+clc();
+clear;
+//To calculate the no of photons emitted by the ruby laser
+p=1 //units in W
+lamda=694.3*10^-9
+h=6.63*10^-34
+c=3*10^8
+n=(p*lamda)/(h*c)
+printf("The no of photons emitted by the ruby laser is n=")
+disp(n)
diff --git a/3411/CH6/EX6.7/Ex6_7.txt b/3411/CH6/EX6.7/Ex6_7.txt new file mode 100644 index 000000000..a05a14ee2 --- /dev/null +++ b/3411/CH6/EX6.7/Ex6_7.txt @@ -0,0 +1,3 @@ +The no of photons emitted by the ruby laser is n=
+ 3.491D+18
+
\ No newline at end of file diff --git a/3411/CH7/EX7.1/Ex7_1.sce b/3411/CH7/EX7.1/Ex7_1.sce new file mode 100644 index 000000000..e59055431 --- /dev/null +++ b/3411/CH7/EX7.1/Ex7_1.sce @@ -0,0 +1,13 @@ +//Example 7_1
+clc();
+clear;
+//To determine the no of modes propogating in the fiber
+n1=1.48
+n2=1.41
+NA=sqrt(n1^2-n2^2)
+d=60 //units in micro mts
+lamda0=0.8 //units in micro mts
+v=(%pi*d*NA)/lamda0
+n=v^2/2
+printf("Number of modes n=%.2f",n)
+//In text book the answer given wrong as n=4.55*10^3 the correct answer is n=5615.50
diff --git a/3411/CH7/EX7.1/Ex7_1.txt b/3411/CH7/EX7.1/Ex7_1.txt new file mode 100644 index 000000000..64bfe193b --- /dev/null +++ b/3411/CH7/EX7.1/Ex7_1.txt @@ -0,0 +1 @@ +Number of modes n=5615.50
\ No newline at end of file diff --git a/3411/CH7/EX7.2/Ex7_2.sce b/3411/CH7/EX7.2/Ex7_2.sce new file mode 100644 index 000000000..35c08b0ce --- /dev/null +++ b/3411/CH7/EX7.2/Ex7_2.sce @@ -0,0 +1,13 @@ +//Example 7_2
+clc();
+clear;
+//To find the fraction of initial intensity
+alpha=-2.2
+l=2 //units in KM
+//Case (a) when L=2
+It_I0=10^(alpha*l/10)
+printf("The fraction of initial intensity left when L=2 It/I0=%.3f\n",It_I0)
+//Case (b) when L=6
+l=6 //units in KM
+It_I0=10^(alpha*l/10)
+printf("The fraction of initial intensity left when L=6 It/I0=%.3f\n",It_I0)
diff --git a/3411/CH7/EX7.2/Ex7_2.txt b/3411/CH7/EX7.2/Ex7_2.txt new file mode 100644 index 000000000..3f1c85fdd --- /dev/null +++ b/3411/CH7/EX7.2/Ex7_2.txt @@ -0,0 +1,3 @@ +The fraction of initial intensity left when L=2 It/I0=0.363
+The fraction of initial intensity left when L=6 It/I0=0.048
+
\ No newline at end of file diff --git a/3411/CH7/EX7.3/Ex7_3.sce b/3411/CH7/EX7.3/Ex7_3.sce new file mode 100644 index 000000000..30cc73a1f --- /dev/null +++ b/3411/CH7/EX7.3/Ex7_3.sce @@ -0,0 +1,10 @@ +//Example 7_3
+clc();
+clear;
+//To calculate the numerical apperture and angle of acceptance
+n1=1.48
+delta=0.05
+NA=n1*sqrt(2*delta)
+printf("Numerical apperture is NA=%.3f\n",NA)
+ia=asin(NA)*180/%pi //units in degrees
+printf("Angle of acceptance is ia=%.2f Degrees",ia)
diff --git a/3411/CH7/EX7.3/Ex7_3.txt b/3411/CH7/EX7.3/Ex7_3.txt new file mode 100644 index 000000000..0bfc8e4fe --- /dev/null +++ b/3411/CH7/EX7.3/Ex7_3.txt @@ -0,0 +1,2 @@ +Numerical apperture is NA=0.468
+Angle of acceptance is ia=27.91 Degrees
\ No newline at end of file diff --git a/3411/CH7/EX7.4/Ex7_4.sce b/3411/CH7/EX7.4/Ex7_4.sce new file mode 100644 index 000000000..d098e474b --- /dev/null +++ b/3411/CH7/EX7.4/Ex7_4.sce @@ -0,0 +1,10 @@ +//Example 7_4
+clc();
+clear;
+//To calculate the numerical apperture and angle of acceptance
+n1=1.45
+n2=1.40
+NA=sqrt(n1^2-n2^2)
+printf("Numerical apperture is NA=%.3f\n",NA)
+ia=asin(NA)*180/%pi //units in degrees
+printf("Angle of acceptance is ia=%.2f Degrees",ia)
diff --git a/3411/CH7/EX7.4/Ex7_4.txt b/3411/CH7/EX7.4/Ex7_4.txt new file mode 100644 index 000000000..9e2eac112 --- /dev/null +++ b/3411/CH7/EX7.4/Ex7_4.txt @@ -0,0 +1,2 @@ + Numerical apperture is NA=0.377
+Angle of acceptance is ia=22.18 Degrees
\ No newline at end of file diff --git a/3411/CH7/EX7.5/Ex7_5.sce b/3411/CH7/EX7.5/Ex7_5.sce new file mode 100644 index 000000000..4ba7f0be2 --- /dev/null +++ b/3411/CH7/EX7.5/Ex7_5.sce @@ -0,0 +1,9 @@ +//Example 7_5
+clc();
+clear;
+//To find the loss specification of a fiber
+l=0.5 //units in KM
+it=7.5*10^-6 //units in micro mts
+i0=8.6*10^-6 //units in micro mts
+alpha=(10/l)*log10(it/i0) //units in db/Km
+printf("The loss specification of the fiber is alpha=%.2f db/km",alpha)
diff --git a/3411/CH7/EX7.5/Ex7_5.txt b/3411/CH7/EX7.5/Ex7_5.txt new file mode 100644 index 000000000..abaf52aea --- /dev/null +++ b/3411/CH7/EX7.5/Ex7_5.txt @@ -0,0 +1 @@ + The loss specification of the fiber is alpha=-1.19 db/km
\ No newline at end of file diff --git a/3411/CH7/EX7.6/Ex7_6.sce b/3411/CH7/EX7.6/Ex7_6.sce new file mode 100644 index 000000000..486c14acd --- /dev/null +++ b/3411/CH7/EX7.6/Ex7_6.sce @@ -0,0 +1,21 @@ +//Example 7_6
+clc();
+clear;
+//To calculate the numerical aperture,acceptance angle,critical angle,velocity of the light in core and cladding
+n1=1.5
+delta=1.8*10^-2
+NA=n1*sqrt(2*delta)
+printf("Numerical apperture is NA=%.3f\n",NA)
+ia=asin(NA)*180/%pi //units in degrees
+printf("Angle of acceptance is ia=%.2f Degrees\n",ia)
+n2=0.982*n1
+n2_n1=0.982
+ic=asin(n2_n1)*180/%pi //units in degrees
+printf("Critical angle is ic=%.2f Degrees\n",ic)
+c=3*10^8
+vc=c/n1
+printf("Velocity of light in core is vc=")
+disp(vc)
+vcc=c/n2
+printf("Velocity of light in cladding is vcc=")
+disp(vcc)
diff --git a/3411/CH7/EX7.6/Ex7_6.txt b/3411/CH7/EX7.6/Ex7_6.txt new file mode 100644 index 000000000..9bd9eabf3 --- /dev/null +++ b/3411/CH7/EX7.6/Ex7_6.txt @@ -0,0 +1,8 @@ +Numerical apperture is NA=0.285
+Angle of acceptance is ia=16.54 Degrees
+Critical angle is ic=79.11 Degrees
+Velocity of light in core is vc=
+ 2.000D+08
+Velocity of light in cladding is vcc=
+ 2.037D+08
+
\ No newline at end of file diff --git a/3411/CH7/EX7.7/Ex7_7.sce b/3411/CH7/EX7.7/Ex7_7.sce new file mode 100644 index 000000000..6da7e824c --- /dev/null +++ b/3411/CH7/EX7.7/Ex7_7.sce @@ -0,0 +1,9 @@ +//Example 7_7
+clc();
+clear;
+//To calculate the fiber length
+alpha=0.5 //units in db/KM
+it=2*10^-6 //units in W
+i0=1.5*10^-3 //units in W
+l=-1*(10/alpha)*log10(it/i0) //units in KM
+printf("The length of the fiber is L=%.1f KM",l)
diff --git a/3411/CH7/EX7.7/Ex7_7.txt b/3411/CH7/EX7.7/Ex7_7.txt new file mode 100644 index 000000000..8c104e931 --- /dev/null +++ b/3411/CH7/EX7.7/Ex7_7.txt @@ -0,0 +1 @@ +The length of the fiber is L=57.5 KM
\ No newline at end of file |