diff options
Diffstat (limited to '3547/CH7/EX7.5/EX7_5.sce')
-rw-r--r-- | 3547/CH7/EX7.5/EX7_5.sce | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/3547/CH7/EX7.5/EX7_5.sce b/3547/CH7/EX7.5/EX7_5.sce new file mode 100644 index 000000000..a7246c3c4 --- /dev/null +++ b/3547/CH7/EX7.5/EX7_5.sce @@ -0,0 +1,47 @@ +// Example 2.1
+// Compuatation of the transmission distance
+//
+// Page no. 325
+
+clc;
+clear;
+close;
+
+//Given data
+
+fl=0.2 // Fiber loss
+L=100; // Amplifeir spacing
+n=1.4;
+h=6.63*10^-34; // Planck constant
+c=3*10^8; // Velocity of light
+lambda=1.55*10^-6;
+
+q=1.6*10^-19; // Electron charge
+R=0.9;
+d=0.1*10^-9;
+alpha=0.0461;
+L=100; // Spacing
+Pi=-3; // Mean fiber launch power
+//N=80; // Identical amplifers
+fe=7*10^9; // Electrical filter bandwidth
+q=6;
+B=5*10^9;
+
+
+// The transmission distance
+l=fl*L;
+G=10^(l/10);
+f=c/lambda;
+// r=N*n*h*f*(G-1);
+Pi=10^(-(2/10));
+N=Pi/(q^2*n*h*f*(G-1)*B);
+Td=N*L;
+Td=Td*10^-3;
+
+//Displaying the result in command window
+printf("\n The transmission distance is = %0.0f km",Td);
+
+
+
+
+
|