initial commit / add all books

7 files changed, 103 insertions, 0 deletions

diff --git a/3828/CH3/EX3.1/Ex3_1.sce b/3828/CH3/EX3.1/Ex3_1.sce
new file mode 100644
index 000000000..1e32738c8
--- /dev/null
+++ b/3828/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,12 @@
+//Chapter 3 : Polarization
+
+clear;
+
+//Variable declaration
+theta=(60*%pi/180)                //angle in radians
+
+//Calculations
+Intensityred=100-(1-cos(theta)**2)*100
+
+//Result
+mprintf("Percentage of light that passes through = %d percent",Intensityred)
diff --git a/3828/CH3/EX3.2/Ex3_2.sce b/3828/CH3/EX3.2/Ex3_2.sce
new file mode 100644
index 000000000..970fcd659
--- /dev/null
+++ b/3828/CH3/EX3.2/Ex3_2.sce
@@ -0,0 +1,16 @@
+
+//Chapter 3 : Polarization
+
+clear;
+
+//Variable declaration
+lamda=6000              //wavelength in Armstrong
+
+//Calculations
+Ie=3/4
+Io=1/4
+Ratio=Ie/Io
+
+//Result
+mprintf("Ratio of the two intensities Ie:Io is %d or = 3:1",Ratio)
+
diff --git a/3828/CH3/EX3.3/Ex3_3.sce b/3828/CH3/EX3.3/Ex3_3.sce
new file mode 100644
index 000000000..026cbe91a
--- /dev/null
+++ b/3828/CH3/EX3.3/Ex3_3.sce
@@ -0,0 +1,16 @@
+//Chapter 3 : Polarization
+
+clear;
+
+//Variable declaration
+myu=1.55                //refractive index of glass
+
+//Calculations
+theta_p=(atan(myu))*180/%pi
+theta_r=(asin(sin((theta_p*%pi/180))/1.55))*180/%pi
+Total=theta_p+theta_r
+
+//Result
+mprintf("Angle of polarization= %f degrees",theta_p)
+mprintf("\nAngle between reflected and refracted ray= %d degrees",Total)
+
diff --git a/3828/CH3/EX3.4/Ex3_4.sce b/3828/CH3/EX3.4/Ex3_4.sce
new file mode 100644
index 000000000..ae1564404
--- /dev/null
+++ b/3828/CH3/EX3.4/Ex3_4.sce
@@ -0,0 +1,15 @@
+//Chapter 3 : Polarization
+
+clear;
+
+//Variable declaration
+lamda=6000*10**-8       //wavelength
+no=1.544                //refractive index of O-ray
+ne=1.553                //refractive index of E-ray
+
+//Calculations
+t=lamda/(4*(ne-no))/10**-3
+
+//Result
+mprintf("Thickness of a quarterwave plate= %.2f*10**-5 m",t)
+
diff --git a/3828/CH3/EX3.5/Ex3_5.sce b/3828/CH3/EX3.5/Ex3_5.sce
new file mode 100644
index 000000000..12075e8f9
--- /dev/null
+++ b/3828/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,15 @@
+//Chapter 3 : Polarization
+
+clear;
+
+//Variable declaration
+lamda=6000*10**-8       //wavelength
+no=1.54                //refractive index of O-ray
+ne=1.55                //refractive index of E-ray
+
+//Calculations
+t=lamda/(6*(ne-no))
+
+//Result
+mprintf("Thickness of a quarterwave plate= %f",t)
+
diff --git a/3828/CH3/EX3.6/Ex3_6.sce b/3828/CH3/EX3.6/Ex3_6.sce
new file mode 100644
index 000000000..9a875c93b
--- /dev/null
+++ b/3828/CH3/EX3.6/Ex3_6.sce
@@ -0,0 +1,15 @@
+//Chapter 3 : Polarization
+
+clear;
+
+//Variable declaration
+lamda=6000*10**-8       //wavelength
+no=1.54                 //refractive index of O-ray
+ne=1.55                 //refractive index of E-ray
+
+//Calculations
+t=lamda/(2*(ne-no))
+
+//Result
+mprintf("Thickness of a quarterwave plate= %f cm",t)
+
diff --git a/3828/CH3/EX3.7/Ex3_7.sce b/3828/CH3/EX3.7/Ex3_7.sce
new file mode 100644
index 000000000..0a855ba04
--- /dev/null
+++ b/3828/CH3/EX3.7/Ex3_7.sce
@@ -0,0 +1,14 @@
+//Chapter 3 : Polarization
+
+clear;
+
+//Variable declaration
+l=2                    //length of the tube
+s=60                   //specific rotation
+theta=12               //angle of rotation of plane vibration
+
+//Calculations
+C=theta/(l*s)*100
+
+//Result
+mprintf("The solution is of %d percent",C)