401/CH6/EX6.3/Example6_3.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

//Example 6.3
//Program to calculate laser gain coefficient for the cavity

clear;
clc ;
close ;

//Given data
L=600*10^-4;          //cm - CAVITY LENGTH
r=0.3;                //*100 percent - REFLECTIVITY
alpha_bar= 30;        //per cm - LOSSES

//Laser Gain Coefficient
gth_bar=alpha_bar+1/L*log(1/r);

//Displaying the Result in Command Window
printf("\n\n\t Laser Gain Coefficient is %1.0f per cm.",gth_bar);