drawlens example

define lens

ap = 0.8;
cv = [0.69633 -0.11989];
th = 0.4;

draw lens

drawlens(ap,th,cv);
axis equal
axis([-0.5 0.5 -1 1]);

calculate edge parameter and lens shape

tedge = th - sag(ap,cv(1)) + sag(ap,cv(2));
fprintf('edge thickness %g\n',tedge);
shape = (cv(1)+cv(2))/(cv(1)-cv(2));
fprintf('shape %g\n',shape);

edge thickness 0.118084
shape 0.706231