summaryrefslogtreecommitdiff
path: root/1061/CH10
diff options
context:
space:
mode:
Diffstat (limited to '1061/CH10')
-rwxr-xr-x1061/CH10/EX10.1/Ex10_1.sce11
-rwxr-xr-x1061/CH10/EX10.10/Ex10_10.sce20
-rwxr-xr-x1061/CH10/EX10.2/Ex10_2.sce11
-rwxr-xr-x1061/CH10/EX10.3/Ex10_3.sce20
-rwxr-xr-x1061/CH10/EX10.4/Ex10_4.sce15
-rwxr-xr-x1061/CH10/EX10.5/Ex10_5.sce20
-rwxr-xr-x1061/CH10/EX10.6/Ex10_6.sce16
-rwxr-xr-x1061/CH10/EX10.7/Ex10_7.sce20
-rwxr-xr-x1061/CH10/EX10.8/Ex10_8.sce13
-rwxr-xr-x1061/CH10/EX10.9/Ex10_9.sce12
10 files changed, 158 insertions, 0 deletions
diff --git a/1061/CH10/EX10.1/Ex10_1.sce b/1061/CH10/EX10.1/Ex10_1.sce
new file mode 100755
index 000000000..009b132d5
--- /dev/null
+++ b/1061/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,11 @@
+//Ex:10.1
+clc;
+clear;
+close;
+r=30.8*10^-12;// electro optice coefficient in m/V
+L=3*10^-2;// length in m
+y=1.3*10^-6;// wavelength in m
+n=2.1;
+d=30*10^-6;// distance between the electrodes in m
+V=(y*d)/((n)^3*r*L);// voltage required to have a pi radian phase change in volt
+printf("The voltage required to have a pi radian phase change =%f volt", V); \ No newline at end of file
diff --git a/1061/CH10/EX10.10/Ex10_10.sce b/1061/CH10/EX10.10/Ex10_10.sce
new file mode 100755
index 000000000..43618f25d
--- /dev/null
+++ b/1061/CH10/EX10.10/Ex10_10.sce
@@ -0,0 +1,20 @@
+//Ex:10.10
+clc;
+clear;
+close;
+y=860*10^-9;// wavelength in m
+c=3*10^8;// speed of light in m/s
+n1=1.47;//
+dl=0.02;//
+n12=n1*dl;// the difference b/w n1 and n2
+La=1/1000;// loss a in dB/m
+Pr=-65;// receiver power in dB
+Pt=-5;// transmitted power in dB
+dy=30*10^-9;// line width in m
+X=0.024;
+Lmax=(0.35*c*y)/(dy*X);// material dispersion limited distance for RZ coding in m
+L_GI=(1.4*c*n1)/(n12);// model dispersion limited distance for RZ coding in m
+L_At=(Pt-Pr)/(La);// attenuation limited distance for RZ coding in m
+printf("The material dispersion limited distance =%f*10^10*1/Br m", Lmax/10^10);
+printf("\n The model dispersion limited distance =%f*10^10*1/Br m", L_GI/10^10);
+printf("\n The attenuation limited distance =%d-20log(Br) km", L_At/10^3); \ No newline at end of file
diff --git a/1061/CH10/EX10.2/Ex10_2.sce b/1061/CH10/EX10.2/Ex10_2.sce
new file mode 100755
index 000000000..8e503b866
--- /dev/null
+++ b/1061/CH10/EX10.2/Ex10_2.sce
@@ -0,0 +1,11 @@
+//Ex:10.2
+clc;
+clear;
+close;
+a_fc=4;// fider cable loss in dB/km
+aj=0.7;// splice loss in db/km
+L=5;// length in km
+a_cr1=4;// connector losses
+a_cr2=3.5;// connector losses
+CL=(a_fc+aj)*L+(a_cr1+a_cr2);// total channel loss in dB
+printf("The total channel loss =%d dB", CL); \ No newline at end of file
diff --git a/1061/CH10/EX10.3/Ex10_3.sce b/1061/CH10/EX10.3/Ex10_3.sce
new file mode 100755
index 000000000..6b53c4580
--- /dev/null
+++ b/1061/CH10/EX10.3/Ex10_3.sce
@@ -0,0 +1,20 @@
+//Ex:10.3
+clc;
+clear;
+close;
+p=0.5*10^-9;// pulse broadening in s/km
+L=12;// length in km
+Pt=p*sqrt(L);// with mode coupling, the total rms broadening in s
+BT=20*10^6;//
+DL=2*(2*Pt*BT*sqrt(2))^4;// dispersion equalization penalty in dB
+Pt1=p*L;// without mode coupling, the total rms broadening in s
+DL1=2*(2*Pt1*BT*sqrt(2))^4;// without mode coupling, equalization penalty in dB
+DL2=2*(2*Pt1*150*10^6*sqrt(2))^4;// without mode coupling,dispersion equalization penalty with 125 Mb/s
+DL3=2*(2*Pt*125*10^6*sqrt(2))^4;// with mode coupling,dispersion equalization penalty with 125 Mb/s
+printf("with mode coupling, the total rms broadening =%f ns", Pt*10^9);
+printf("\n The dispersion equalization penalty =%f dB", DL*10^4);
+printf("\n without mode coupling, the total rms broadening =%f dB", Pt1*10^9);
+printf("\n without mode coupling, equalization penalty =%f dB", DL1);
+printf("\n without mode coupling,dispersion equalization penalty with 125 Mb/s =%f dB", DL2);
+printf("\n with mode coupling,dispersion equalization penalty with 125 Mb/s =%f dB", DL3);
+printf("\n The answer is wrong in the textbook"); \ No newline at end of file
diff --git a/1061/CH10/EX10.4/Ex10_4.sce b/1061/CH10/EX10.4/Ex10_4.sce
new file mode 100755
index 000000000..509817a1e
--- /dev/null
+++ b/1061/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,15 @@
+//Ex:10.4
+clc;
+clear;
+close;
+Pi=-2.5;// mean optical power launched into the fiber in dBm
+Po=-45;// mean output optical power available at the receiver in dBm
+a_fc=0.35;// fider cable loss in dB/km
+aj=0.1;// splice loss in db/km
+a_cr=1;// connector losses
+Ma=6;// safety margin in dB
+L=(Pi-Po-a_cr-Ma)/(a_fc+aj);// length in km when system operating at 25 Mbps
+Po1=-35;// mean output optical power available at the receiver in dBm
+L1=(Pi-Po1-a_cr-Ma)/(a_fc+aj);// length in km when system operating at 350 Mbps
+printf("The length when system operating at 25 Mbps =%f km", L);
+printf("\n The length when system operating at 350 Mbps =%f km", L1); \ No newline at end of file
diff --git a/1061/CH10/EX10.5/Ex10_5.sce b/1061/CH10/EX10.5/Ex10_5.sce
new file mode 100755
index 000000000..de89e5a12
--- /dev/null
+++ b/1061/CH10/EX10.5/Ex10_5.sce
@@ -0,0 +1,20 @@
+//Ex:10.5
+clc;
+clear;
+close;
+Tx=-80;// transmitter output in dBm
+Rx=-40;// receiver sensitivity in dBm
+sm=32;// system margin in dB
+L=10;// in km
+fl=2*L;// fider loss in dB
+cl=1;// detector coupling loss in dB
+tl=0.4*8;// total splicing loss in dB
+ae=5;// angle effects & future splice in dB
+ta=29.2;// total attenuation in dB
+Ep=2.8;// excess power margin in dB
+printf("The fider loss =%f dB", fl);
+printf("\n The total splicing loss =%f dB", tl);
+printf("\n The fangle effects & future splice =%f dB", ae);
+printf("\n The total attenuation =%f dB", ta);
+printf("\n The excess power margin =%f dB", Ep);
+printf("\n hence the system can operate with small excess power margin") \ No newline at end of file
diff --git a/1061/CH10/EX10.6/Ex10_6.sce b/1061/CH10/EX10.6/Ex10_6.sce
new file mode 100755
index 000000000..89a80a175
--- /dev/null
+++ b/1061/CH10/EX10.6/Ex10_6.sce
@@ -0,0 +1,16 @@
+//Ex:10.6
+clc;
+clear;
+close;
+Lc=1;// connector loss in db
+Ls=5;// star coupler insertion loss in dB
+af=2;// fider loss in dB
+Ps=-14;// transmitted power in dBm
+Pr=-49;// receiver sensitivity in dBm
+sm=6;// system margin in dB
+N=16;
+L=(Ps-Pr-Ls-4*Lc-(10*log(N))/log(10)-sm)/(2*af);// max transmission length in km when transmission star coupler is used
+N1=32;
+L1=(Ps-Pr-Ls-4*Lc-(10*log(N1))/log(10)-sm)/(2*af);// max transmission length in km when reflection star coupler is used
+printf("The max transmission length when transmission star coupler is used =%f km", L);
+printf("\n The max transmission length when reflection star coupler is used =%f km", L1); \ No newline at end of file
diff --git a/1061/CH10/EX10.7/Ex10_7.sce b/1061/CH10/EX10.7/Ex10_7.sce
new file mode 100755
index 000000000..657e6f338
--- /dev/null
+++ b/1061/CH10/EX10.7/Ex10_7.sce
@@ -0,0 +1,20 @@
+//Ex:10.7
+clc;
+clear;
+close;
+y=860*10^-9;// wavelength in m
+L=5000;// length in m
+X=0.024;
+dy=20*10^-9;// spectral width in m
+dts=6*10^-9;// silica optical link rise time in s
+dtr=8*10^-9;// detector rise in s
+c=3*10^8;// speed of light in m/s
+dtm=-(L*dy*X)/(c*y);// material dispersion delay time in s
+id=2.5*10^-12;// intermodel dispersion in s/m
+dti=id*L;// intermodel dispersion delay time
+dtsy=sqrt((dts^2)+(dtr^2)+(dtm^2)+(dti^2));// system rise time in s
+Br_max=0.7/dtsy;// max bit rate for NRZ coding in bit/s
+Br_max1=0.35/dtsy;// max bit rate for RZ coding in bit/s
+printf("The system rise time =%f ns", dtsy*10^9);
+printf("\n The max bit rate for NRZ coding =%f Mbit/s", Br_max/10^6);
+printf("\n The max bit rate for RZ coding =%f Mbit/s", Br_max1/10^6); \ No newline at end of file
diff --git a/1061/CH10/EX10.8/Ex10_8.sce b/1061/CH10/EX10.8/Ex10_8.sce
new file mode 100755
index 000000000..d6444caac
--- /dev/null
+++ b/1061/CH10/EX10.8/Ex10_8.sce
@@ -0,0 +1,13 @@
+//Ex:10.8
+clc;
+clear;
+close;
+Br=50*10^6;// data rate in b/s
+c=3*10^8;// speed of light in m/s
+n1=1.47;//
+dl=0.02;//
+n12=n1*dl;// the difference b/w n1 and n2
+L_si=(0.35*c)/(n12*Br);// transmission distance for Si fiber
+L_GI=(2.8*c*n1^2)/(2*n1*n12*Br);// transmission distance for GRIN fiber
+printf("The transmission distance for Si fiber =%f m", L_si);
+printf("\n The transmission distance for GRIN fiber =%f m", L_GI); \ No newline at end of file
diff --git a/1061/CH10/EX10.9/Ex10_9.sce b/1061/CH10/EX10.9/Ex10_9.sce
new file mode 100755
index 000000000..6ce9e2353
--- /dev/null
+++ b/1061/CH10/EX10.9/Ex10_9.sce
@@ -0,0 +1,12 @@
+//Ex:10.9
+clc;
+clear;
+close;
+Br=20*10^6;// data rate in b/s
+c=3*10^8;// speed of light in m/s
+y=86*10^-9;// wavelength in m
+dy=30*10^-9;// spectral width in m
+X=0.024;
+Tb=1/Br;
+Lmax=(0.35*Tb*c*y)/(dy*X);// material dispersion limited transmission distance for RZ coding in m
+printf("The material dispersion limited transmission distance =%d m", Lmax); \ No newline at end of file
generated by cgit (git 2.34.1) at 2024-12-20 20:47:10 +0000