initial commit / add all books

28 files changed, 245 insertions, 0 deletions

diff --git a/1397/CH1/EX1.1/1_1.sce b/1397/CH1/EX1.1/1_1.sce
new file mode 100755
index 000000000..a59904c38
--- /dev/null
+++ b/1397/CH1/EX1.1/1_1.sce
@@ -0,0 +1,13 @@
+//clc();

+clear;

+// To calculate the intensity ratio of bright and dark fringes

+I1=1;

+I2=25;

+// Intensity is directly proportional to square of the amplitude

+A1=sqrt(I1);

+A2=sqrt(I2);

+Imax=(A1+A2)^2;

+Imin=(A1-A2)^2;

+I=Imax/Imin;

+printf("The intensity ratio of bright and dark fringes is %f",I);

+

diff --git a/1397/CH1/EX1.10/1_10.sce b/1397/CH1/EX1.10/1_10.sce
new file mode 100755
index 000000000..ef32a7f6f
--- /dev/null
+++ b/1397/CH1/EX1.10/1_10.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+// To determine the refractive index of the transparent sheet in Newton's ring experiment

+lambda=5460*10^(-8);           //wavelength of light in centimetres

+t=6.3*10^(-4);                  //thickness of the transparent material in centimetres

+n=6;

+mew=((n*lambda)/t)+1;

+printf("the refractive index of the transparent sheet when the central bright fringe is occupied by the 6th bright fringe is mew=%f",mew);

diff --git a/1397/CH1/EX1.11/1_11.sce b/1397/CH1/EX1.11/1_11.sce
new file mode 100755
index 000000000..59f7b93cd
--- /dev/null
+++ b/1397/CH1/EX1.11/1_11.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+// To determine the thickness of the glass plate

+mew=1.56;          //refractive index of the glass plate

+lambda=5000*10^(-8);       //wavelength of the light in centimetres

+n=16;

+t=(n*lambda)/(mew-1);

+printf("thickness of the glass plate in centimetres when 16 fringes are displaced is %f cm",t);

diff --git a/1397/CH1/EX1.12/1_12.sce b/1397/CH1/EX1.12/1_12.sce
new file mode 100755
index 000000000..ae0302829
--- /dev/null
+++ b/1397/CH1/EX1.12/1_12.sce
@@ -0,0 +1,9 @@
+//clc();

+clear;

+// To determine the thickness of the glass plate

+lambda=6000*10^(-8);         //wavelength of parallel beam of light in centimetres

+mew=1.5;             //refractive index of glass plate

+r=50;                //angle of refraction in degrees

+n=1;                 //for least thickness

+t=(n*lambda)/(2*mew*cosd(r));

+printf("the least thickness of the glass plate in centimetres which will appear dark by reflection is %f cm",t);

diff --git a/1397/CH1/EX1.13/1_13.sce b/1397/CH1/EX1.13/1_13.sce
new file mode 100755
index 000000000..71040982c
--- /dev/null
+++ b/1397/CH1/EX1.13/1_13.sce
@@ -0,0 +1,9 @@
+//clc();

+clear;

+// To calculate the thickness of the glass plate

+lambda=5000*10^(-8);           //wavelength of light in centimetres

+n=6;                   //shift of the central range or the ratio between S and beeta

+mew=1.5;               //refractive index of glass plate

+t=(n*lambda)/(mew-1);

+printf("the thickness of the glass plate when the central fringe is shifted to the position of 6th bright fringe is %f cm",t);

+ 

diff --git a/1397/CH1/EX1.14/1_14.sce b/1397/CH1/EX1.14/1_14.sce
new file mode 100755
index 000000000..df76bc18b
--- /dev/null
+++ b/1397/CH1/EX1.14/1_14.sce
@@ -0,0 +1,7 @@
+//clc();

+clear;

+// To determine the refractive index of liquid in Newton's ring

+D8=1.42;          //diameter of the 8th ring in centimetres

+D8new=1.25;       //new diameter of the 8th ring in centimetres

+mew=(D8^2)/(D8new^2);

+printf("refractive index of the liquid when the liquid is intoduced between the lens and glass plate is %f",mew);

diff --git a/1397/CH1/EX1.15/1_15.sce b/1397/CH1/EX1.15/1_15.sce
new file mode 100755
index 000000000..87153f5d9
--- /dev/null
+++ b/1397/CH1/EX1.15/1_15.sce
@@ -0,0 +1,9 @@
+//clc();

+clear;

+// To determine the thickness of the thinnest film

+n=1;

+lambda=6000*10^(-8);          //wavelength of yellow light in centimetres

+mew=1.33;             //refractive index of the film

+r=0;                  //angle of refraction in degrees

+t=(n*lambda)/(2*mew*cosd(r)*10^(-2));

+printf("thickness of the thinnest film in which destructive interference takes place is %f cm",t);

diff --git a/1397/CH1/EX1.16/1_16.sce b/1397/CH1/EX1.16/1_16.sce
new file mode 100755
index 000000000..82bdedca8
--- /dev/null
+++ b/1397/CH1/EX1.16/1_16.sce
@@ -0,0 +1,10 @@
+//clc();

+clear;

+// To determine the radius of curvature of plano convex lens

+lambda=6000*10^(-8);        //wavelength of light in centimetres

+m=18;

+n=8;

+Dm=0.65;           //diameter of 18th ring in centimetres

+Dn=0.35;            //diameter of 8th ring in centimetres

+R=(Dm^2-Dn^2)/(4*lambda*(m-n));

+printf("Radius of curvature of the plano convex lens when the wavelength of light used is 6000 Armstrong is %f cm",R)

diff --git a/1397/CH1/EX1.17/1_17.sce b/1397/CH1/EX1.17/1_17.sce
new file mode 100755
index 000000000..ce22f2ad9
--- /dev/null
+++ b/1397/CH1/EX1.17/1_17.sce
@@ -0,0 +1,7 @@
+//clc();

+clear;

+// To determine the refractive index of the liquid

+D12air=1.45;            //diameter of 12th ring in air medium

+D12liq=1.25;            //diameter of 12th ring in liquid

+mew=(D12air^2)/(D12liq^2);

+printf("refractive index of the liquid when liquid is introduced between the lens and glass plate is %f",mew);

diff --git a/1397/CH1/EX1.18/1_18.sce b/1397/CH1/EX1.18/1_18.sce
new file mode 100755
index 000000000..cc66e2cf0
--- /dev/null
+++ b/1397/CH1/EX1.18/1_18.sce
@@ -0,0 +1,14 @@
+//clc();

+clear;

+//To determine the diameter of a ring in Newton's rings experiment

+D5=0.3;         //diameter of 5th ring in centimetres

+D15=0.62;       //diameter of 15th ring in centimetres

+//The principle used here is Dm^2-Dn^2=4*lambda*R*(m-n).

+//the product lambda*R is constant hence it can be eliminated.

+aLHS=D15^2-D5^2;

+aRHS=4*(15-5);            //By substituting the values of m and n in the principle equation

+bRHS=4*(25-5);            //By substituting the values of m and n in the principle equation

+c=bRHS/aRHS;

+D25=sqrt((c*aLHS)+D5^2);

+printf("diameter of 25th ring is %f cm",D25);

+

diff --git a/1397/CH1/EX1.19/1_19.sce b/1397/CH1/EX1.19/1_19.sce
new file mode 100755
index 000000000..78bb66c3e
--- /dev/null
+++ b/1397/CH1/EX1.19/1_19.sce
@@ -0,0 +1,10 @@
+//clc();

+clear;

+//To determine the radius of curvature of convex lens

+lambda=5890*10^(-8);          //wavelength in centimetres

+m=15;

+n=5;

+Dm=0.590;             //diameter of 15th ring in centimetres

+Dn=0.336;             //diameter of 5th ring in centimetres

+R=(Dm-Dn)/(4*lambda*(m-n));

+printf("radius of curvature of convex lens is %f cm",R);

diff --git a/1397/CH1/EX1.2/1_2.sce b/1397/CH1/EX1.2/1_2.sce
new file mode 100755
index 000000000..1b042fbf4
--- /dev/null
+++ b/1397/CH1/EX1.2/1_2.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+// To determine the order that will be visible at a point

+n1=21;

+lambda1=6000*10^(-8);            // The 21st order maximum is observed for source of light in centimetres

+lambda2=4500*10^(-8);

+n2=(n1*lambda1)/(lambda2);

+printf("The order that will be visible if the source is replaced by 4500 Armstrong is %f",n2);

diff --git a/1397/CH1/EX1.20/1_20.sce b/1397/CH1/EX1.20/1_20.sce
new file mode 100755
index 000000000..2c6a840a4
--- /dev/null
+++ b/1397/CH1/EX1.20/1_20.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the wavelength of the light used

+R=70;          //radius of curvature of the lens in centimetres

+n=10;

+Dn=0.433      //diameter of 10th dark ring in centimetres

+lambda=(Dn^2)/(4*R*n);

+printf("the wavelength of the light used when a convex lens is exposed by a monochromatic light is %f cm",lambda);

diff --git a/1397/CH1/EX1.21/1_21.sce b/1397/CH1/EX1.21/1_21.sce
new file mode 100755
index 000000000..941e73c35
--- /dev/null
+++ b/1397/CH1/EX1.21/1_21.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the slit width

+theta=15;             //angle in degrees

+lambda=6500*10^(-8);          //wavelength in centimetres

+n=1;

+a=(n*lambda)/sind(theta);

+printf("slit width illuminated by white light is %f cm",a);

diff --git a/1397/CH1/EX1.22/1_22.sce b/1397/CH1/EX1.22/1_22.sce
new file mode 100755
index 000000000..e16d4ae3e
--- /dev/null
+++ b/1397/CH1/EX1.22/1_22.sce
@@ -0,0 +1,7 @@
+//clc();

+clear;

+//To determine the wavelength of light

+theta=15;            //first diffraction maxima in degrees

+a=2.5*10^(-6);       //slit width in metres

+lambda=(a*sind(theta)*10^10)/1.43;

+printf("wavelength of light is %f Armstrong",lambda);

diff --git a/1397/CH1/EX1.23/1_23.sce b/1397/CH1/EX1.23/1_23.sce
new file mode 100755
index 000000000..c8eb866e6
--- /dev/null
+++ b/1397/CH1/EX1.23/1_23.sce
@@ -0,0 +1,9 @@
+//clc();

+clear;

+//To determine the wavelength of spectral line

+n=2;

+N=4250;           //grating in lines per centimetre

+theta=30;         //angle in degrees

+e=1/N;

+lambda=(e*sind(theta)*10^8)/n;

+printf("wavelength of the spectral line when a plane transmission grating is illuminated with a sodium light  is %f Armstrong",lambda);

diff --git a/1397/CH1/EX1.24/1_24.sce b/1397/CH1/EX1.24/1_24.sce
new file mode 100755
index 000000000..6c1bf33cd
--- /dev/null
+++ b/1397/CH1/EX1.24/1_24.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the angular seperation

+lambda=600*10^(-9);           //wavelength of light in metres

+a=1*10^(-6);                  //slit width in metres

+n=1;

+theta=asind((n*lambda)/a);

+printf("the angular seperation between the first order minima and central maxima of either side is %f degrees",theta);

diff --git a/1397/CH1/EX1.25/1_25.sce b/1397/CH1/EX1.25/1_25.sce
new file mode 100755
index 000000000..283b569c1
--- /dev/null
+++ b/1397/CH1/EX1.25/1_25.sce
@@ -0,0 +1,9 @@
+//clc();

+clear;

+//To determine the visible number of orders

+N=10520;            //grating lines in lines per centimetre

+theta=90;           //angle in degrees

+lambda=5*10^(-5);         //wavelength of light in centimetres

+e=1/N;

+n=(e*sind(theta))/lambda;

+printf("the number of orders visible in grating spectra is %f",n);

diff --git a/1397/CH1/EX1.26/1_26.sce b/1397/CH1/EX1.26/1_26.sce
new file mode 100755
index 000000000..34a803dc6
--- /dev/null
+++ b/1397/CH1/EX1.26/1_26.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the slit width

+x=4.2*10^(-3);        //distance between central max to first max in metres

+D=0.6;                 //distance between screen and slit in metres

+lambda=6000*10^(-10);          //wavelength of light in metres

+d=(D*lambda)/x;

+printf("the slit width in a single slit diffraction pattern is %f m",d);

diff --git a/1397/CH1/EX1.27/1_27.sce b/1397/CH1/EX1.27/1_27.sce
new file mode 100755
index 000000000..f3ea1e30c
--- /dev/null
+++ b/1397/CH1/EX1.27/1_27.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To calculate the possible order of spectra

+N=5.905*10^3;          //grating lines in lines per centimetre

+lambda=6000*10^(-8);      //wavelength of light in centimetres

+d=1/N;

+m=d/lambda;

+printf("the possible order of spectra with a plane transmission grating is %f",m);

diff --git a/1397/CH1/EX1.28/1_28.sce b/1397/CH1/EX1.28/1_28.sce
new file mode 100755
index 000000000..1e40e1087
--- /dev/null
+++ b/1397/CH1/EX1.28/1_28.sce
@@ -0,0 +1,9 @@
+//clc();

+clear;

+//To determine the wavelength of light in Fraulhofer double slit diffraction

+D=150;              //distance between slit and screen in centimetres

+d=0.03;              //seperation between slits in centimetres

+beeta=0.3;          //fringe seperation in centimetres

+lambda=(beeta*d*10^8)/D;

+printf("wavelength of light if fringe seperation is 0.3 cm is %f Armstrong",lambda);

+

diff --git a/1397/CH1/EX1.3/1_3.sce b/1397/CH1/EX1.3/1_3.sce
new file mode 100755
index 000000000..227d46298
--- /dev/null
+++ b/1397/CH1/EX1.3/1_3.sce
@@ -0,0 +1,10 @@
+//clc();

+clear;

+// To determine the slit seperation in Young's double slit experiment

+lambda=5100*10^(-8);         //A source of light in centimetres

+D=200;               // Seperation between screen and slit in centimetres

+beeta=0.01;          // Overall seperation from double slit in metres

+d=(lambda*D)/beeta;

+printf("The seperation between slits if the source of light is incident from a narrow slit on a double slit is %f m",d);

+

+

diff --git a/1397/CH1/EX1.4/1_4.sce b/1397/CH1/EX1.4/1_4.sce
new file mode 100755
index 000000000..8f19da8a8
--- /dev/null
+++ b/1397/CH1/EX1.4/1_4.sce
@@ -0,0 +1,9 @@
+//clc();

+clear;

+// To determine the thickness of the mica sheet

+mew=1.58;    // Refractive index of mica sheet

+d=0.1;      // Seperation between slits in centimetres

+x=0.2;      // Fringe shifted by a distance in centimetres

+D=50;       // Distance of the screen from slits in centimetres

+t=(x*d)/(D*(mew-1));

+printf("The thickness of the mica sheet is %f cm",t);

diff --git a/1397/CH1/EX1.5/1_5.sce b/1397/CH1/EX1.5/1_5.sce
new file mode 100755
index 000000000..7a8f29338
--- /dev/null
+++ b/1397/CH1/EX1.5/1_5.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+// To determine the fringe width

+lambda=5000*10^(-8);         //Wavelength of light in centimetres

+D=50;        // Distance between the slit and screen in centimetres

+d=0.05;      // Seperation between two slits in centimetres

+beeta=(lambda*D)/d;

+printf("the fringe width is %f cm",beeta);

diff --git a/1397/CH1/EX1.6/1_6.sce b/1397/CH1/EX1.6/1_6.sce
new file mode 100755
index 000000000..1703f30cd
--- /dev/null
+++ b/1397/CH1/EX1.6/1_6.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+// To determine the wavelength of source of light

+beeta=0.30;       // fringe spacing in centimtres

+d=0.04;        // distance between two slits in centimtres

+D=180;        // distance between the slit and screen in centimetres

+lambda=(beeta*d*10^8)/D;

+printf("the wavelength of source of light is %f Armstrong",lambda);

diff --git a/1397/CH1/EX1.7/1_7.sce b/1397/CH1/EX1.7/1_7.sce
new file mode 100755
index 000000000..264bb84a1
--- /dev/null
+++ b/1397/CH1/EX1.7/1_7.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+// To calculate the wavelength of monochromatic light

+beeta=0.04;     // fringe width in centimetres

+d=0.1;         // seperation between slits in centimetres

+D=80;          //distance between slits and screen in centimetres

+lambda=(d*beeta*10^8)/D;

+printf("the wavelength of monochromatic light is %f Armstrong",lambda);

diff --git a/1397/CH1/EX1.8/1_8.sce b/1397/CH1/EX1.8/1_8.sce
new file mode 100755
index 000000000..1afd3bf89
--- /dev/null
+++ b/1397/CH1/EX1.8/1_8.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+// To determine the fringe width

+lambda=5000*10^(-8);        //wavelength of monochromatic light in centimetres

+d=0.05;          // seperation between two slits in centimetres

+D=50;            // distance between slit and screen in centimetres

+beeta=(lambda*D)/d;

+printf("the fringe width is %f cm",beeta);

diff --git a/1397/CH1/EX1.9/1_9.sce b/1397/CH1/EX1.9/1_9.sce
new file mode 100755
index 000000000..92a50977d
--- /dev/null
+++ b/1397/CH1/EX1.9/1_9.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+// To determine the thickness of a soap film

+mew=1.33;           //refractive index of soap film

+n=2;

+lambda=7000*10^(-8);       //wavelength of red light in centimetres

+t=(((2*n)+1)*(lambda/2))/(2*mew);

+printf("thickness of the soap film which gives constructive second order interference is %f cm",t);