9 files changed, 124 insertions, 0 deletions
diff --git a/374/CH3/EX3.0/3.sci b/374/CH3/EX3.0/3.sci
new file mode 100644
index 000000000..15d08d742
--- /dev/null
+++ b/374/CH3/EX3.0/3.sci
@@ -0,0 +1,11 @@
+//chapter 3 example//
+clc
+clear
+//spectrum width=W,laser source emits ligth at=D,bandwidth distance product=fZ,speed of light=C//
+W=0.003//in micro meters//
+D=0.85//in micro meters//
+x=W/D;
+Ym=0.021//obtained from graph//
+C=3*(10^8);//in mts per second//
+fZ=C/(4*x*Ym)*(10^-12);
+printf("\n bandwidth distance product=%f GHz Km \n",fZ);
+\ No newline at end of file
diff --git a/374/CH3/EX3.1/31.sci b/374/CH3/EX3.1/31.sci
new file mode 100644
index 000000000..bc8bab50b
--- /dev/null
+++ b/374/CH3/EX3.1/31.sci
@@ -0,0 +1,18 @@
+//chapter 3 example 1//
+//length of fibre=l,average optical power=Pin,average output power=Pout,signal attenuation per km=A//
+clc
+clear
+Pin=100*(10^-6);//in watts//
+Pout=2.5*(10^-6);//in watts//
+l=10//in kilometers//
+A=(10*(log10(Pin/Pout)))/l;//per km//
+printf("\n a) signal attenuation per km=%f per km.\n",A);
+//sigmal attenuaion in db=Adb,total attenuation for 11kms=A1,attenuation for 3 splice each with 0.8db=A2,overall attenuation in the link=Anet,ratio between input and output power=x//
+Adb=(A*10);
+printf("\n b) signal attenuation in decibels=%f db.\n",Adb);
+A1=(A*11);
+A2=2.4;
+Anet=A1+A2;
+printf("\n c) overall signal attenuation in decibels=%f db.\n",Anet);
+x=(10^(Anet/10));
+printf("\n d) ratio between input and output power=%f\n",x);
+\ No newline at end of file
diff --git a/374/CH3/EX3.2/32.sci b/374/CH3/EX3.2/32.sci
new file mode 100644
index 000000000..934b38cc8
--- /dev/null
+++ b/374/CH3/EX3.2/32.sci
@@ -0,0 +1,15 @@
+//chapter 3 example 2//
+//temperature of silica glass=T,isothermal compressebility=Bc,refractive index of silica=n1,photoelastic coeffcient of silica=P,boltzmann constant=Kb,optical wavelength=l,rayleigh scattering coeffcient=Tr,attenuation in km=Akm,attenuation in db=Adb//
+clc
+clear
+n1=1.46;
+P=0.286;
+Bc=7*(10^-11);//in meter sqr per newton//
+l=(10^-6)// in meters//
+T=1400//in kelvin//
+Kb=1.38*(10^-23)//in joules per kelvin//
+Tr=((8*(%pi^3))*(n1^8)*(P^2)*Bc*Kb*T)/(3*(l^4));
+printf("\n rayleigh scattering constant=%f per metre.\n",Tr);
+Akm=exp(-1*Tr*(10^3));
+Adb=10*(log10(1/Akm));
+printf("\n attenuation in db=%f db per Km.\n",Adb);
diff --git a/374/CH3/EX3.3/33.sci b/374/CH3/EX3.3/33.sci
new file mode 100644
index 000000000..05ad22d0e
--- /dev/null
+++ b/374/CH3/EX3.3/33.sci
@@ -0,0 +1,16 @@
+//chapter 3 example 3//
+clc
+clear
+//core refractive index=n1,cladding refractive index=n2,refractive index of air=na,numerical aperture=NA,acceptance angle=A,multiple time dispersion=M,relative refractive index difference=d,speed of light=C//
+n1=1.55;
+n2=1.51;
+d=n1-n2;
+n=(n1+n2)/2;
+NA=sqrt(2*d*n);
+printf("\n 1) numerical aperture=%f.\n",NA);
+A=asind(NA);
+printf("\n 2) acceptance angle=%f.\n",A);
+C=(3*(10^8));//in mts per sec//
+M=((n1*d)/(n2*C))*(10^12);
+printf("\n 3) multiple time dispersion=%f ns/km \n",M);
+
diff --git a/374/CH3/EX3.4.b/34b.sci b/374/CH3/EX3.4.b/34b.sci
new file mode 100644
index 000000000..41816bdcc
--- /dev/null
+++ b/374/CH3/EX3.4.b/34b.sci
@@ -0,0 +1,10 @@
+//chapter 3 example 4 b//
+clc
+clear
+//core refractive index=n1,relative refractive index difference=d,operating wavelength=l,critical radius of curvature=Rc,cladding refractive index=n2//
+d=0.03;
+n1=1.500;
+n2=sqrt((n1^2)-(2*d*(n1^2)));
+l=0.8*(10^-6);
+Rc=((3*(n1^2)*l)/(4*%pi*((n1^2)-(n2^2))^1.5))*(10^6);//critical radius of curvature//
+printf("\n critical radius of curvature=%f*(10^-6).\n",Rc);
+\ No newline at end of file
diff --git a/374/CH3/EX3.4/34.sci b/374/CH3/EX3.4/34.sci
new file mode 100644
index 000000000..1852ad81c
--- /dev/null
+++ b/374/CH3/EX3.4/34.sci
@@ -0,0 +1,16 @@
+//chapter 3 example 4//
+clc
+clear
+//core radius of monomode fibre=a,core refractive index=n1,refractive index difference between core and cladding=d,operating wavelength=l,critical radius of curvature=Rc,cutoff wavelength=Lc//
+a=4*(10^-6);//in mts//
+n1=1.500;
+d=0.003;
+l=1.55*(10^-6);//in mts//
+Lc=(((2*%pi*a*n1)*(sqrt(2*d)))/2.405)*(10^6);//cutoff wavelength//
+printf("\n cutoff wavelength=%f*(10^-6)m.\n",Lc);
+lc1=Lc*(10^-6);
+h=(2.748-(0.996*(l/lc1)));
+k=h^-3;
+v=(20*l)/(d^1.5);
+Rc=k*v;
+printf("\n critical radius=%f .\n",k);
+\ No newline at end of file
diff --git a/374/CH3/EX3.5/35.sci b/374/CH3/EX3.5/35.sci
new file mode 100644
index 000000000..99c81cf8d
--- /dev/null
+++ b/374/CH3/EX3.5/35.sci
@@ -0,0 +1,12 @@
+//chapter 3 example 5//
+clc
+clear
+//wavelength of single mode fibre=l,attenuation=A,core diameter of fibre=d,laser sourcr bandwidth=BW,threshold optical power for brillouin=Pb,threshold optical power for raman scattering=Pr//
+d=6;//in micrometer//
+l=1.3;//in micrometer//
+A=0.5;//in db per km//
+BW=0.6//in GHz//
+Pb=(4.4*(10^-3))*(d^2)*(l^2)*(A*BW)*1000;//in watts//
+printf("\n threshold optical power for brillouin=%f mW.\n",Pb);
+Pr=(5.9*(10^-2))*(d^2)*l*A;
+printf("\n threshold optical power for raman scattering=%f W.\n",Pr);
+\ No newline at end of file
diff --git a/374/CH3/EX3.6/36.sci b/374/CH3/EX3.6/36.sci
new file mode 100644
index 000000000..e7f13281f
--- /dev/null
+++ b/374/CH3/EX3.6/36.sci
@@ -0,0 +1,14 @@
+//chapter 3 example 6//
+clc
+clear
+//core refractive index=n1,relative refractive index difference=d,core radius=a,operating wavelength=l;waveguide dispersion=W.speed of light=C//
+l=1.3*(10^-6);//in meters//
+a=4.5*(10^-6);//in meters//
+d=0.0022;
+n1=1.48;
+V=((2*%pi*a*n1)*(sqrt(2*d)))/l;
+n2=n1*(1-d);
+C=(3*(10^8));
+S=0.480;//product of V and its double differentiation wrt v//
+W=(-1*n2*d*S)/(C*l)*(10^6);//wave guide dispersion//
+printf("\n wave guide dispersion=%f ps Km-1 nm-1\n",W);
diff --git a/374/CH3/EX3.7/37.sci b/374/CH3/EX3.7/37.sci
new file mode 100644
index 000000000..11d8f12e1
--- /dev/null
+++ b/374/CH3/EX3.7/37.sci
@@ -0,0 +1,12 @@
+//chapter 3 example 7//
+clc
+clear
+//operating wavelength=l,total material dispersion=dtm,total waveguide dispersion=dtw,received pulse duration=Tr,transmitted pulse duration=T,approximate bit rate=Bmax,total dispersion=dtt,total intermodal dispersion=dtimd//
+dtm=2.81;//in nanoseconds//
+dtw=0.495;//in nanoseconds//
+T=0.5;//in nanoseconds//
+dtimd=0;
+dtt=sqrt((dtimd^2)+(dtm^2)+(dtw^2));//in nanoseconds//
+Tr=T+dtt;//in nanoseconds//
+Bmax=(1/(5*Tr))*1000;
+printf("\n approximate bit rate=%fMHz \n",Bmax);