insert

Create an optical system that contains a double Gauss lens using the createDoubleGauss helper function. The function is attached to this example as a supporting file. Display a 2-D visualization of the optical system using the view2d object function.

opsys = createDoubleGauss;            
view2d(opsys,Labels="component")

ans = 
  OpticalSystemViewer2D with properties:

            Title: ""
    OpticalSystem: [1×1 opticalSystem]
           Labels: "component"
      FieldPoints: "on"
             Rays: [0×0 optics.ui.Rays2D]
           Parent: [1×1 Figure]

  Show all properties

Remove the second optical component from the optical system using the remove function. The removed component is the first doublet.

remove(opsys,2)

Create a new lens component, meniscus, using the LensElement object. Specify the glass lens material using the Materials property, and specify the center thickness of meniscus, in millimeters, using the Thickness property.

meniscus = optics.component.LensElement(SemiDiameter=20,Thickness=2,Materials=[1.64 58]);
meniscus.Surfaces(1).Radius = 56;
meniscus.Surfaces(2).Radius = 40;

Insert the lens into the optical system, after the first component, using insert object function.

insert(opsys,meniscus,InsertAfter=1)

Adjust the gap between first element and the inserted lens using the changeGap function.

changeGap(opsys,1,5,GapLocation="after");

Display a 2-D visualization of the modified optical system using the view2d object function, and trace marginal rays through the optical system using the traceMarginalRays object function.

hv = view2d(opsys,Labels="component");
mr = traceMarginalRays(opsys);

Visualize the rays traced through the modified optical system using the addRays object function.

addRays(hv,mr)