diff options
Diffstat (limited to '3638/CH13/EX13.18/Ex13_18.sce')
| -rw-r--r-- | 3638/CH13/EX13.18/Ex13_18.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/3638/CH13/EX13.18/Ex13_18.sce b/3638/CH13/EX13.18/Ex13_18.sce new file mode 100644 index 000000000..6058d92a5 --- /dev/null +++ b/3638/CH13/EX13.18/Ex13_18.sce @@ -0,0 +1,18 @@ +//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 13.18
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given
+lambda=850e-9;//Operating wavekength of the system in m
+alpha=2.5;//Fiber loss in dB/km
+Pi=1e-3;//Input power in W
+Np=1000;//Minimum number of photons per bit of information
+B=100e6;//Bit rate in b/s
+h=6.63e-34;//Planck's constant in SI Units
+c=3e8;//Speed of photons in m/s
+v=c/lambda;//Frequency corresponding to the operating frequency
+
+Lmax=10/alpha*log10(2*Pi/(Np*B*h*v));//Maximum permissible loss-limited length in km
+mprintf("\n Maximum permissible loss-limited length Lmax=%.2f km",Lmax);//The answers vary due to round off error
|