Added new codeHEADmaster

47 files changed, 800 insertions, 0 deletions

diff --git a/3869/CH1/EX1.1/Ex1_1.sce b/3869/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..1a2ae6dbe
--- /dev/null
+++ b/3869/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+d=0.08*10**-2         //distance between slits(m)
+beta1=6*10**-4         //fringe width(m)
+c=3*10**8             //velocity of light(m/sec)
+new=8*10**11*10**3    //frequency(Hz)
+
+//Calculation
+lamda=c/new           //wavelength(m)
+D=beta1*d/lamda        //distance of screen from slits(m)
+
+//Result
+printf("\n distance of screen from slits is %0.3f  m",D)
diff --git a/3869/CH1/EX1.10/Ex1_10.sce b/3869/CH1/EX1.10/Ex1_10.sce
new file mode 100644
index 000000000..426e9f6de
--- /dev/null
+++ b/3869/CH1/EX1.10/Ex1_10.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+n=5
+lamda=4800*10**-10       //wavelength(m)
+mew_mewdash=0.3          
+
+//Calculation
+t=n*lamda/mew_mewdash         //thcikness of glass plate(m)
+
+//Result
+printf("\n thcikness of glass plate is %0.3f  *10**-6 m",t*10**6)
+printf("\n answer given in the book is wrong")
diff --git a/3869/CH1/EX1.11/Ex1_11.sce b/3869/CH1/EX1.11/Ex1_11.sce
new file mode 100644
index 000000000..fb97a0949
--- /dev/null
+++ b/3869/CH1/EX1.11/Ex1_11.sce
@@ -0,0 +1,20 @@
+clear
+//
+//
+//
+
+//Variable declaration
+v=0.2         //volume(cc)
+a=1*10**4     //area(cm**2)
+r=0
+n=1
+lamda=5.5*10**-5      //wavelength(cm)
+t=2
+
+//Calculation
+d=v/a       //thickness of film(cm)
+mew=n*lamda/(2*t*cos(r))      //refractive index of oil
+
+//Result
+printf("\n refractive index of oil is %0.2f  *10**-5",mew*10**5)
+printf("\n answer given in the book is wrong")
diff --git a/3869/CH1/EX1.12/Ex1_12.sce b/3869/CH1/EX1.12/Ex1_12.sce
new file mode 100644
index 000000000..f44d0c1c7
--- /dev/null
+++ b/3869/CH1/EX1.12/Ex1_12.sce
@@ -0,0 +1,27 @@
+clear
+//
+//
+//
+
+//Variable declaration
+mew=1.33        //refractive index
+i=35*%pi/180      //angle of incidence(radian)
+d=5*10**-5            //thickness(cm)
+n1=1                  //order 
+n2=2                  //order
+n3=3                  //order 
+n4=4                  //order
+
+//Calculation
+r=180/%pi*asin(sin(i)/mew)     //angle of reflection(degrees)
+lamda1=2*mew*d*cos(r)/n1            //wavelength of light for 1st order(cm)
+lamda2=2*mew*d*cos(r)/n2            //wavelength of light for 2nd order(cm)
+lamda3=2*mew*d*cos(r)/n3            //wavelength of light for 3rd order(cm)
+lamda4=2*mew*d*cos(r)/n4            //wavelength of light for 4th order(cm)
+
+//Result
+printf("\n wavelength of light for 1st order is %0.1f  *10**-5 cm",lamda1*10**5)
+printf("\n answer in the book varies due to rounding off errors")
+printf("\n wavelength of light for 2nd order is %0.2f  *10**-5 cm",lamda2*10**5)
+printf("\n wavelength of light for 3rd order is %0.2f  *10**-5 cm",lamda3*10**5)
+printf("\n wavelength of light for 4th order is %0.1f  *10**-5 cm",lamda4*10**5)
diff --git a/3869/CH1/EX1.13/Ex1_13.sce b/3869/CH1/EX1.13/Ex1_13.sce
new file mode 100644
index 000000000..ab53d7005
--- /dev/null
+++ b/3869/CH1/EX1.13/Ex1_13.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+x=15            //distance(cm)
+d=0.005         //diameter(cm)
+lamda=6000*10**-8     //wavelength(cm)
+
+//Calculation
+alpha=d/x               //angle(radian)
+beta1=lamda/(2*alpha)    //fringe width(cm)
+
+//Result
+printf("\n fringe width is %0.3f  cm",beta1)
diff --git a/3869/CH1/EX1.14/Ex1_14.sce b/3869/CH1/EX1.14/Ex1_14.sce
new file mode 100644
index 000000000..6e8886acb
--- /dev/null
+++ b/3869/CH1/EX1.14/Ex1_14.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+alpha=0.01             //angle(radian)
+n=10
+lamda=6000*10**-10     //wavelength(m)
+
+//Calculation
+x=((2*n)-1)*lamda/(4*alpha)     //distance from edge of the wedge(m)
+
+//Result
+printf("\n distance from edge of the wedge is %0.3f  *10**-4 m",x*10**4)
diff --git a/3869/CH1/EX1.15/Ex1_15.sce b/3869/CH1/EX1.15/Ex1_15.sce
new file mode 100644
index 000000000..7477f39bc
--- /dev/null
+++ b/3869/CH1/EX1.15/Ex1_15.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=5460*10**-8      //wavelength(cm)
+f=400            //focal length(cm)
+n=5
+mew=1.5          //refractive index
+
+//Calculation
+R=2*f*(mew-1)      //radius(cm)
+Dn=sqrt(2*((2*n)-1)*lamda*R)    //diameter of 5th fringe(cm)
+
+//Result
+printf("\n diameter of 5th fringe is %0.2f  m",Dn)
diff --git a/3869/CH1/EX1.16/Ex1_16.sce b/3869/CH1/EX1.16/Ex1_16.sce
new file mode 100644
index 000000000..df0f2caeb
--- /dev/null
+++ b/3869/CH1/EX1.16/Ex1_16.sce
@@ -0,0 +1,26 @@
+clear
+//
+//
+//
+
+//Variable declaration
+t=500*10**-9      //thickness(m)
+f=400            //focal length(cm)
+n1=0
+n2=1
+n3=2
+n4=3
+mew=1.33          //refractive index
+
+//Calculation
+lamda1=4*mew*t/((2*n1)+1)     //wavelength in infrared region(m)
+lamda2=4*mew*t/((2*n2)+1)     //wavelength in infrared region(m)
+lamda3=4*mew*t/((2*n3)+1)     //wavelength in visible region(m)
+lamda4=4*mew*t/((2*n4)+1)     //wavelength in ultraviolet region(m)
+
+//Result
+printf("\n wavelength in infrared region is %0.0f  *10**-10 m",lamda1*10**10)
+printf("\n wavelength in infrared region is %0.1f  *10**-10 m",lamda2*10**10)
+printf("\n wavelength in visible region is %0.0f  *10**-10 m",lamda3*10**10)
+printf("\n wavelength in ultraviolet region is %0.0f  *10**-10 m",lamda4*10**10)
+printf("\n of all the wavelengths reflected %0.3f angstrom is the wavelength in the visible region",lamda3*10**10)
diff --git a/3869/CH1/EX1.17/Ex1_17.sce b/3869/CH1/EX1.17/Ex1_17.sce
new file mode 100644
index 000000000..d98865686
--- /dev/null
+++ b/3869/CH1/EX1.17/Ex1_17.sce
@@ -0,0 +1,19 @@
+clear
+//
+//
+//
+
+//Variable declaration
+i=60*%pi/180       //angle of incidence(radian)
+mew=1.33          //refractive index
+t=1.5*10**-6      //thickness(m)
+lamda=5*10**-7    //wavelength(m)
+
+//Calculation
+r=(180/%pi)*asin(sin(i)/mew)     //angle of reflection(degrees)
+r=(r)*%pi/180            //angle of reflection(degrees)
+
+n=2*mew*t*cos(r)/lamda                    //order of interference
+
+//Result
+printf("\n order of interference is %0.3f  ",n)
diff --git a/3869/CH1/EX1.18/Ex1_18.sce b/3869/CH1/EX1.18/Ex1_18.sce
new file mode 100644
index 000000000..09726848a
--- /dev/null
+++ b/3869/CH1/EX1.18/Ex1_18.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+mew=1.5          //refractive index
+lamda=5890*10**-10    //wavelength(m)
+r=60*%pi/180      //angle of reflection(radian)
+
+//Calculation
+t=lamda/(2*mew*cos(r))       //smallest thickness of the plate(m)
+
+//Result
+printf("\n smallest thickness of the plate is %0.0f  angstrom",t*10**10)
diff --git a/3869/CH1/EX1.19/Ex1_19.sce b/3869/CH1/EX1.19/Ex1_19.sce
new file mode 100644
index 000000000..782778393
--- /dev/null
+++ b/3869/CH1/EX1.19/Ex1_19.sce
@@ -0,0 +1,18 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D4=0.4            //diameter of 4th ring(cm)
+D12=0.7           //diameter of 12th ring(cm)
+p1=16
+p2=8      
+n=4
+
+//Calculation
+x=n*p1/(n*p2)
+D20=sqrt((D4**2)+(x*((D12**2)-(D4**2))))      //diameter of 20th dark ring(cm)
+
+//Result
+printf("\n diameter of 20th dark ring is %0.3f  cm",D20)
diff --git a/3869/CH1/EX1.2/Ex1_2.sce b/3869/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..405e85c3a
--- /dev/null
+++ b/3869/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda1=4200*10**-10    //wavelength(m)
+beta11=0.64*10**-2      //first fringe width(m)
+beta12=0.46*10**-2      //second fringe width(m)
+
+//Calculation
+lamda2=lamda1*2*beta12/beta11    //wavelength of light source(m)
+
+//Result
+printf("\n wavelength of light source is %0.3f  angstron",lamda2*10**10)
diff --git a/3869/CH1/EX1.20/Ex1_20.sce b/3869/CH1/EX1.20/Ex1_20.sce
new file mode 100644
index 000000000..4c02b2552
--- /dev/null
+++ b/3869/CH1/EX1.20/Ex1_20.sce
@@ -0,0 +1,14 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D10=1.4           //diameter of 10th ring(cm)
+D10_dash=1.27     //changed diameter of 10th ring(cm)
+
+//Calculation
+mew=(D10**2)/(D10_dash**2)      //refractive index of the liquid
+
+//Result
+printf("\n refractive index of the liquid is %0.3f  ",mew)
diff --git a/3869/CH1/EX1.21/Ex1_21.sce b/3869/CH1/EX1.21/Ex1_21.sce
new file mode 100644
index 000000000..f1e91c7b5
--- /dev/null
+++ b/3869/CH1/EX1.21/Ex1_21.sce
@@ -0,0 +1,19 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D25=0.8       //diameter of 25th ring(cm)
+D5=0.3        //diameter of 5th ring(cm)
+p=25-5
+R=100         //radius of curvature(cm)
+
+//Calculation
+Nr=(D25**2)-(D5**2)    //numerator
+Dr=4*p*R               //denominator
+lamda=Nr/Dr            //wavelength of light used(cm)
+
+//Result
+printf("\n wavelength of light used is %0.3f  *10**-5 cm",lamda*10**5)
+printf("\n answer given in the book is wrong")
diff --git a/3869/CH1/EX1.22/Ex1_22.sce b/3869/CH1/EX1.22/Ex1_22.sce
new file mode 100644
index 000000000..1db21cd83
--- /dev/null
+++ b/3869/CH1/EX1.22/Ex1_22.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+w=0.02            //width(m)
+theta=(%pi/180)*(18+(14/60))      //angle(radian)
+n=1               
+lamda=6.56*10**-7               //wavelength(m)
+
+//Calculation
+M=w*sin(theta)/(n*lamda)   //total number of lines in the grating 
+
+//Result
+printf("\n total number of lines in the grating is %0.1f  ",M)
+printf("\n answer given in the book varies due to rounding off errors")
diff --git a/3869/CH1/EX1.23/Ex1_23.sce b/3869/CH1/EX1.23/Ex1_23.sce
new file mode 100644
index 000000000..4b1fa340e
--- /dev/null
+++ b/3869/CH1/EX1.23/Ex1_23.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=5890*10**-10               //wavelength(m)
+mew=1.5                //refractive index
+r=60*%pi/180       //angle of reflection(radian)
+
+//Calculation
+t=lamda/(2*mew*cos(r))     //required thickness of plate(m)
+
+//Result
+printf("\n required thickness of plate is %0.0f  angstrom",t*10**10)
diff --git a/3869/CH1/EX1.25/Ex1_25.sce b/3869/CH1/EX1.25/Ex1_25.sce
new file mode 100644
index 000000000..4e96a940c
--- /dev/null
+++ b/3869/CH1/EX1.25/Ex1_25.sce
@@ -0,0 +1,14 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=6500         //wavelength(m)
+theta=30*%pi/180      //angle(radian)
+
+//Calculation
+a=lamda/sin(theta)    //value of slit width(angstrom)
+
+//Result
+printf("\n value of slit width is %0.0f  angstrom",a)
diff --git a/3869/CH1/EX1.27/Ex1_27.sce b/3869/CH1/EX1.27/Ex1_27.sce
new file mode 100644
index 000000000..0b486c5e5
--- /dev/null
+++ b/3869/CH1/EX1.27/Ex1_27.sce
@@ -0,0 +1,25 @@
+clear
+//
+//
+//
+
+//Variable declaration
+t=500*10**-9      //thickness(m)
+n1=0
+n2=1
+n3=2
+n4=3
+mew=1.33          //refractive index
+
+//Calculation
+lamda1=4*mew*t/((2*n1)+1)     //wavelength in infrared region(m)
+lamda2=4*mew*t/((2*n2)+1)     //wavelength in infrared region(m)
+lamda3=4*mew*t/((2*n3)+1)     //wavelength in visible region(m)
+lamda4=4*mew*t/((2*n4)+1)     //wavelength in ultraviolet region(m)
+
+//Result
+printf("\n wavelength in infrared region is %0.0f  *10**-10 m",lamda1*10**10)
+printf("\n wavelength in infrared region is %0.1f  *10**-10 m",lamda2*10**10)
+printf("\n wavelength in visible region is %0.0f  *10**-10 m",lamda3*10**10)
+printf("\n wavelength in ultraviolet region is %0.0f  *10**-10 m",lamda4*10**10)
+printf("\n of all the wavelengths reflected %0.3f angstrom is the wavelength in the visible region",lamda3*10**10)
diff --git a/3869/CH1/EX1.28/Ex1_28.sce b/3869/CH1/EX1.28/Ex1_28.sce
new file mode 100644
index 000000000..d98865686
--- /dev/null
+++ b/3869/CH1/EX1.28/Ex1_28.sce
@@ -0,0 +1,19 @@
+clear
+//
+//
+//
+
+//Variable declaration
+i=60*%pi/180       //angle of incidence(radian)
+mew=1.33          //refractive index
+t=1.5*10**-6      //thickness(m)
+lamda=5*10**-7    //wavelength(m)
+
+//Calculation
+r=(180/%pi)*asin(sin(i)/mew)     //angle of reflection(degrees)
+r=(r)*%pi/180            //angle of reflection(degrees)
+
+n=2*mew*t*cos(r)/lamda                    //order of interference
+
+//Result
+printf("\n order of interference is %0.3f  ",n)
diff --git a/3869/CH1/EX1.29/Ex1_29.sce b/3869/CH1/EX1.29/Ex1_29.sce
new file mode 100644
index 000000000..09726848a
--- /dev/null
+++ b/3869/CH1/EX1.29/Ex1_29.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+mew=1.5          //refractive index
+lamda=5890*10**-10    //wavelength(m)
+r=60*%pi/180      //angle of reflection(radian)
+
+//Calculation
+t=lamda/(2*mew*cos(r))       //smallest thickness of the plate(m)
+
+//Result
+printf("\n smallest thickness of the plate is %0.0f  angstrom",t*10**10)
diff --git a/3869/CH1/EX1.3/Ex1_3.sce b/3869/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..2b4195f7f
--- /dev/null
+++ b/3869/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,22 @@
+clear
+//
+//
+//
+
+//Variable declaration
+Y=1*10**-3           //distance between slits(m)
+D=1                  //distance between slit and screen(m)
+d=1*10**-3           //point distance(m)
+lamda=5893*10**-10   //wavelength(angston)
+
+//Calculation
+delta1=Y*d/D                //path difference(m)
+Pd=2*%pi*delta1/lamda   //phase difference(radian)
+r=(cos(Pd/2))**2       //ratio of intensity
+delta2=lamda/4              //path difference(m)
+W=delta2*D/d                //distance of point on screen from centre(m)
+
+//Result
+printf("\n ratio of intensity is %0.4f  ",r)
+printf("\n distance of point on screen from centre is %0.3f  *10**-4 m",W*10**4)
+printf("\n answers in the book varies due to rounding off errors")
diff --git a/3869/CH1/EX1.30/Ex1_30.sce b/3869/CH1/EX1.30/Ex1_30.sce
new file mode 100644
index 000000000..b2a42cb8f
--- /dev/null
+++ b/3869/CH1/EX1.30/Ex1_30.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+Dn=2*10**-3           //diameter of ring(m)
+n=10
+lamda=500*10**-9      //wavelength(m)
+
+//Calculation
+R=Dn**2/(4*n*lamda)     //radius(m)
+t=Dn**2/(8*R)           //thickness of air film(m)
+
+//Result
+printf("\n thickness of air film is %0.3f  micro m",t*10**6)
diff --git a/3869/CH1/EX1.31/Ex1_31.sce b/3869/CH1/EX1.31/Ex1_31.sce
new file mode 100644
index 000000000..d75d558fa
--- /dev/null
+++ b/3869/CH1/EX1.31/Ex1_31.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D5=0.336*10**-2       //diameter of 5th ring(m)
+D15=0.59*10**-2       //diameter of 15th ring(m)
+m=10
+R=1      //radius of curvature(m)
+
+//Calculation
+lamda=((D15**2)-(D5**2))/(4*m*R)     //wavelength of light(m)
+
+//Result
+printf("\n wavelength of light is %0.0f  nm",lamda*10**9)
diff --git a/3869/CH1/EX1.32/Ex1_32.sce b/3869/CH1/EX1.32/Ex1_32.sce
new file mode 100644
index 000000000..5ec81f21d
--- /dev/null
+++ b/3869/CH1/EX1.32/Ex1_32.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D10=0.5*10**-2       //diameter of 10th ring(m)
+n=10
+lamda=5900*10**-10   //wavelength(m)
+
+//Calculation
+R=D10**2/(4*n*lamda)      //radius of curvature of lens(m)
+
+//Result
+printf("\n radius of curvature of lens is %0.3f  m",R)
diff --git a/3869/CH1/EX1.34/Ex1_34.sce b/3869/CH1/EX1.34/Ex1_34.sce
new file mode 100644
index 000000000..4c02b2552
--- /dev/null
+++ b/3869/CH1/EX1.34/Ex1_34.sce
@@ -0,0 +1,14 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D10=1.4           //diameter of 10th ring(cm)
+D10_dash=1.27     //changed diameter of 10th ring(cm)
+
+//Calculation
+mew=(D10**2)/(D10_dash**2)      //refractive index of the liquid
+
+//Result
+printf("\n refractive index of the liquid is %0.3f  ",mew)
diff --git a/3869/CH1/EX1.36/Ex1_36.sce b/3869/CH1/EX1.36/Ex1_36.sce
new file mode 100644
index 000000000..803695ee4
--- /dev/null
+++ b/3869/CH1/EX1.36/Ex1_36.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda1=6*10**-5     //wavelength(cm)
+lamda2=4.5*10**-5      //wavelength(cm)
+n1=21
+
+//Calculation
+n2=n1*lamda1/lamda2     //order
+
+//Result
+printf("\n order is %0.3f  ",n2)
diff --git a/3869/CH1/EX1.37/Ex1_37.sce b/3869/CH1/EX1.37/Ex1_37.sce
new file mode 100644
index 000000000..69346c14f
--- /dev/null
+++ b/3869/CH1/EX1.37/Ex1_37.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=51*10**-6       //wavelength(cm)
+D=200            //separation between screen and slit(cm)
+beta1=1           //fringe width(cm)
+n=10
+
+//Calculation
+d=lamda*D/beta1      //slit separation(cm)
+
+//Result
+printf("\n slit separation is %0.3f  m",d*100)
diff --git a/3869/CH1/EX1.38/Ex1_38.sce b/3869/CH1/EX1.38/Ex1_38.sce
new file mode 100644
index 000000000..4056482d4
--- /dev/null
+++ b/3869/CH1/EX1.38/Ex1_38.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D=50            //separation between screen and slit(cm)
+x=0.2           //fringe shift(cm)
+d=0.1           //separation between slits(cm)
+mew=1.58        //refractive index
+
+//Calculation
+tow=x*d/(D*(mew-1))     //thickness of mica sheet(cm)
+
+//Result
+printf("\n thickness of mica sheet is %0.3f  *10**-4 cm",tow*10**4)
diff --git a/3869/CH1/EX1.39/Ex1_39.sce b/3869/CH1/EX1.39/Ex1_39.sce
new file mode 100644
index 000000000..b80dbac81
--- /dev/null
+++ b/3869/CH1/EX1.39/Ex1_39.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=5000*10**-8     //wavelength(cm)
+D=50             //separation between screen and slit(cm)
+d=0.05           //separation between slits(cm)
+
+//Calculation
+beta1=lamda*D/d      //fringe width(cm)
+
+//Result
+printf("\n fringe width is %0.3f  cm",beta1)
diff --git a/3869/CH1/EX1.4/Ex1_4.sce b/3869/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..3bf16c219
--- /dev/null
+++ b/3869/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+I1=10                       //intensity(Wm**-2)
+I2=25                       //intensity(Wm**-2)
+
+//Calculation
+a1bya2=sqrt(I1/I2)     
+ImaxbyImin=(a1bya2+1)**2/(a1bya2-1)**2  //ratio of maximum intensity to minimum intensity
+
+//Result
+printf("\n ratio of maximum intensity to minimum intensity is %0.3f  ",ImaxbyImin)
diff --git a/3869/CH1/EX1.40/Ex1_40.sce b/3869/CH1/EX1.40/Ex1_40.sce
new file mode 100644
index 000000000..03dbdd59d
--- /dev/null
+++ b/3869/CH1/EX1.40/Ex1_40.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D=180             //separation between screen and slit(cm)
+d=0.04            //separation between slits(cm)
+beta1=0.3          //fringe width(cm)
+
+//Calculation
+lamda=(beta1*d*10**4/D)      //wavelength(cm)
+
+
+//Result
+printf("\n wavelength is %0.0f  angstrom",lamda*10**4)
diff --git a/3869/CH1/EX1.41/Ex1_41.sce b/3869/CH1/EX1.41/Ex1_41.sce
new file mode 100644
index 000000000..2617bd703
--- /dev/null
+++ b/3869/CH1/EX1.41/Ex1_41.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D=80             //separation between screen and slit(cm)
+d=0.1            //separation between slits(cm)
+beta1=0.04         //fringe width(cm)
+
+//Calculation
+lamda=beta1*d/D      //wavelength(cm)
+
+//Result
+printf("\n wavelength is %0.0f  angstrom",lamda*10**8)
diff --git a/3869/CH1/EX1.42/Ex1_42.sce b/3869/CH1/EX1.42/Ex1_42.sce
new file mode 100644
index 000000000..b80dbac81
--- /dev/null
+++ b/3869/CH1/EX1.42/Ex1_42.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=5000*10**-8     //wavelength(cm)
+D=50             //separation between screen and slit(cm)
+d=0.05           //separation between slits(cm)
+
+//Calculation
+beta1=lamda*D/d      //fringe width(cm)
+
+//Result
+printf("\n fringe width is %0.3f  cm",beta1)
diff --git a/3869/CH1/EX1.43/Ex1_43.sce b/3869/CH1/EX1.43/Ex1_43.sce
new file mode 100644
index 000000000..4b0fe61ff
--- /dev/null
+++ b/3869/CH1/EX1.43/Ex1_43.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=7*10**-5     //wavelength(cm)
+n=2
+mew=1.33           //refractive index
+
+//Calculation
+t=(((2*n)+1)*lamda/2)/(2*mew)     //thickness of soap film(cm)
+
+//Result
+printf("\n thickness of soap film is %0.4f  *10**-5 cm",t*10**5)
diff --git a/3869/CH1/EX1.45/Ex1_45.sce b/3869/CH1/EX1.45/Ex1_45.sce
new file mode 100644
index 000000000..a925c0b3e
--- /dev/null
+++ b/3869/CH1/EX1.45/Ex1_45.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=5000*10**-8     //wavelength(cm)
+n=16
+mew=1.56     //refractive index
+
+//Calculation
+t=n*lamda/(mew-1)          //thickness(cm)
+
+//Result
+printf("\n thickness is %0.1f  *10**-4 cm",t*10**4)
diff --git a/3869/CH1/EX1.46/Ex1_46.sce b/3869/CH1/EX1.46/Ex1_46.sce
new file mode 100644
index 000000000..e5fc30b16
--- /dev/null
+++ b/3869/CH1/EX1.46/Ex1_46.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=6000*10**-8     //wavelength(cm)
+n=1
+mew=1.5     //refractive index
+r=50*%pi/180    //angle of refraction(radian)
+
+//Calculation
+t=n*lamda/(2*mew*cos(r))          //least thickness of glass plate(cm)
+
+//Result
+printf("\n least thickness of glass plate is %0.2f  *10**-5 cm",t*10**5)
diff --git a/3869/CH1/EX1.47/Ex1_47.sce b/3869/CH1/EX1.47/Ex1_47.sce
new file mode 100644
index 000000000..66f69f4eb
--- /dev/null
+++ b/3869/CH1/EX1.47/Ex1_47.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=5000*10**-8     //wavelength(cm)
+mew=1.5     //refractive index
+beta1=1      //assume
+S=6*beta1
+
+//Calculation
+t=S*lamda/(beta1*(mew-1))          //least thickness of glass plate(cm)
+
+//Result
+printf("\n least thickness of glass plate is %0.0f  *10**-4 cm",t*10**4)
diff --git a/3869/CH1/EX1.48/Ex1_48.sce b/3869/CH1/EX1.48/Ex1_48.sce
new file mode 100644
index 000000000..5ca006e97
--- /dev/null
+++ b/3869/CH1/EX1.48/Ex1_48.sce
@@ -0,0 +1,14 @@
+clear
+//
+//
+//
+
+//Variable declaration
+D8=1.42     //diameter of 8th ring(cm)
+D8dash=1.25     //changed diameter of 8th ring(cm)
+
+//Calculation
+mew=D8**2/D8dash**2     //refractive index of liquid
+
+//Result
+printf("\n refractive index of liquid is %0.2f  ",mew)
diff --git a/3869/CH1/EX1.49/Ex1_49.sce b/3869/CH1/EX1.49/Ex1_49.sce
new file mode 100644
index 000000000..cb6ac8fab
--- /dev/null
+++ b/3869/CH1/EX1.49/Ex1_49.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=6000*10**-8     //wavelength(cm)
+n=1
+mew=1.33     //refractive index
+r=0*%pi/180    //angle of incidence(radian)
+
+//Calculation
+t=n*lamda/(2*mew*cos(r))          //thickness of thinnest film(cm)
+
+//Result
+printf("\n thickness of thinnest film is %0.4f  *10**-5 cm",t*10**5)
+printf("\n answer given in the book is wrong")
diff --git a/3869/CH1/EX1.50/Ex1_50.sce b/3869/CH1/EX1.50/Ex1_50.sce
new file mode 100644
index 000000000..f99ad92c7
--- /dev/null
+++ b/3869/CH1/EX1.50/Ex1_50.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=6000*10**-8     //wavelength(cm)
+Dm=0.65     //diameter of 8th ring(cm)
+Dn=0.35     //changed diameter of 8th ring(cm)
+
+//Calculation
+R=(Dm**2-Dn**2)/(4*lamda)     //radius of curvature of lens(cm)
+
+//Result
+printf("\n radius of curvature of lens is %0.0f  cm",R)
+printf("\n answer given in the book is wrong")
diff --git a/3869/CH1/EX1.52/Ex1_52.sce b/3869/CH1/EX1.52/Ex1_52.sce
new file mode 100644
index 000000000..bb16cbea1
--- /dev/null
+++ b/3869/CH1/EX1.52/Ex1_52.sce
@@ -0,0 +1,21 @@
+clear
+//
+//
+//
+
+//Variable declaration
+m1=15
+n=5
+m2=25
+D15=0.62     //diameter of 15th ring(cm)
+D5=0.3       //diameter of 5th ring(cm)
+
+//Calculation
+x=D15**2-D5**2
+y=m1-n
+z=m2-n
+r=4*z/(4*y)     
+D25=sqrt((r*x)+(D5**2))     //diameter of 25th ring(cm)
+
+//Result
+printf("\n diameter of 25th ring is %0.3f  cm",D25)
diff --git a/3869/CH1/EX1.53/Ex1_53.sce b/3869/CH1/EX1.53/Ex1_53.sce
new file mode 100644
index 000000000..6ed839acd
--- /dev/null
+++ b/3869/CH1/EX1.53/Ex1_53.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=5890*10**-8     //wavelength(cm)
+Dm=0.590     //diameter of 8th ring(cm)
+Dn=0.336     //changed diameter of 8th ring(cm)
+m=15
+n=5
+
+//Calculation
+R=(Dm-Dn)/(4*lamda*(m-n))     //radius of curvature of lens(cm)
+
+//Result
+printf("\n radius of curvature of lens is %0.1f  cm",R)
diff --git a/3869/CH1/EX1.54/Ex1_54.sce b/3869/CH1/EX1.54/Ex1_54.sce
new file mode 100644
index 000000000..373e556a0
--- /dev/null
+++ b/3869/CH1/EX1.54/Ex1_54.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+R=70               //radius of curvature of lens(cm)
+n=10
+Dn=0.433           //diameter of 10th dark ring(cm)
+
+//Calculation
+lamda=Dn**2/(4*R*n)     //wavelength of light(cm)
+
+//Result
+printf("\n wavelength of light is %0.3f  *10**-5 cm",lamda*10**5)
+printf("\n answer given in the book varies due to rounding off errors")
diff --git a/3869/CH1/EX1.6/Ex1_6.sce b/3869/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..427e3cbb6
--- /dev/null
+++ b/3869/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda=500*10**-9      //wavelength(m)
+D=2                   //distance of screen from slits(m)
+l=5*10**-2            //distance(m)
+n=100                 //number of fringes
+
+//Calculation
+beta1=l/n
+d=lamda*D/beta1         //distance between slits(m)
+
+//Result
+printf("\n distance between slits is %0.0f  mm",d*10**3)
diff --git a/3869/CH1/EX1.7/Ex1_7.sce b/3869/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..12e98edfa
--- /dev/null
+++ b/3869/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+d=0.2*10**-3          //distance between slits(m)
+lamda=550*10**-9      //wavelength(m)
+D=1                   //distance of screen from slits(m)
+
+//Calculation
+beta1=lamda*D/d       //fringe width(m)
+
+//Result
+printf("\n fringe width is %0.3f  mm",beta1*10**3)
diff --git a/3869/CH1/EX1.8/Ex1_8.sce b/3869/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..99e20a38a
--- /dev/null
+++ b/3869/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,22 @@
+clear
+//
+//
+//
+
+//Variable declaration
+n=10           
+lamda=5460*10**-10         //wavelength(m)
+d=0.1*10**-3               //distance between slits(m)
+D=2                        //distance of screen from slits(m)
+
+//Calculation
+x10=n*lamda*D/d                 //distance from centre where 10th maximum is obtained(m)
+tantheta1=x10/2                 //angular position of 10th maximum(radian)
+tantheta1=tantheta1*180/%pi  //angular position of 10th maximum(degrees)
+x1=lamda*D/(2*d)                //distance from centre where 1st maximum is obtained(m)
+tantheta2=x1/2                  //angular position of 1st maximum(radian)
+tantheta2=tantheta2*180/%pi  //angular position of 1st maximum(degrees)
+
+//Result
+printf("\n angular position of 10th maximum is %0.2f  degrees",tantheta1)
+printf("\n angular position of 1st maximum is %0.3f  degrees",tantheta2)
diff --git a/3869/CH1/EX1.9/Ex1_9.sce b/3869/CH1/EX1.9/Ex1_9.sce
new file mode 100644
index 000000000..fce22d923
--- /dev/null
+++ b/3869/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,18 @@
+clear
+//
+//
+//
+
+//Variable declaration
+lamda1=650*10**-9       //wavelength(m)
+lamda2=500*10**-9       //wavelength(m)
+n1=10
+n2=13
+D=1                     //distance(m)
+d=0.5*10**-3            //seperation(m)
+
+//Calculation
+x=n1*lamda1*D/d         //least distance of the point from central maximum(m)
+
+//Result
+printf("\n least distance of the point from central maximum is %0.0f  mm",x*10**3)