summaryrefslogtreecommitdiff
path: root/2792/CH11/EX11.12/Ex11_12.sce
blob: f396d39bc32828827c0f1a29bef6f6fc4eb70ca1 (plain)
1
2
3
4
5
6
7
8
9
10
clc
R =.33
disp("R = "+string(R)) //initializing value of reflection coefficient
alpha_R = 20
disp("alpha_R = "+string(alpha_R)+"cm^-1") //initializing value of absorption loss coefficient
L= (-1/alpha_R)*log(R)
disp("The length of the cavity is ,L= (-1/alpha_R)*log(R)= "+string(L)+"cm")//calculation