8 files changed, 84 insertions, 0 deletions
diff --git a/3547/CH1/EX1.6/1_6.jpg b/3547/CH1/EX1.6/1_6.jpg
new file mode 100644
index 000000000..0b353c79d
--- /dev/null
+++ b/3547/CH1/EX1.6/1_6.jpg
diff --git a/3547/CH1/EX1.6/Ex1_6.sce b/3547/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..e47d23cb0
--- /dev/null
+++ b/3547/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,14 @@
+// Example 1.6
+// To find refractive index of of the glass
+// Page no.25
+
+clc;
+clear;
+
+// Given data
+phi=0.7297;                          // Critical angle for glass-air interface
+n2=1;                                // Refractive index of air
+n1=n2/sin(phi);                      // Refractive index of glass
+
+// Displaying the result in command window
+printf('\n Refractive index of the glass = %0.1f',n1);
diff --git a/3547/CH1/EX1.7/1_7.jpg b/3547/CH1/EX1.7/1_7.jpg
new file mode 100644
index 000000000..860418859
--- /dev/null
+++ b/3547/CH1/EX1.7/1_7.jpg
diff --git a/3547/CH1/EX1.7/Ex1_7.sce b/3547/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..07a8fb091
--- /dev/null
+++ b/3547/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,27 @@
+//Example no 1.7
+//To calculate a)the speed of light b) The wavelenght in medium c) The wavenumber in medium
+//Page no. 25
+
+clc;
+clear all;
+
+//a)The speed of light
+c=3*10^8;                               //Speed of light in free space (m/s)
+n=1.45;                                 //Given refractive index of dielectric medium
+v=(c/n);                               //Speed of light in medium (in m/s)
+
+//Displaying the result in command window
+printf('\n Speed of light in medium = %0.3f X 10^8 m/s',v*10^-8);
+
+//b) The wavelenght in medium 
+f=190*10^12;                           //Given operating frequency of laser
+lambdam=(v/f);                         //Wavelenght in medium 
+
+//Displaying the result in command window
+printf('\n Wavelenght of laser in medium = %0.4f micrometer',lambdam*10^(6));
+
+//c) The wavenumber in medium
+k=(2*%pi)/lambdam;                    //Wavenumber in medium
+
+//Displaying the result in command window
+printf('\n Wavenumber in medium = %0.2f X 10^6 m^-1',k*10^-6)
diff --git a/3547/CH1/EX1.8/1_8.jpg b/3547/CH1/EX1.8/1_8.jpg
new file mode 100644
index 000000000..bfb27a8f2
--- /dev/null
+++ b/3547/CH1/EX1.8/1_8.jpg
diff --git a/3547/CH1/EX1.8/Ex1_8.sce b/3547/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..a5cfd9d61
--- /dev/null
+++ b/3547/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,28 @@
+// Example no. 1.8
+// To calculate a)magnitude of the wave vector of the refracted wave b)x-component and z-component of the wave vector
+// Page no.26
+
+clc;
+clear;
+
+//Given data
+n1=1;                                               // Refractive index of air
+n2=1.45;                                            // Refractive index of slap
+theta1=%pi/3;                                       // Angle of incidence
+lambdam=1.0889*10^(-6);                             // Wavelength in medium
+theta2=asin(sin(theta1)/n2);                        // Angle of refraction
+
+// a)To calculate magnitude of the wave vector of the refracted wave
+k=((2*%pi)/lambdam);                               // Wavenumber
+
+// Displaying the result in command window
+printf('\n Magnitude of the wave vector of the refracted wave is same as wave number = %0.2f X 10^6 m^-1',k*10^(-6));
+
+// b)To calculate x-component and z-component of the wave vector
+kx=k*sin(theta2);                                   // x-component of the wave vector
+kz=k*cos(theta2);                                   // z-component of the wave vector
+
+// Displaying the result in command window
+printf('\n z-component of the wave vector = %0.2f X 10^6 m^-1',kz*10^(-6));
+printf('\n x-component of the wave vector = %0.2f X 10^6 m^-1',kx*10^(-6));
+// The answer is varrying due to round-off error 
diff --git a/3547/CH1/EX1.9/1_9.jpg b/3547/CH1/EX1.9/1_9.jpg
new file mode 100644
index 000000000..378fba543
--- /dev/null
+++ b/3547/CH1/EX1.9/1_9.jpg
diff --git a/3547/CH1/EX1.9/Ex1_9.sce b/3547/CH1/EX1.9/Ex1_9.sce
new file mode 100644
index 000000000..313c522c2
--- /dev/null
+++ b/3547/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,15 @@
+//To find length of the medium
+//Example no 1.9
+//Page no. 30
+
+clc;
+clear all;
+bandwidth=100*10^9;                            //Bandwidth of optical signal
+w=2*%pi*bandwidth;                             //Bandwidth of optical signal in rad/s
+T=3.14*10^(-12);                               //Delay between minimum and maximum frequency component
+beta2=10*(10^(-12))^2/10^3;                             //Group velocity dispersion parameter in s^2/km
+L=T/(beta2*w);                                 //Length of the medium
+
+// Displaying the result in command window
+printf('\n Length of the medium = %0.0f m',L);
+