diff options
Diffstat (limited to '3506/CH6')
| -rw-r--r-- | 3506/CH6/EX6.1/Ex_6_1.JPG | bin | 0 -> 44312 bytes | |||
| -rw-r--r-- | 3506/CH6/EX6.1/Ex_6_1.sce | 13 | ||||
| -rw-r--r-- | 3506/CH6/EX6.2/Ex_6_2.JPG | bin | 0 -> 44941 bytes | |||
| -rw-r--r-- | 3506/CH6/EX6.2/Ex_6_2.sce | 15 | ||||
| -rw-r--r-- | 3506/CH6/EX6.3/Ex_6_3.JPG | bin | 0 -> 47598 bytes | |||
| -rw-r--r-- | 3506/CH6/EX6.3/Ex_6_3.sce | 18 | ||||
| -rw-r--r-- | 3506/CH6/EX6.4/Ex_6_4.JPG | bin | 0 -> 50061 bytes | |||
| -rw-r--r-- | 3506/CH6/EX6.4/Ex_6_4.sce | 18 | ||||
| -rw-r--r-- | 3506/CH6/EX6.5/Ex_6_5.JPG | bin | 0 -> 46503 bytes | |||
| -rw-r--r-- | 3506/CH6/EX6.5/Ex_6_5.sce | 15 | ||||
| -rw-r--r-- | 3506/CH6/EX6.6/Ex_6_6.JPG | bin | 0 -> 47839 bytes | |||
| -rw-r--r-- | 3506/CH6/EX6.6/Ex_6_6.sce | 12 |
12 files changed, 91 insertions, 0 deletions
diff --git a/3506/CH6/EX6.1/Ex_6_1.JPG b/3506/CH6/EX6.1/Ex_6_1.JPG Binary files differnew file mode 100644 index 000000000..c12a9f163 --- /dev/null +++ b/3506/CH6/EX6.1/Ex_6_1.JPG diff --git a/3506/CH6/EX6.1/Ex_6_1.sce b/3506/CH6/EX6.1/Ex_6_1.sce new file mode 100644 index 000000000..32ddaac38 --- /dev/null +++ b/3506/CH6/EX6.1/Ex_6_1.sce @@ -0,0 +1,13 @@ +//Optical Fiber communication by A selvarajan
+//example 6.1
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+//given
+lamda=1.55;//wavelength in um
+n1=1.51;//Film refractive index
+n2=1.5;//substrate refractive index
+t=(lamda)/(2*%pi*sqrt(n1*n1-n2*n2));//Thickness of film in um
+mprintf('Film thickness=%fum',t);
+
diff --git a/3506/CH6/EX6.2/Ex_6_2.JPG b/3506/CH6/EX6.2/Ex_6_2.JPG Binary files differnew file mode 100644 index 000000000..9ee11ff6f --- /dev/null +++ b/3506/CH6/EX6.2/Ex_6_2.JPG diff --git a/3506/CH6/EX6.2/Ex_6_2.sce b/3506/CH6/EX6.2/Ex_6_2.sce new file mode 100644 index 000000000..a56c99809 --- /dev/null +++ b/3506/CH6/EX6.2/Ex_6_2.sce @@ -0,0 +1,15 @@ +//Optical Fiber communication by A selvarajan
+//example 6.2
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+//given
+b=0.5//normalized propoagation constant
+V=(2*atan(b/(1-b))/(sqrt(1-b)))//normalized frequency
+mprintf('Normalized frequency=%f',V)
+lamda=1.3;//wavelength in um
+n1=2.21;//Film refractive index
+n2=2.2;//substrate refractive index
+t=(lamda)/(2*%pi*sqrt(n1*n1-n2*n2));//Thickness of film in um
+mprintf('\nFilm thickness=%fum',t);
diff --git a/3506/CH6/EX6.3/Ex_6_3.JPG b/3506/CH6/EX6.3/Ex_6_3.JPG Binary files differnew file mode 100644 index 000000000..80187677a --- /dev/null +++ b/3506/CH6/EX6.3/Ex_6_3.JPG diff --git a/3506/CH6/EX6.3/Ex_6_3.sce b/3506/CH6/EX6.3/Ex_6_3.sce new file mode 100644 index 000000000..d22b23907 --- /dev/null +++ b/3506/CH6/EX6.3/Ex_6_3.sce @@ -0,0 +1,18 @@ +//Optical Fiber communication by A selvarajan
+//example 6.3
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+//given
+lamda=1.3;//wavelength in um
+nf=1.51;//Film refractive index
+t=1.5;//Film thickness in um
+ns=1.5//Waveguide refractive index
+na=1//refractive index of air
+V=(2*%pi*t/lamda)*sqrt(nf^2-ns^2)//V-number
+a=(ns^2-na^2)/(nf^2-ns^2)//asymmetry parameter of the waveguide
+Vc=atan(a^0.5)//cutoff V-number
+mprintf("V-number=%f",V)
+mprintf("\nasymmetry parameter of the waveguide=%f",a)
+mprintf("\nCutoff V-number=%f",Vc)
diff --git a/3506/CH6/EX6.4/Ex_6_4.JPG b/3506/CH6/EX6.4/Ex_6_4.JPG Binary files differnew file mode 100644 index 000000000..eb357ba05 --- /dev/null +++ b/3506/CH6/EX6.4/Ex_6_4.JPG diff --git a/3506/CH6/EX6.4/Ex_6_4.sce b/3506/CH6/EX6.4/Ex_6_4.sce new file mode 100644 index 000000000..15d5733ff --- /dev/null +++ b/3506/CH6/EX6.4/Ex_6_4.sce @@ -0,0 +1,18 @@ +//Optical Fiber communication by A selvarajan
+//example 6.4
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+//given
+delta_phi=%pi
+d=4*10^-6//seperation between electrodes
+n=2.2// approximate inder in absence of voltage
+r13=30*10^-12//poper electro optic coefficient
+row=0.4//overlap factor
+lambda=1300*1e-9//wavelength in m
+L=8*10^-3//length of electrode in m
+delta_n=delta_phi*lambda/(2*%pi*L)//change in refractive index
+V_pi=2*d*delta_n/(n^3*row*r13)//Voltahe required for using the device as BPSK modulator
+mprintf("Voltage required for using the device as BPSK modulator=%fV",V_pi)
+mprintf("\nVoltage length product for unit length is=%fVm",V_pi)
diff --git a/3506/CH6/EX6.5/Ex_6_5.JPG b/3506/CH6/EX6.5/Ex_6_5.JPG Binary files differnew file mode 100644 index 000000000..2996a72ad --- /dev/null +++ b/3506/CH6/EX6.5/Ex_6_5.JPG diff --git a/3506/CH6/EX6.5/Ex_6_5.sce b/3506/CH6/EX6.5/Ex_6_5.sce new file mode 100644 index 000000000..9e32c3ca2 --- /dev/null +++ b/3506/CH6/EX6.5/Ex_6_5.sce @@ -0,0 +1,15 @@ +//Optical Fiber communication by A selvarajan
+//example 6.5
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+//given
+d=10*10^-6//seperation between electrodes
+ne=2.2// approximate inder in absence of voltage
+r33=32*10^-12//poper electro optic coefficient
+lambda=1*1e-6//wavelength in m
+L=5*10^-3//length of electrode in m
+V=d*lambda/(2*%pi*ne^3*r33*L)//Voltahe required for using the device as BPSK modulator
+mprintf("Voltage required for using the device as BPSK modulator=%fV",V)//the answer is different because of rounding off error
+
diff --git a/3506/CH6/EX6.6/Ex_6_6.JPG b/3506/CH6/EX6.6/Ex_6_6.JPG Binary files differnew file mode 100644 index 000000000..7e78947ff --- /dev/null +++ b/3506/CH6/EX6.6/Ex_6_6.JPG diff --git a/3506/CH6/EX6.6/Ex_6_6.sce b/3506/CH6/EX6.6/Ex_6_6.sce new file mode 100644 index 000000000..778196a59 --- /dev/null +++ b/3506/CH6/EX6.6/Ex_6_6.sce @@ -0,0 +1,12 @@ +//Optical Fiber communication by A selvarajan
+//example 6.6
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+//given
+delta_L=1/100//error in effective interaction length
+P=(%pi/2*delta_L)^2//cross talk power output in W
+mprintf("cross talk power output=%fx10^-4W",P*10^4);//multiplication by 10^4 to convert unit from W to 10^-4 W
+PdB=10*log10(P)//power in dB
+mprintf("\ncross talk power output=%fdB",PdB)
|
