Lens Doublets

A lens doublet designates a lens having three spherical surfaces. The radii of curvatures are specified by r11, r12, and r13 for the first lens, and r21, r22, and r23 for the second lens. In addition, a lens doublet is specified by two thicknesses: t1, t2 set to 2.1 and 7.5 mm. The circular aperture is set to 25.5 mm and the material is composed of SF5 and BK7 glass.
To change the lens positions along the line, drag the red locators. The blue locators rotate the objects. Use the sliders to change the radii of curvatures of the lenses.



  • [Snapshot]
  • [Snapshot]
  • [Snapshot]


This sample optics Demonstration was created using Optica 3, an application package available for Mathematica. It was created by selecting component elements and setting symbolic variables from the GUI popup menus. The variables that users select as symbolic become controllable with sliders and locators.
See http://www.opticasoftware.com for details about additional ray-tracing products.


Contributed by: Ann Williamson and Donald Barnhart
(Optica Software, a division of Barnhart Optical Research)
    • Share:

Embed Interactive Demonstration New!

Just copy and paste this snippet of JavaScript code into your website or blog to put the live Demonstration on your site. More details »

Files require Wolfram CDF Player or Mathematica.

Mathematica »
The #1 tool for creating Demonstrations
and anything technical.
Wolfram|Alpha »
Explore anything with the first
computational knowledge engine.
MathWorld »
The web's most extensive
mathematics resource.
Course Assistant Apps »
An app for every course—
right in the palm of your hand.
Wolfram Blog »
Read our views on math,
science, and technology.
Computable Document Format »
The format that makes Demonstrations
(and any information) easy to share and
interact with.
STEM Initiative »
Programs & resources for
educators, schools & students.
Computerbasedmath.org »
Join the initiative for modernizing
math education.
Step-by-Step Solutions »
Walk through homework problems one step at a time, with hints to help along the way.
Wolfram Problem Generator »
Unlimited random practice problems and answers with built-in step-by-step solutions. Practice online or make a printable study sheet.
Wolfram Language »
Knowledge-based programming for everyone.
Powered by Wolfram Mathematica © 2018 Wolfram Demonstrations Project & Contributors  |  Terms of Use  |  Privacy Policy  |  RSS Give us your feedback
Note: To run this Demonstration you need Mathematica 7+ or the free Mathematica Player 7EX
Download or upgrade to Mathematica Player 7EX
I already have Mathematica Player or Mathematica 7+