Optical Fibers

Fiber models a stepped index optical fiber. Below is a trace of a wedge of rays through an optical fiber with a core diameter of 5 millimeters, a cladding diameter of 10 millimeters, and a length of 100 millimeters.

DrawSystem[{WedgeOfRays[10],
	Move[Fiber[5,10,100],{5,0,0}],
	Boundary[150]},PlotType->TopView];

Fiber actually contains ten distinct optical surfaces. Below, we use the tenth surface to examine the ray exit points at the fiber end.

ShowSystem[%,PlotType->Surface,
	RayChoice->{SurfaceNumber->10}];