% Book: Laser Electronics by Verdeyen
% Problem: Chapter 6 problem 17
% Script Author: meg noah meg_noah@student.uml.edu
function Lasers_Ch6_Pr17
Lambda0=6000e-10;FSR=20e9;c=3e8;
v0=c/Lambda0;R=0.54;R2=(1-R)^2;dv=2e9;
v=v0-3*FSR/2:dv/20:v0+3*FSR/2;theta=pi*v/FSR;
T=R2./(R2+4*R*(sin(theta)).*(sin(theta)));
plot(v*1e-9*1e-5,T,'b'),grid on;hold on;
ylabel('Transmission');
xlabel('Frequency [10^5 GHz]');