% Book: Laser Electronics by Verdeyen
% Problem: Chapter 3 problem 8
% Script Author: meg noah meg_noah@student.uml.edu
function Lasers_Ch3_Pr8
textsize = 10;titlesize = 14;axissize = 12;
nx=200;gain=2.0/nx;offset=-gain*nx/2.0;
x = zeros(nx);for i = 1:nx;x(i) = i*gain+offset;end;
t = exp(-x.^2);
axes('fontsize',axissize,'position',[.15 .19 .81 .7]);
%axis([x(1) x(nx) -0.5 1.5]);
ifigure = 1;figure(ifigure);cla;
title(['Transmission Coefficient'],'fontsize',titlesize);
ylabel('\tau','fontsize',titlesize);
xlabel('r/w [arbitrary units]','fontsize',titlesize);hold on;
h1=plot(x,t,'color',[0 .7 0]);
