(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 34140, 1439]*) (*NotebookOutlinePosition[ 35505, 1483]*) (* CellTagsIndexPosition[ 35359, 1475]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[StyleBox["Optical Fibers"]], "Title"], Cell[TextData[{ StyleBox["Fiber", FontFamily->"Courier", FontWeight->"Bold"], " 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." }], "Text", Evaluatable->False, CellHorizontalScrolling->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ DrawSystem[{WedgeOfRays[10], \tMove[Fiber[5,10,100],{5,0,0}], \tBoundary[150]},PlotType->TopView];\ \>", "Input", PageWidth->Infinity, AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .06832 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.02381 0.006349 0.03416 0.006349 [ [ 0 0 0 0 ] [ 1 .06832 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p .5 Mabswid .05556 .00241 m .05556 .00506 L .05556 .0077 L .05556 .01035 L .05556 .013 L .05556 .01564 L .05556 .01829 L .05556 .01829 L .05556 .01564 L .05556 .013 L .05556 .01035 L .05556 .0077 L .05556 .00506 L .05556 .00241 L .05556 .00241 L s .05556 .05003 m .05556 .05268 L .05556 .05532 L .05556 .05797 L .05556 .06061 L .05556 .06326 L .05556 .06591 L .05556 .06591 L .05556 .06326 L .05556 .06061 L .05556 .05797 L .05556 .05532 L .05556 .05268 L .05556 .05003 L .05556 .05003 L s .05556 .03416 m .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L s .05556 .03416 m .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L s .05556 .01829 m .05556 .02358 L .05556 .02887 L .05556 .03416 L .05556 .03945 L .05556 .04474 L .05556 .05003 L .05556 .05003 L .05556 .04474 L .05556 .03945 L .05556 .03416 L .05556 .02887 L .05556 .02358 L .05556 .01829 L .05556 .01829 L s .05556 .03416 m .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L .05556 .03416 L s .37302 .04791 m .37302 .04332 L .37302 .03874 L .37302 .03416 L .37302 .02958 L .37302 .025 L .37302 .02041 L .37302 .02041 L .37302 .025 L .37302 .02958 L .37302 .03416 L .37302 .03874 L .37302 .04332 L .37302 .04791 L .37302 .04791 L s .69048 .03416 m .58466 .03416 L .47884 .03416 L .37302 .03416 L .2672 .03416 L .16138 .03416 L .05556 .03416 L .05556 .03416 L .16138 .03416 L .2672 .03416 L .37302 .03416 L .47884 .03416 L .58466 .03416 L .69048 .03416 L .69048 .03416 L s .37302 .06165 m .37302 .05249 L .37302 .04332 L .37302 .03416 L .37302 .025 L .37302 .01583 L .37302 .00667 L .37302 .00667 L .37302 .01583 L .37302 .025 L .37302 .03416 L .37302 .04332 L .37302 .05249 L .37302 .06165 L .37302 .06165 L s .69048 .03416 m .58466 .03416 L .47884 .03416 L .37302 .03416 L .2672 .03416 L .16138 .03416 L .05556 .03416 L .05556 .03416 L .16138 .03416 L .2672 .03416 L .37302 .03416 L .47884 .03416 L .58466 .03416 L .69048 .03416 L .69048 .03416 L s .37302 .03416 m .37302 .0408 L .37302 .04503 L .37302 .04791 L .37302 .04961 L .37302 .04997 L .37302 .04791 L .37302 .04791 L .37302 .04997 L .37302 .04961 L .37302 .04791 L .37302 .04503 L .37302 .0408 L .37302 .03416 L .37302 .03416 L s .69048 .04791 m .58466 .04791 L .47884 .04791 L .37302 .04791 L .2672 .04791 L .16138 .04791 L .05556 .04791 L .05556 .04791 L .16138 .04791 L .2672 .04791 L .37302 .04791 L .47884 .04791 L .58466 .04791 L .69048 .04791 L .69048 .04791 L s .37302 .03416 m .37302 .04744 L .37302 .0559 L .37302 .06165 L .37302 .06506 L .37302 .06577 L .37302 .06165 L .37302 .06165 L .37302 .06577 L .37302 .06506 L .37302 .06165 L .37302 .0559 L .37302 .04744 L .37302 .03416 L .37302 .03416 L s .69048 .06165 m .58466 .06165 L .47884 .06165 L .37302 .06165 L .2672 .06165 L .16138 .06165 L .05556 .06165 L .05556 .06165 L .16138 .06165 L .2672 .06165 L .37302 .06165 L .47884 .06165 L .58466 .06165 L .69048 .06165 L .69048 .06165 L s .37302 .02041 m .37302 .01835 L .37302 .01871 L .37302 .02041 L .37302 .02329 L .37302 .02752 L .37302 .03416 L .37302 .03416 L .37302 .02752 L .37302 .02329 L .37302 .02041 L .37302 .01871 L .37302 .01835 L .37302 .02041 L .37302 .02041 L s .69048 .02041 m .58466 .02041 L .47884 .02041 L .37302 .02041 L .2672 .02041 L .16138 .02041 L .05556 .02041 L .05556 .02041 L .16138 .02041 L .2672 .02041 L .37302 .02041 L .47884 .02041 L .58466 .02041 L .69048 .02041 L .69048 .02041 L s .37302 .00667 m .37302 .00255 L .37302 .00326 L .37302 .00667 L .37302 .01242 L .37302 .02088 L .37302 .03416 L .37302 .03416 L .37302 .02088 L .37302 .01242 L .37302 .00667 L .37302 .00326 L .37302 .00255 L .37302 .00667 L .37302 .00667 L s .69048 .00667 m .58466 .00667 L .47884 .00667 L .37302 .00667 L .2672 .00667 L .16138 .00667 L .05556 .00667 L .05556 .00667 L .16138 .00667 L .2672 .00667 L .37302 .00667 L .47884 .00667 L .58466 .00667 L .69048 .00667 L .69048 .00667 L s .69048 .01829 m .69048 .02358 L .69048 .02887 L .69048 .03416 L .69048 .03945 L .69048 .04474 L .69048 .05003 L .69048 .05003 L .69048 .04474 L .69048 .03945 L .69048 .03416 L .69048 .02887 L .69048 .02358 L .69048 .01829 L .69048 .01829 L s .69048 .03416 m .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L s .69048 .00241 m .69048 .00506 L .69048 .0077 L .69048 .01035 L .69048 .013 L .69048 .01564 L .69048 .01829 L .69048 .01829 L .69048 .01564 L .69048 .013 L .69048 .01035 L .69048 .0077 L .69048 .00506 L .69048 .00241 L .69048 .00241 L s .69048 .05003 m .69048 .05268 L .69048 .05532 L .69048 .05797 L .69048 .06061 L .69048 .06326 L .69048 .06591 L .69048 .06591 L .69048 .06326 L .69048 .06061 L .69048 .05797 L .69048 .05532 L .69048 .05268 L .69048 .05003 L .69048 .05003 L s .69048 .03416 m .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L s .69048 .03416 m .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L .69048 .03416 L s .05556 .05003 m .05556 .04949 L .05556 .04791 L .05556 .04538 L .05556 .0421 L .05556 .03827 L .05556 .03416 L .05556 .03005 L .05556 .02622 L .05556 .02294 L .05556 .02041 L .05556 .01883 L .05556 .01829 L .05556 .01883 L .05556 .02041 L .05556 .02294 L .05556 .02622 L .05556 .03005 L .05556 .03416 L .05556 .03827 L .05556 .0421 L .05556 .04538 L .05556 .04791 L .05556 .04949 L s .05556 .06591 m .05556 .06482 L .05556 .06165 L .05556 .05661 L .05556 .05003 L .05556 .04238 L .05556 .03416 L .05556 .02594 L .05556 .01829 L .05556 .01171 L .05556 .00667 L .05556 .0035 L .05556 .00241 L .05556 .0035 L .05556 .00667 L .05556 .01171 L .05556 .01829 L .05556 .02594 L .05556 .03416 L .05556 .04238 L .05556 .05003 L .05556 .05661 L .05556 .06165 L .05556 .06482 L s .05556 .05003 m .05556 .04949 L .05556 .04791 L .05556 .04538 L .05556 .0421 L .05556 .03827 L .05556 .03416 L .05556 .03005 L .05556 .02622 L .05556 .02294 L .05556 .02041 L .05556 .01883 L .05556 .01829 L .05556 .01883 L .05556 .02041 L .05556 .02294 L .05556 .02622 L .05556 .03005 L .05556 .03416 L .05556 .03827 L .05556 .0421 L .05556 .04538 L .05556 .04791 L .05556 .04949 L .05556 .05003 L s .05556 .04791 m .05556 .04332 L .05556 .03874 L .05556 .03416 L .05556 .02958 L .05556 .025 L .05556 .02041 L .05556 .02041 L .16138 .02041 L .2672 .02041 L .37302 .02041 L .47884 .02041 L .58466 .02041 L .69048 .02041 L .69048 .02041 L .69048 .025 L .69048 .02958 L .69048 .03416 L .69048 .03874 L .69048 .04332 L .69048 .04791 L .69048 .04791 L .58466 .04791 L .47884 .04791 L .37302 .04791 L .2672 .04791 L .16138 .04791 L .05556 .04791 L s .05556 .06165 m .05556 .05249 L .05556 .04332 L .05556 .03416 L .05556 .025 L .05556 .01583 L .05556 .00667 L .05556 .00667 L .16138 .00667 L .2672 .00667 L .37302 .00667 L .47884 .00667 L .58466 .00667 L .69048 .00667 L .69048 .00667 L .69048 .01583 L .69048 .025 L .69048 .03416 L .69048 .04332 L .69048 .05249 L .69048 .06165 L .69048 .06165 L .58466 .06165 L .47884 .06165 L .37302 .06165 L .2672 .06165 L .16138 .06165 L .05556 .06165 L s .05556 .03416 m .05556 .0408 L .05556 .04503 L .05556 .04791 L .05556 .04961 L .05556 .04997 L .05556 .04791 L .05556 .04791 L .16138 .04791 L .2672 .04791 L .37302 .04791 L .47884 .04791 L .58466 .04791 L .69048 .04791 L .69048 .04791 L .69048 .04997 L .69048 .04961 L .69048 .04791 L .69048 .04503 L .69048 .0408 L .69048 .03416 L .69048 .03416 L .58466 .03416 L .47884 .03416 L .37302 .03416 L .2672 .03416 L .16138 .03416 L .05556 .03416 L s .05556 .03416 m .05556 .04744 L .05556 .0559 L .05556 .06165 L .05556 .06506 L .05556 .06577 L .05556 .06165 L .05556 .06165 L .16138 .06165 L .2672 .06165 L .37302 .06165 L .47884 .06165 L .58466 .06165 L .69048 .06165 L .69048 .06165 L .69048 .06577 L .69048 .06506 L .69048 .06165 L .69048 .0559 L .69048 .04744 L .69048 .03416 L .69048 .03416 L .58466 .03416 L .47884 .03416 L .37302 .03416 L .2672 .03416 L .16138 .03416 L .05556 .03416 L s .05556 .02041 m .05556 .01835 L .05556 .01871 L .05556 .02041 L .05556 .02329 L .05556 .02752 L .05556 .03416 L .05556 .03416 L .16138 .03416 L .2672 .03416 L .37302 .03416 L .47884 .03416 L .58466 .03416 L .69048 .03416 L .69048 .03416 L .69048 .02752 L .69048 .02329 L .69048 .02041 L .69048 .01871 L .69048 .01835 L .69048 .02041 L .69048 .02041 L .58466 .02041 L .47884 .02041 L .37302 .02041 L .2672 .02041 L .16138 .02041 L .05556 .02041 L s .05556 .00667 m .05556 .00255 L .05556 .00326 L .05556 .00667 L .05556 .01242 L .05556 .02088 L .05556 .03416 L .05556 .03416 L .16138 .03416 L .2672 .03416 L .37302 .03416 L .47884 .03416 L .58466 .03416 L .69048 .03416 L .69048 .03416 L .69048 .02088 L .69048 .01242 L .69048 .00667 L .69048 .00326 L .69048 .00255 L .69048 .00667 L .69048 .00667 L .58466 .00667 L .47884 .00667 L .37302 .00667 L .2672 .00667 L .16138 .00667 L .05556 .00667 L s .69048 .05003 m .69048 .04949 L .69048 .04791 L .69048 .04538 L .69048 .0421 L .69048 .03827 L .69048 .03416 L .69048 .03005 L .69048 .02622 L .69048 .02294 L .69048 .02041 L .69048 .01883 L .69048 .01829 L .69048 .01883 L .69048 .02041 L .69048 .02294 L .69048 .02622 L .69048 .03005 L .69048 .03416 L .69048 .03827 L .69048 .0421 L .69048 .04538 L .69048 .04791 L .69048 .04949 L .69048 .05003 L s .69048 .05003 m .69048 .04949 L .69048 .04791 L .69048 .04538 L .69048 .0421 L .69048 .03827 L .69048 .03416 L .69048 .03005 L .69048 .02622 L .69048 .02294 L .69048 .02041 L .69048 .01883 L .69048 .01829 L .69048 .01883 L .69048 .02041 L .69048 .02294 L .69048 .02622 L .69048 .03005 L .69048 .03416 L .69048 .03827 L .69048 .0421 L .69048 .04538 L .69048 .04791 L .69048 .04949 L s .69048 .06591 m .69048 .06482 L .69048 .06165 L .69048 .05661 L .69048 .05003 L .69048 .04238 L .69048 .03416 L .69048 .02594 L .69048 .01829 L .69048 .01171 L .69048 .00667 L .69048 .0035 L .69048 .00241 L .69048 .0035 L .69048 .00667 L .69048 .01171 L .69048 .01829 L .69048 .02594 L .69048 .03416 L .69048 .04238 L .69048 .05003 L .69048 .05661 L .69048 .06165 L .69048 .06482 L s 0 1 0 r .02381 .03416 m .05556 .03138 L s 0 0 0 r 2 Mabswid .05556 .03138 Mdot 0 1 0 r .5 Mabswid .02381 .03416 m .05556 .0325 L s 0 0 0 r 2 Mabswid .05556 .0325 Mdot 0 1 0 r .5 Mabswid .02381 .03416 m .05556 .03361 L s 0 0 0 r 2 Mabswid .05556 .03361 Mdot 0 1 0 r .5 Mabswid .02381 .03416 m .05556 .03471 L s 0 0 0 r 2 Mabswid .05556 .03471 Mdot 0 1 0 r .5 Mabswid .02381 .03416 m .05556 .03582 L s 0 0 0 r 2 Mabswid .05556 .03582 Mdot 0 1 0 r .5 Mabswid .02381 .03416 m .05556 .03694 L s 0 0 0 r 2 Mabswid .05556 .03694 Mdot 0 1 0 r .5 Mabswid .05556 .03138 m .05556 .03138 L s 0 0 0 r 2 Mabswid .05556 .03138 Mdot 0 1 0 r .5 Mabswid .05556 .0325 m .05556 .0325 L s 0 0 0 r 2 Mabswid .05556 .0325 Mdot 0 1 0 r .5 Mabswid .05556 .03361 m .05556 .03361 L s 0 0 0 r 2 Mabswid .05556 .03361 Mdot 0 1 0 r .5 Mabswid .05556 .03471 m .05556 .03471 L s 0 0 0 r 2 Mabswid .05556 .03471 Mdot 0 1 0 r .5 Mabswid .05556 .03582 m .05556 .03582 L s 0 0 0 r 2 Mabswid .05556 .03582 Mdot 0 1 0 r .5 Mabswid .05556 .03694 m .05556 .03694 L s 0 0 0 r 2 Mabswid .05556 .03694 Mdot 0 1 0 r .5 Mabswid .05556 .03138 m .28332 .01829 L s 0 0 0 r 2 Mabswid .28332 .01829 Mdot 0 1 0 r .5 Mabswid .05556 .0325 m .46755 .01829 L s 0 0 0 r 2 Mabswid .46755 .01829 Mdot 0 1 0 r .5 Mabswid .05556 .03361 m .69048 .02631 L s 0 0 0 r 2 Mabswid .69048 .02631 Mdot 0 1 0 r .5 Mabswid .05556 .03471 m .69048 .04201 L s 0 0 0 r 2 Mabswid .69048 .04201 Mdot 0 1 0 r .5 Mabswid .05556 .03582 m .46755 .05003 L s 0 0 0 r 2 Mabswid .46755 .05003 Mdot 0 1 0 r .5 Mabswid .05556 .03694 m .28332 .05003 L s 0 0 0 r 2 Mabswid .28332 .05003 Mdot 0 1 0 r .5 Mabswid .28332 .01829 m .69048 .0417 L s 0 0 0 r 2 Mabswid .69048 .0417 Mdot 0 1 0 r .5 Mabswid .46755 .01829 m .69048 .02597 L s 0 0 0 r 2 Mabswid .69048 .02597 Mdot 0 1 0 r .5 Mabswid .69048 .02631 m .69048 .02631 L s 0 0 0 r 2 Mabswid .69048 .02631 Mdot 0 1 0 r .5 Mabswid .69048 .04201 m .69048 .04201 L s 0 0 0 r 2 Mabswid .69048 .04201 Mdot 0 1 0 r .5 Mabswid .46755 .05003 m .69048 .04234 L s 0 0 0 r 2 Mabswid .69048 .04234 Mdot 0 1 0 r .5 Mabswid .28332 .05003 m .69048 .02662 L s 0 0 0 r 2 Mabswid .69048 .02662 Mdot 0 1 0 r .5 Mabswid .69048 .0417 m .69048 .0417 L s 0 0 0 r 2 Mabswid .69048 .0417 Mdot 0 1 0 r .5 Mabswid .69048 .02597 m .69048 .02597 L s 0 0 0 r 2 Mabswid .69048 .02597 Mdot 0 1 0 r .5 Mabswid .69048 .02631 m .97619 .02132 L s 0 0 0 r 2 Mabswid .97619 .02132 Mdot 0 1 0 r .5 Mabswid .69048 .04201 m .97619 .047 L s 0 0 0 r 2 Mabswid .97619 .047 Mdot 0 1 0 r .5 Mabswid .69048 .04234 m .69048 .04234 L s 0 0 0 r 2 Mabswid .69048 .04234 Mdot 0 1 0 r .5 Mabswid .69048 .02662 m .69048 .02662 L s 0 0 0 r 2 Mabswid .69048 .02662 Mdot 0 1 0 r .5 Mabswid .69048 .0417 m .97619 .06669 L s 0 0 0 r 2 Mabswid .97619 .06669 Mdot 0 1 0 r .5 Mabswid .69048 .02597 m .97619 .04095 L s 0 0 0 r 2 Mabswid .97619 .04095 Mdot 0 1 0 r .5 Mabswid .69048 .04234 m .97619 .02737 L s 0 0 0 r 2 Mabswid .97619 .02737 Mdot 0 1 0 r .5 Mabswid .69048 .02662 m .97619 .00163 L s 0 0 0 r 2 Mabswid .97619 .00163 Mdot P 0 0 m 1 0 L 1 .06832 L 0 .06832 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", PageWidth->Infinity, Evaluatable->False, AspectRatioFixed->True, ImageSize->{420, 31}, ImageMargins->{{36, 0}, {0, 4}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgI06JI09VI0I IIVJIIYVII/bII_nI IP3IVFJIVIVIVLbIVOnIV@3Ic6JIc9VIcIofJIoiVIolbIoonIo`33Pl?3a0@414A4A8B4Qoagj?OmInQ?o 4OX8o`03n_oo00So5?Y?o`_j2_l001Oo00<0ool06_lCnQSo7OXPo`030?oo00;o4OY3ob_j00<0n_X0 7?YIo`030?oo00Wo000Go`030?oo02go4oXRobGjD_lOnPoo00<0ool00olo`03 0?oo01_o3?YIo`005ol00`3oo`1Lo`030?oo02?o00<0ool09?l00`3oo`1Ko`030?oo02Oo3?Y=o`00 5ol00`3oo`22o`030?oo08;o00<0ool0"], ImageRangeCache->{{{0, 419}, {30, 0}} -> {-3.75098, -5.63866, 0.375911, 0.375911}}] }, Open ]], Cell[TextData[{ StyleBox["Fiber", FontFamily->"Courier", FontWeight->"Bold"], " actually contains ten distinct optical surfaces. Below, we use the tenth \ surface to examine the ray exit points at the fiber end." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ ShowSystem[%,PlotType->Surface, \tRayChoice->{SurfaceNumber->10}];\ \>", "Input", AspectRatioFixed->True, CellTags->{"Fiber", "optical fibers", "optical components"}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.095238 0.5 0.095238 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p 0 1 0 r 2 Mabswid .38221 .5 Mdot .61779 .5 Mdot .61304 .5 Mdot .37723 .5 Mdot .62277 .5 Mdot .38696 .5 Mdot 0 0 0 r .0002 w .97619 .5 m .97033 .57449 L .95288 .64715 L .92429 .71619 L .88525 .7799 L .83672 .83672 L .7799 .88525 L .71619 .92429 L .64715 .95288 L .57449 .97033 L .5 .97619 L .42551 .97033 L .35285 .95288 L .28381 .92429 L .2201 .88525 L .16328 .83672 L .11475 .7799 L .07571 .71619 L .04712 .64715 L .02967 .57449 L .02381 .5 L .02967 .42551 L .04712 .35285 L .07571 .28381 L .11475 .2201 L .16328 .16328 L .2201 .11475 L .28381 .07571 L .35285 .04712 L .42551 .02967 L .5 .02381 L .57449 .02967 L .64715 .04712 L .71619 .07571 L .7799 .11475 L .83672 .16328 L .88525 .2201 L .92429 .28381 L .95288 .35285 L .97033 .42551 L .97619 .5 L s .7381 .5 m .73516 .53725 L .72644 .57358 L .71214 .60809 L .69262 .63995 L .66836 .66836 L .63995 .69262 L .60809 .71214 L .57358 .72644 L .53725 .73516 L .5 .7381 L .46275 .73516 L .42642 .72644 L .39191 .71214 L .36005 .69262 L .33164 .66836 L .30738 .63995 L .28786 .60809 L .27356 .57358 L .26484 .53725 L .2619 .5 L .26484 .46275 L .27356 .42642 L .28786 .39191 L .30738 .36005 L .33164 .33164 L .36005 .30738 L .39191 .28786 L .42642 .27356 L .46275 .26484 L .5 .2619 L .53725 .26484 L .57358 .27356 L .60809 .28786 L .63995 .30738 L .66836 .33164 L .69262 .36005 L .71214 .39191 L .72644 .42642 L .73516 .46275 L .7381 .5 L s P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{326, 326}, ImageMargins->{{76, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgI06JI09VI0IIIVJIIYVII/bII_nIIP3IVFJIVIVIVLbIVOnIV@3Ic6JIc9VIcI ofJIoiVIolbIoonIo`33Pl?3a0@414A4A8B4Qo`00COl20:Oo 0P1>o`00C?l00`3oo`2Yo`030?oo04_o001:o`80[Ol204_o0018o`80/Ol204Wo0017o`030?oo0;?o 00<0ool0A_l004Ko00<0ool0]Ol00`3oo`15o`00AOl00`3oo`2go`030?oo04Co0014o`030?oo0;Wo 00<0ool0@ol004;o0P2mo`80@ol0047o00<0ool0_ol00`3oo`10o`00@?l00`3oo`31o`030?oo03oo 000oo`030?oo0ol003_o00<0ool0bol00`3oo`0jo`00>Ol20?l00`3o o`3Ao`030?oo03Oo000go`030?oo0=?o00<0ool0=_l003Ko00<0ool0eOl00`3oo`0eo`00=Ol00`3o o`3Go`030?oo03Co000do`030?oo0=Wo00<0ool0?o00<0ool0;_l002ko00<0ool0iOl00`3oo`0]o`00;Ol00`3o o`3Wo`030?oo02co000/o`030?oo0>Wo00<0ool0:ol002_o00<0ool0jol00`3oo`0Zo`00:_l00`3o o`3]o`030?oo02Wo000Yo`030?oo0>oo00<0ool0:?l002Wo00<0ool0kol00`3oo`0Xo`00:?l00`3o o`3ao`030?oo02Oo000Wo`030?oo0??o00<0ool09_l002Ko00<0ool0mOl00`3oo`0Uo`009Ol00`3o o`3go`030?oo02Co000To`030?oo0?Wo00<0ool08ol002Co00<0ool0nOl00`3oo`0So`008ol00`3o o`3ko`030?oo02;o000So`030?oo0?_o00<0ool08_l002;o00<0ool0oOl00`3oo`0Qo`008Ol00`3o o`3oo`030?oo023o000Qo`030?oo0?oo00<0ool08?l0023o00<0ool0ool2o`030?oo01oo000Oo`03 0?oo0?oo1?l00`3oo`0No`007ol00`3oo`3oo`Co00<0ool07_l001ko00<0ool0ool6o`030?oo01go 000No`030?oo0?oo1_l00`3oo`0Mo`007Ol00`3oo`3oo`So00<0ool07?l001co00<0ool0O_l;083o 00<0ool06ol001co00<0ool0MOl900_o2@1go`030?oo01_o000Ko`030?oo073o1P0Mo`H0L_l00`3o o`0Jo`006_l00`3oo`1/o`D0:Ol506ko00<0ool06Ol001[o00<0ool0J_l203?o0P1/o`030?oo01Wo 000Io`030?oo06Wo0P0go`80Jol00`3oo`0Ho`006Ol00`3oo`1Wo`80>ol206Wo00<0ool06?l001So 00<0ool0I_l203oo0P1Xo`030?oo01Oo000Ho`030?oo06Co0P13o`80I_l00`3oo`0Go`005ol00`3o o`1So`80Aol206Go00<0ool05_l001Oo00<0ool0HOl204_o0P1So`030?oo01Ko000Fo`030?oo067o 00<0ool0COl00`3oo`1Qo`030?oo01Go000Fo`030?oo05oo0P1Ao`80HOl00`3oo`0Eo`005_l00`3o o`1Mo`80EOl205oo00<0ool05Ol001Go00<0ool0GOl00`3oo`1Go`030?oo05go00<0ool05?l001Go 00<0ool0G?l00`3oo`1Io`030?oo05co00<0ool05?l001Co00<0ool0Fol205go0P1Mo`030?oo01?o 000Do`030?oo05[o00<0ool0Gol00`3oo`1Jo`030?oo01?o000Co`030?oo05[o00<0ool0HOl00`3o o`1Jo`030?oo01;o000Co`030?oo05Wo00<0ool0Hol00`3oo`1Io`030?oo01;o000Co`030?oo05Oo 0P1Wo`80FOl00`3oo`0Bo`004_l00`3oo`1Go`030?oo06Wo00<0ool0Eol00`3oo`0Ao`004_l00`3o o`1Fo`030?oo06_o00<0ool0E_l00`3oo`0Ao`004Ol00`3oo`1Fo`030?oo06go00<0ool0E_l00`3o o`0@o`004Ol00`3oo`1Eo`030?oo06oo00<0ool0EOl00`3oo`0@o`004Ol00`3oo`1Eo`030?oo06oo 00<0ool0EOl00`3oo`0@o`004?l00`3oo`1Eo`030?oo077o00<0ool0EOl00`3oo`0?o`004?l00`3o o`1Do`030?oo07?o00<0ool0E?l00`3oo`0?o`003ol00`3oo`1Do`030?oo07Go00<0ool0E?l00`3o o`0>o`003ol00`3oo`1Co`030?oo07Oo00<0ool0Dol00`3oo`0>o`003ol00`3oo`1Co`030?oo07Oo 00<0ool0Dol00`3oo`0>o`003_l00`3oo`1Co`030?oo07Wo00<0ool0Dol00`3oo`0=o`003_l00`3o o`1Bo`030?oo07_o00<0ool0D_l00`3oo`0=o`003_l00`3oo`1Ao`030?oo07go00<0ool0DOl00`3o o`0=o`003_l00`3oo`1Ao`030?oo07go00<0ool0DOl00`3oo`0=o`003Ol00`3oo`1Ao`030?oo07oo 00<0ool0DOl00`3oo`0o`030?oo08Oo00<0ool0C_l00`3oo`0;o`002ol00`3oo`1?o`030?oo08Oo00<0ool0Col00`3o o`0:o`002ol00`3oo`1>o`030?oo08Wo00<0ool0C_l00`3oo`0:o`002ol00`3oo`1>o`030?oo08Wo 00<0ool0C_l00`3oo`0:o`002ol00`3oo`1=o`030?oo08_o00<0ool0COl00`3oo`0:o`002_l00`3o o`1>o`030?oo08_o00<0ool0C_l00`3oo`09o`002_l00`3oo`1=o`030?oo08go00<0ool0COl00`3o o`09o`002_l00`3oo`1=o`030?oo08go00<0ool0COl00`3oo`09o`002_l00`3oo`1ol206Wo 00<0ool06?l001Wo00<0ool0JOl203Oo0P1[o`030?oo01So000Jo`030?oo06[o0P0co`80K?l00`3o o`0Io`006_l00`3oo`1/o`@0:ol406ko00<0ool06Ol001_o00<0ool0Kol601oo1P1ao`030?oo01[o 000Lo`030?oo07Co2@0=o`T0M_l00`3oo`0Ko`007?l00`3oo`1mo`d0Ool00`3oo`0Ko`007Ol00`3o o`3oo`So00<0ool07?l001ko00<0ool0ool6o`030?oo01go000No`030?oo0?oo1_l00`3oo`0Mo`00 7ol00`3oo`3oo`Co00<0ool07_l001oo00<0ool0ool4o`030?oo01ko000Po`030?oo0?oo0_l00`3o o`0Oo`008Ol00`3oo`3oo`030?oo023o000Qo`030?oo0?oo00<0ool08?l002;o00<0ool0oOl00`3o o`0Qo`008ol00`3oo`3ko`030?oo02;o000So`030?oo0?_o00<0ool08_l002Co00<0ool0nOl00`3o o`0So`009?l00`3oo`3io`030?oo02?o000Uo`030?oo0?Oo00<0ool09?l002Ko00<0ool0mOl00`3o o`0Uo`009ol00`3oo`3co`030?oo02Ko000Xo`030?oo0?7o00<0ool09ol002Wo00<0ool0kol00`3o o`0Xo`00:Ol00`3oo`3_o`030?oo02So000Zo`030?oo0>go00<0ool0:Ol002_o00<0ool0jol00`3o o`0Zo`00;?l00`3oo`3Yo`030?oo02_o000]o`030?oo0>Oo00<0ool0;?l002ko00<0ool0iOl00`3o o`0]o`00;ol00`3oo`3So`030?oo02ko000`o`030?oo0>7o00<0ool0;ol0037o00<0ool0gol00`3o o`0`o`00_l003_o 00<0ool0bol00`3oo`0jo`00??l00`3oo`39o`030?oo03_o000mo`030?oo0o`00D?l20:7o0P1Ao`00D_l209go0P1Co`00E?l00`3oo`2Io`030?oo05?o001Eo`80Uol205Ko 001Go`030?oo09?o00<0ool0E_l005So0P2Ao`80FOl005[o0P2=o`80Fol005co0P29o`80GOl005ko 0P25o`80Gol0063o0`1oo`<0HOl006?o0P1ko`80I?l006Go0P1go`80I_l006Oo0`1ao`<0J?l006[o 0P1]o`80Jol006co0`1Wo`<0KOl006oo0P1So`80L?l0077o0`1Mo`<0L_l007Co101Eo`@0MOl007So 101=o`@0NOl007co1015o`@0OOl0083o100mo`@0POl008Co100eo`@0QOl008So200Uo`P0ROl0093o 300=o``0TOl009co3@2Mo`00oom7o`00oom7o`00oom7o`00oom7o`00oom7o`00oom7o`00oom7o`00 \ \>"], ImageRangeCache->{{{0, 325}, {325, 0}} -> {-5.25006, -5.25006, 0.032308, 0.032308}}] }, Open ]] }, FrontEndVersion->"Microsoft Windows 3.0", ScreenRectangle->{{0, 800}, {0, 544}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{464, 404}, WindowMargins->{{111, Automatic}, {Automatic, 19}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False} ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "Fiber"->{ Cell[19786, 1144, 180, 5, 48, "Input", CellTags->{"Fiber", "optical fibers", "optical components"}]}, "optical fibers"->{ Cell[19786, 1144, 180, 5, 48, "Input", CellTags->{"Fiber", "optical fibers", "optical components"}]}, "optical components"->{ Cell[19786, 1144, 180, 5, 48, "Input", CellTags->{"Fiber", "optical fibers", "optical components"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"Fiber", 34950, 1462}, {"optical fibers", 35084, 1465}, {"optical components", 35222, 1468} } *) (*NotebookFileOutline Notebook[{ Cell[1709, 49, 51, 0, 105, "Title"], Cell[1763, 51, 400, 10, 72, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[2188, 65, 172, 6, 66, "Input"], Cell[2363, 73, 17099, 1056, 43, 14274, 1014, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]], Cell[19477, 1132, 284, 8, 53, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[19786, 1144, 180, 5, 48, "Input", CellTags->{"Fiber", "optical fibers", "optical components"}], Cell[19969, 1151, 14155, 285, 334, 1805, 126, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)