8 files changed, 71 insertions, 0 deletions
diff --git a/3557/CH16/EX16.1/Ex16_1.sce b/3557/CH16/EX16.1/Ex16_1.sce
new file mode 100644
index 000000000..da69e6e95
--- /dev/null
+++ b/3557/CH16/EX16.1/Ex16_1.sce
@@ -0,0 +1,8 @@
+//Example 16.1//
+
+l=400*10^-9;//m //meter //wavelength
+h=(0.6626*10^-33);//J s //Joule-second //Plank's constant
+a=0.2998*10^9;//m/s //speed of light
+c=(6.242*10^18);//eV/J //1 Coulomb of charge
+E=((h*a)/l)*c
+mprintf("E = %f eV",E)
diff --git a/3557/CH16/EX16.2/Ex16_2.sce b/3557/CH16/EX16.2/Ex16_2.sce
new file mode 100644
index 000000000..00ccfd7bb
--- /dev/null
+++ b/3557/CH16/EX16.2/Ex16_2.sce
@@ -0,0 +1,7 @@
+//Example 16.2 //
+
+n=1.458;//Average refractive index of silica glass (SiO2)
+thethac=asind(1/n)
+mprintf("thethac = %f degree",thethac)
+
+
diff --git a/3557/CH16/EX16.3/Ex16_3.sce b/3557/CH16/EX16.3/Ex16_3.sce
new file mode 100644
index 000000000..52406efbc
--- /dev/null
+++ b/3557/CH16/EX16.3/Ex16_3.sce
@@ -0,0 +1,5 @@
+//Example 16.3//
+
+n=1.59;// Average refractive index Polystyrene
+R=((n-1)/(n+1))^2;//Fresnel's formula
+disp(R)
diff --git a/3557/CH16/EX16.4/Ex16_4.sce b/3557/CH16/EX16.4/Ex16_4.sce
new file mode 100644
index 000000000..1715c7254
--- /dev/null
+++ b/3557/CH16/EX16.4/Ex16_4.sce
@@ -0,0 +1,12 @@
+//Example 16.4//
+
+n=1.458;//Average refractive index Silica Glass (SiO2)
+Rs=(((n-1)/(n+1))^2)//Fresnel's formula
+mprintf("Rs = %f ",Rs)
+mprintf("(Instead of equal to sign it is given addition  sign in the texbook)")
+//For PbO
+n1=2.60;//refractive index of PbO
+Rp=((n1-1)/(n1+1))^2//Fresnel's formula
+mprintf("\nRp = %f",Rp)
+R=Rp/Rs
+mprintf("\nR = %f",R)
diff --git a/3557/CH16/EX16.5/Ex16_5.sce b/3557/CH16/EX16.5/Ex16_5.sce
new file mode 100644
index 000000000..5191eb9ce
--- /dev/null
+++ b/3557/CH16/EX16.5/Ex16_5.sce
@@ -0,0 +1,15 @@
+//Example 16.5//
+h=(0.663*10^-33);//J s //Joule-second//Plank's constant
+c=(3.00*10^8);//m/s //meter per second //speed of light
+l=400*10^-9;//nm// wavelength
+a=6.242*10^18;//eV/J //1 Coulomb of charge
+dEb=(h*c)/l     
+mprintf("dEb = %e V",dEb)
+dEb1=dEb*a
+mprintf("\ndEb1 = %f eV  (Answer calculated in the textbook is wrong)",dEb1) 
+l1=700*10^-9;//nm //wavelength
+dEr=(h*c)/l1
+mprintf("\ndEr %e eV",dEr)
+dEr1=dEr*a
+mprintf("\ndEr1= %f eV",dEr1)
+mprintf("\ndelE range: 2.84*10^-19 to 4.97*10^-19J (=1.77 to 4.88 eV)")
diff --git a/3557/CH16/EX16.6/Ex16_6.sce b/3557/CH16/EX16.6/Ex16_6.sce
new file mode 100644
index 000000000..8856a80b2
--- /dev/null
+++ b/3557/CH16/EX16.6/Ex16_6.sce
@@ -0,0 +1,9 @@
+//Example 16.6//
+
+h=0.663*10^-33;//J s //Planck's constant
+c=0.300*10^9;//m/s //speed of light
+Eg=1.47;//eV // energy gap for GaAs
+a=6.242*10^18;//eV/J //1 Coulomb of charge
+l=(h*c/Eg)*a
+mprintf("l = %e m",l)
+mprintf(" = 844nm (As 1nano = 10^-9)")
diff --git a/3557/CH16/EX16.7/Ex16_7.sce b/3557/CH16/EX16.7/Ex16_7.sce
new file mode 100644
index 000000000..7021fe147
--- /dev/null
+++ b/3557/CH16/EX16.7/Ex16_7.sce
@@ -0,0 +1,7 @@
+//Example 16.7//
+
+ncladding=1.460;//index of refraction for cladding
+ncore=1.470;// index of refraction for glass-fiber core
+thethac=asind(ncladding/ncore)
+mprintf("The value of ncore taken while calculating is ncore=1.479 but in the question the value of ncore is given n=1.470")
+mprintf("\nthethac = %f degree ",thethac)
diff --git a/3557/CH16/EX16.8/Ex16_8.sce b/3557/CH16/EX16.8/Ex16_8.sce
new file mode 100644
index 000000000..ef1fc4d26
--- /dev/null
+++ b/3557/CH16/EX16.8/Ex16_8.sce
@@ -0,0 +1,8 @@
+//Example 16.8//
+h=0.663*10^-33;//J s //Planck's constant
+c=3.00*10^9;//m/s //speed of light
+Eg=2.59;//eV //energy gap for CdS
+a=(6.242*10^18);//eV/J //1 Coulomb of charge
+l=((h*c)/Eg)*a
+mprintf("l = %e m",l)
+mprintf(" = 479nm  (As 1 nano = 10^-9)")