APPENDIX G 493
% For Unpolarized light in, we lose half in first polarizer.
% Field out of second is cos(theta) times input from first
%
T1=0.5
*
(cos(theta)).^2;
%
% Vertical in
% Angle of incident polarization to first polarizer is
% theta. Same for second.
%
T2=(cos(theta).
*
cos(theta)).^2;
%
% Horizontal in
% Angle of input polarization rel to first polarizer is
% 90 deg - theta
%
T3=(sin(theta).
*
cos(theta)).^2; fig1=figure;
plot(thetad,T1,‘-’,thetad,T2,‘--’,thetad,T3,‘:’);grid on;
xlabel(‘\theta, Angle, deg.’); ylabel(‘T, Transmission’);
legend(‘Unpol in’,‘Vert’,‘Hor’);
%
%
% Set up the Jones matrices
e0=[1,0]’;
p=[1,0;0,0];
e=exp(1);
qwp=[e^(i
*
pi/4),0;0,e^(-i
*
pi/4)];
hwp=[e^(i
*
pi/2),0;0,e^(-i
*
pi/2)];
for count=1:length(theta);
theta1=theta(count);
r=[cos(theta1),sin(theta1);-sin(theta1),cos(theta1)]; ...