focus

Create an empty optical system.

opsys = opticalSystem;

To create a doublet lens, add the three refractive surfaces of the doublet to the optical system using the addRefractiveSurface object function.

addRefractiveSurface(opsys,Radius=10,DistanceToNext=4,Material="N-BK7")
addRefractiveSurface(opsys,Radius=-10,DistanceToNext=2,Material="F2")
addRefractiveSurface(opsys,DistanceToNext=10)
addRefractiveSurface(opsys,Radius=10,DistanceToNext=4,Material="N-BK7")
addRefractiveSurface(opsys,Radius=-10)

Create a gap using the addGap object function, and add an image plane using the addImagePlane object function.

addGap(opsys,2)
addImagePlane(opsys)

Display a 2-D visualization of the initial optical system by using the view2d object function.

view2d(opsys,Title="Initial Doublet");

Create a copy of the initial optical system opsys.

opsys2 = copy(opsys);

Focus the copied optical system by shifting the image plane to a position where the RMS spot size is minimal. Display a 2-D visualization of the optical system by using the view2d object function. Trace rays and add them to the visualization using the addRays function.

sp = focus(opsys2);
hv = view2d(opsys2,Title="Focused Doublet");
addRays(hv)

Compute the spot diagram of the initial optical system and the spot diagram of the focused system by using the spot object function.

spotBefore = spot(opsys);
spotAfter = spot(opsys2);

Display the spot diagrams by using the spotDiagram object function.

spotDiagram(spotBefore,Title="Initial Spot");

spotDiagram(spotAfter,Title="Focused Spot");