6 files changed, 102 insertions, 0 deletions
diff --git a/3710/CH3/EX3.1/Ex3_1.sce b/3710/CH3/EX3.1/Ex3_1.sce
new file mode 100644
index 000000000..e7ffec9f6
--- /dev/null
+++ b/3710/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,12 @@
+//Example 3.1, Page Number 97
+//Change in Refraction Index due to Pockels effect
+clc;
+
+//Variable Initialization
+l=10*(10**-3) //Width of Crystal in milli meter
+V=4000 //Applied Voltage in volts
+r=26.4*(10**-12)//linear electro optic coefficient in pm per volt
+no=1.51**3//Value for KD*P taken from table 3.1
+//Using data in Table 3.1(Page No 100)
+dn=0.5*lc*(no)*(V/(10**-2)) //dn is the change in refraction index
+mprintf("The Change in Refraction Index due to Pockels effect is %0.1e",dn);
diff --git a/3710/CH3/EX3.2/Ex3_2.sce b/3710/CH3/EX3.2/Ex3_2.sce
new file mode 100644
index 000000000..cadd14fcf
--- /dev/null
+++ b/3710/CH3/EX3.2/Ex3_2.sce
@@ -0,0 +1,14 @@
+//Example 3.2, Page Number 101
+//Half Wave Voltage
+clc;
+
+//Variable Initialization
+l=1.06*(10**-6) //Wavelength in meter
+no=1.51//Value for KDP taken from table 3.1
+r=10.6*(10**-12)//Linear Electro Optic Coefficient in pm per volt for KDP taken from table 3.1
+
+//Using Data from table 3.1 on page no. 100
+V=l/(2*r*(no**3)) //V is the Half Wave Voltage
+
+mprintf("\n");
+disp(V,"The Half Wave Voltage for KDP in V:");
diff --git a/3710/CH3/EX3.3/Ex3_3.sce b/3710/CH3/EX3.3/Ex3_3.sce
new file mode 100644
index 000000000..42d128829
--- /dev/null
+++ b/3710/CH3/EX3.3/Ex3_3.sce
@@ -0,0 +1,23 @@
+//Example 3.3, Page Number 105
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+//Power Requirements for Modulation
+clc;
+
+//Given Values
+bw=10**9 //Frequency Bandwidth in Hertz
+d=25/2*(10**-3) //Diameter of Circular Aperture in meter
+l=30*(10**-3) //Length in meters
+wl=633*(10**-9) //Wavelength in meters
+k=8.85*(10**-12) //Permittivty of free space
+pr=%pi/30//Phase Retardation/Phase difference at freq bandwidth of (10**9) HZ 
+
+//The following values have been taken from Table 3.1 on page no. 100
+ur=50//Relative permeability for KD*P
+r=26.4*(10**-12)//Linear Electro Optic Coefficient for KD*P in pm per volt
+no=1.51//value for KD*P
+
+P=((((wl**2)*%pi*((d)**2)*bw*k*ur)/(4*%pi*((r)**2)*(no**6)*l))*(pr**2)) //P is the power requirements in W
+P=fpround(P,1)
+
+mprintf("\n");
+mprintf("The Power Requirements for Modulation using a Pockels cell is %.1f W",P);
diff --git a/3710/CH3/EX3.4/Ex3_4.sce b/3710/CH3/EX3.4/Ex3_4.sce
new file mode 100644
index 000000000..1a3d30bef
--- /dev/null
+++ b/3710/CH3/EX3.4/Ex3_4.sce
@@ -0,0 +1,28 @@
+//Example 3.4, Page Number 118
+//Acousto-optic modulator
+clc;
+l=633*(10**-9) //Wavelength in meter
+bw=5.0*(10**6) //Bandwidth in hertz
+L=50*(10**-3) //Modulation length in milli meter
+de=0.7 //Diffraction Efficiency
+al=4.3*(10**-5) //Acoustic Wavelength in meter
+av=3500.0 //Acoustic velocity in meter per second
+
+theta=asin(l/(2*al)) //theta is the angle of diffraction
+theta1=theta *(180 /%pi) //Converting it into degrees 
+
+phi=2*(asin(sqrt(de))) //phi is the internal braggs angle
+phi1=phi *(180/%pi) //Converting it into degrees 
+
+ca=cos(theta1)
+
+dn=(phi*l*ca)/(3.14*2*L) //dn is the maximum change in refraction index
+
+B=av/bw
+B=B*(10**3)
+mprintf("The Angle of Diffraction is  %.2f Degree\n",theta1)
+mprintf(" The Internal Braggs Angle is  %.1f Degree\n",phi1)
+mprintf(" The Maximum Change in Refraction index is %.2e\n",dn)//The Answer for Maximum Change in Refraction index is miscalculated in the book
+mprintf(" The Maximum Optical Beam Width is  %.1f mm\n",B)
+
+
diff --git a/3710/CH3/EX3.5/Ex3_5.sce b/3710/CH3/EX3.5/Ex3_5.sce
new file mode 100644
index 000000000..e202a6373
--- /dev/null
+++ b/3710/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,15 @@
+//Example 3.5, Page Number 123
+//Phase Matching Angle
+clc;
+
+//The following values have been taken from the table on page no 123
+no1=1.4943//no for l=1.06
+no2=1.5132//no for l=0.53
+nc=1.4712//nc for l=0.53
+t2=((no1**-2)-(no2**-2))/((nc**-2)-(no2**-2))
+theta=asin(t2)
+
+//Converting it into degrees
+degrees=theta * (180/%pi)  //theta is the phase matching angle
+
+mprintf("The Phase matching angle is %d degrees",degrees);
diff --git a/3710/CH3/EX3.6/Ex3_6.sce b/3710/CH3/EX3.6/Ex3_6.sce
new file mode 100644
index 000000000..653f5a06f
--- /dev/null
+++ b/3710/CH3/EX3.6/Ex3_6.sce
@@ -0,0 +1,10 @@
+//Example 3.6, Page Number 124
+//Coherence Length
+clc;
+nw=1.5019 //Refraction index at 0.8 micrometer
+n2w=1.4802 //Refraction index at 0.4 micrometer
+l=0.8*(10**-6) //Vaccum Wavelength at the fundamental frequency in m
+
+lc=l/(4*(nw-n2w)) //lc is the coherence length in meters
+
+mprintf("The Coherence Length is %.2e m",lc);