6 files changed, 51 insertions, 0 deletions
diff --git a/3822/CH7/EX7.1/Ex7_1.jpg b/3822/CH7/EX7.1/Ex7_1.jpg
new file mode 100644
index 000000000..3383bb57b
--- /dev/null
+++ b/3822/CH7/EX7.1/Ex7_1.jpg
diff --git a/3822/CH7/EX7.1/Ex7_1.sce b/3822/CH7/EX7.1/Ex7_1.sce
new file mode 100644
index 000000000..2e2552ac5
--- /dev/null
+++ b/3822/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,16 @@
+
+//Optoelectronics and Fiber Optics Communication by C.R. Sarkar and D.C. Sarkar
+//Example 7.1
+//OS = Windows 7
+//Scilab version 5.5.2
+
+clc;
+clear;
+
+//given
+theta=30;//value of angle of deliverence in degrees
+b=cosd(theta);// cosine value of the theta
+a=log10(b);//constant
+c=log10(1/2);//constant
+n=c/a;//  refractive index
+mprintf("The value of refractive index is= %.2f",n);//the answer vary due to rounding
diff --git a/3822/CH7/EX7.2/Ex7_2.jpg b/3822/CH7/EX7.2/Ex7_2.jpg
new file mode 100644
index 000000000..e05bb1c4e
--- /dev/null
+++ b/3822/CH7/EX7.2/Ex7_2.jpg
diff --git a/3822/CH7/EX7.2/Ex7_2.sce b/3822/CH7/EX7.2/Ex7_2.sce
new file mode 100644
index 000000000..24cc9f87c
--- /dev/null
+++ b/3822/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,16 @@
+
+//Optoelectronics and Fiber Optics Communication by C.R. Sarkar and D.C. Sarkar
+//Example 7.2
+//OS = Windows 7
+//Scilab version 5.5.2
+
+clc;
+clear;
+
+//given
+theta=10;// value of theta in degrees
+phi=0;// value of phi in degrees
+a=log10(1/2);// value of constant
+c=log10(cosd(theta));// constant
+L=a/c;// lateral power distribution
+mprintf(" The Lateral Power Distribution is= %.2f",L);//the answer vary due to rounding
diff --git a/3822/CH7/EX7.3/Ex7_3.jpg b/3822/CH7/EX7.3/Ex7_3.jpg
new file mode 100644
index 000000000..fa41493a4
--- /dev/null
+++ b/3822/CH7/EX7.3/Ex7_3.jpg
diff --git a/3822/CH7/EX7.3/Ex7_3.sce b/3822/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..3a93ff6ba
--- /dev/null
+++ b/3822/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,19 @@
+
+//Optoelectronics and Fiber Optics Communication by C.R. Sarkar and D.C. Sarkar
+//Example 7.3
+//OS = Windows 7
+//Scilab version 5.5.2
+
+clc;
+clear;
+
+//given
+Df=80*10^-6;// diameter of the fiber in m
+Ds=45*10^-6;// diameter of the source in m
+NA=0.15;// numerical aperture of the fiber
+Mmax=(Df/Ds);// maximum magnification
+eta_d=((NA)^2)*100;// coupling efficiency considering direct coupling
+eta_l=((Mmax)*(NA^2))*100;// coupling efficiency considering lens coupling
+mprintf("\nThe Maximum Magnification factor is= %.2f",Mmax);
+mprintf("\nThe coupling efficiency considering direct coupling is= %.2fpercent",eta_d);
+mprintf("\nThe coupling efficiency considering lens coupling is= %.3fpercent",eta_l);//the answer vary due to rounding