% Book: Laser Electronics by Verdeyen
% Problem: Chapter 6 problem 1
% Script Author: meg noah meg_noah@student.uml.edu
function Lasers_Ch6_Pr1

d=1.5;
Lambda=5000e-10;
c=3e8;
n=1
FSR = c/(2*n*d);
fprintf(1,'FSR=%f [Hz]\n',FSR);
FSRA = (Lambda^2)/(2*n*d*1e-10);
fprintf(1,'FSR=%f [A]\n',FSRA);
R1=0.99;
R2=0.97;
Q=(2*pi*d/Lambda)*(sqrt(sqrt(R1*R2)))/(1.0-sqrt(R1*R2));
fprintf(1,'Q=%f\n',Q);
tau=(d/c)*(sqrt(sqrt(R1*R2)))/(1.0-sqrt(R1*R2))*(1e7);
fprintf(1,'tau=%f [10^-7 seconds]\n',tau);
F=(pi)*(sqrt(sqrt(R1*R2)))/(1.0-sqrt(R1*R2));
fprintf(1,'Finesse=%f \n',F);
F=(pi*2)/(1.0-R1*R2);
fprintf(1,'Finesse=%f \n',F);
