Create a double Gauss lens

%--------------------------------------------------------------------------
%   Copyright (c) 2015 Princeton Satellite Systems, Inc.
%   All rights reserved.
%--------------------------------------------------------------------------
%   Since 2016.1
%--------------------------------------------------------------------------

clear r

l	= ReadLensData('DoubleGauss.lens');
r(1).p     = [-2;1];
r(1).m     = [ 1;0];
r(2).p     = [-2;0];
r(2).m     = [ 1;0];
r(3).p     = [-2;-1];
r(3).m     = [ 1;0];

RayTraceLens( r, l );

CreateLensTable( l );

%--------------------------------------

% $Id: 24a85acc161b4219221ca69b76bb394af6934dd6 $

      Radius -    Thickness  -     Material  - Index of Refraction  - Abbe V-number  - Semi-Aperture 
       169.7 -         0.24  -               -                   0  -             0  -          25.2 
       38.55 -         8.05  -               -                1.67  -          47.1  -            23 
       81.54 -         6.55  -               -               1.699  -          30.1  -            23 
        25.5 -        11.41  -               -                   0  -             0  -            18 
         Inf -            9  -               -                   0  -             0  -          17.1 
      -28.99 -         2.36  -               -               1.603  -            38  -            17 
       81.54 -        12.13  -               -               1.658  -          57.3  -            20 
      -40.77 -         0.38  -               -                   0  -             0  -            20 
       874.1 -         6.44  -               -               1.717  -            48  -            20 
      -79.46 -        72.23  -               -                   0  -             0  -            20 
             -               -               -                      -                -               

Published with MATLAB® R2022b