6 files changed, 80 insertions, 0 deletions
diff --git a/3710/CH1/EX1.1/Ex1_1.sce b/3710/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..f01c0c8ad
--- /dev/null
+++ b/3710/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,13 @@
+//Example 1.1, Page Number 10
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+//Brewster Angle Calculation
+clc;
+
+n2=1.5 //Refractive Index of Glass in Air
+n1=1   //Refractive Index of Air
+
+theta=0 //Brewster's Angle in Degrees
+
+theta=(atand(1.5))//(Brewster's angle= Tan Inverse (n2/n1))
+theta=fpround(theta,2)
+disp(theta,"The Brewsters Angle for the Material in Degrees:");
diff --git a/3710/CH1/EX1.2/Ex1_2.sce b/3710/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..14005f56f
--- /dev/null
+++ b/3710/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,10 @@
+//Example 1.2, Page Number 13
+
+clc;
+n=4 //Total Number of Sources
+
+//For Coherent Sources
+mprintf("\tIn Coherant Sources The Maximum Irradiance is %dI\n",n*n);  //Where I is the Irradiance at any point
+
+//For Incoherent Sources
+mprintf("\tIn Incoherent Sources The Maximum Irradiance is %dI",n);   
diff --git a/3710/CH1/EX1.3/Ex1_3.sce b/3710/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..5b4f11fc9
--- /dev/null
+++ b/3710/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,16 @@
+//Example 1.3, Page Number 22
+
+clc;
+D=0.1 //Diameter of the Objective Lens
+d1=500 //Distance from the source
+l =550*(10**-9) //Wavelength
+p=1 //First Order
+N=40*600 //The diffraction grating is 40 mm wide and has 600 lines/mm
+
+Smin=(d1*l)/D  //Smin is the minimum separation of the Sources
+Smin=Smin*(10**3)
+mprintf("\t(A)The Minimum Seperation Between the Sources is %.2f mm\n",Smin);
+
+dl=l/(N*p)//l/dl=p*N
+dl=dl*(10**9)
+mprintf("\t(B)The Minimum Wavelength Difference which may be resolved is %.3f nm",dl)
diff --git a/3710/CH1/EX1.4/Ex1_4.sce b/3710/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..8abd5be0c
--- /dev/null
+++ b/3710/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,13 @@
+//Example 1.4, Page Number 29
+//Total Power Calculation
+
+clc;
+
+em=0.7 //Emissivity Of the Surface
+T=2000 //Temperature in Kelvin
+A=(10**-5) //Area in Meter Square
+S=5.67*(10**-8) //Stefan-Boltzmann Constant in Watt per meter square Kelvin power four
+
+W=em*S*A*(T**4) //W is the total power radiated in Watt
+
+mprintf("The Total Power Radiated from the Source is %.2f W",W);
diff --git a/3710/CH1/EX1.5/Ex1_5.sce b/3710/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..e557eb126
--- /dev/null
+++ b/3710/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,15 @@
+//Example 1.5, Page Number 31
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+clc;
+
+Z=1 //Atomic Number of Hydrogen
+m=9.1*(10**-31) //Mass of an Electron
+e=1.6*(10**-19) //Charge Of an Electron
+p=6.6*(10**-34) //Planck's Constant
+e1=8.85*(10**-12)//Permitivity of Free Space
+
+E=(m*(Z**2)*(e**4))/(8*(p**2)*(e1**2)) //E is the Ionization Energy
+E2=E/e //Conversion to Electron Volts
+E2=fpround(E2,2)
+
+mprintf("The Ionization Energy required to excite the electron from ground state to infinity:%.2f eV",E2);
diff --git a/3710/CH1/EX1.6/Ex1_6.sce b/3710/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..270c6b9e6
--- /dev/null
+++ b/3710/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,13 @@
+//Example 1.6, Page Number 32
+//Phi Determination
+ 
+clc;
+e=1.6*(10**-19) //Charge Of an Electron in Coulombs
+h=6.6*(10**-34) //Plancks Constant in meter square kilogram per second
+vo=1.1*(10**15) //Threshold Frequency in Hertz
+
+// h*vo=phi*e ,phi is the required Work Function,vo is the threshold frequency
+// Lets assume that the ejected electron has zero kinetic energy
+
+phi=h*vo/e
+mprintf("The Required Work function is %.1f eV",phi);