blob: 47b297c992c21eda994d5f9b63326cf03133fa3d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
// Example 10.3
// Calculation of the peak power required to form a soliton
// Page no 435
clc;
clear;
close;
//Given data
b=-21*10^-27; // FWHM of a fundamental soliton
Tf=50*10^-12; // Fiber dispersion coefficient
r=1.1*10^-3; // Nonlinear coefficient
// The peak power required to form a soliton
Th=asech(sqrt(0.5));
f=2*Th;
T0=Tf/f;
n=(sqrt(-b))/T0;
P=(n^2)/r;
//P=P*10^2;
// Displaying results in the command window
printf("\n The peak power required to form a soliton = %0.1f mW",P*10^2);
// Answer is wrong in book
|
