1619/CH3/EX3.3.1/Example3_3_1.sce


1
2
3
4
5
6
7
8
9
10
11

//Example  3.3.1 page 3.25

clc;
clear;
r1= 0.32;
r2= 0.32;
alpha= 10;
L= 500*10^-4;
temp=log(1/(r1*r2));
Tgth = alpha + (temp/(2*L));
printf("The optical gain at threshold is %.2f /cm",Tgth);