draw lens example

Contents

define lens
draw the system
calculate edge thicknesses

define lens

th=[0 3.0486 5.4981 1.0162 0.6215 4.6129 3.0486 0 0 ];
rn=[1 1.713 1 1.689 1 1 1.713 1 1];
cv=[0 0.0458621 0.0039265 -0.0301655 0.0454845 0 0.0104227 -0.0406946 0];
sa=[0 21 21 15 15 0 18 18 0]/2; % semiaperture (half the diameter)
lp = [2 4 7];  % index (start) of each lens in system
ast = 6; % index of aperture stop

draw the system

drawsys(sa,th,cv,lp);
axis([-1 20 -10.5 10.5]);

calculate edge thicknesses

n = length(lp);
tedge = zeros(size(lp));
for k=1:n
    kp = lp(k);
    tedge(k) = th(kp) - sag(sa(kp),cv(kp)) + sag(sa(kp),cv(kp+1));
end
tedge
clear n k kp;

tedge =

    0.5705    3.1946    0.9181