From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3506/CH16/EX16.1/Ex_16_1.sce | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 3506/CH16/EX16.1/Ex_16_1.sce

(limited to '3506/CH16/EX16.1/Ex_16_1.sce')

diff --git a/3506/CH16/EX16.1/Ex_16_1.sce b/3506/CH16/EX16.1/Ex_16_1.sce
new file mode 100644
index 000000000..3440fa031
--- /dev/null
+++ b/3506/CH16/EX16.1/Ex_16_1.sce
@@ -0,0 +1,13 @@
+//Optical Fiber communication by A selvarajan
+//example 16.1
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+lambda=850;//operating wavelength in nm
+Beta2=-1//dispersion regime ps^2/Km
+Gama=2//nonlinearity in /W-Km
+TFWHM=10//fundamental soliton width in ps
+To=TFWHM/1.763//pulse width in ps
+Ppeak=1/(Gama*(To^2))//peak power in W
+mprintf("Peak power required to maintain fundamental soliton=%fmW",Ppeak*10^3)//multiplication by 10^3 is to convert the unit from w to mW
-- 
cgit