## On this page # Example 03 - Mathematica Last update: 17.07.2025 # Mathematica (* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 51281, 1430] NotebookOptionsPosition[ 44132, 1248] NotebookOutlinePosition[ 44477, 1263] CellTagsIndexPosition[ 44434, 1260] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Mathematica Standalone Example 03", "Title", CellChangeTimes->{{3.839688029061371*^9, 3.839688029333041*^9}, { 3.839688063060649*^9, 3.839688078509552*^9}, {3.8396914797351103`*^9, 3.839691482944421*^9}, {3.83969464010014*^9, 3.83969464022024*^9}},ExpressionUUID->"adcdcb2e-e3aa-4968-afb9-\ c9a0bf176f4e"], Cell[CellGroupData[{ Cell["Open File and Optimize", "Chapter", CellChangeTimes->{{3.8396881035725594`*^9, 3.839688112297448*^9}, { 3.8396914862400026`*^9, 3.8396914901911945`*^9}, {3.839694643021407*^9, 3.839694647527952*^9}},ExpressionUUID->"af09c4e4-b16a-4b4b-8296-\ 2d4ea364bd93"], Cell["<\ An API file \ (\[Ellipsis]\\Samples\\API\\[language]\\e01_new_file_and_quickfocus.zmx) is \ opened, and some surfaces and radii are made variable. A merit function which \ constrains air and material thicknesses, and targets astigmatism and coma, is \ generated manually by inserting operands and adjusting parameter values. The \ local optimizer is run to completion, and then the hammer optimizer is run \ for 10 seconds.\ >", "Text", CellChangeTimes->{{3.8396881291975994`*^9, 3.8396881300308065`*^9}, { 3.839688228998783*^9, 3.839688243597742*^9}, 3.839691532616377*^9, 3.839694658135377*^9},ExpressionUUID->"031406de-3a3b-44d4-b1e5-\ 4ed8b4ea7dd3"], Cell[CellGroupData[{ Cell["1. Set up the interface", "Section", CellChangeTimes->{{3.8396882595581264`*^9, 3.8396882638859687`*^9}},ExpressionUUID->"53ae55f3-0e50-44c9-9688-\ 80ca29e89ad8"], Cell[CellGroupData[{ Cell["Install Mathematica\[CloseCurlyQuote]s NETLink context", "Subsection", CellChangeTimes->{{3.8396882777989693`*^9, 3.8396882855614657`*^9}},ExpressionUUID->"61de9353-63b2-4af6-8cb3-\ 30e4378af483"], Cell[BoxData[ RowBox[{"Needs", "[", "\"<NETLink`>\"", "]"}]], "Input", CellFrame->True, CellMargins->{{30, 0}, {15, 0}}, CellChangeTimes->{{3.839688289624405*^9, 3.8396883024261284`*^9}}, Background->GrayLevel[ 0.85],ExpressionUUID->"26cf0808-5fbc-4682-ae80-f02f71329fc6"] }, Open ]], Cell[CellGroupData[{ Cell["<\ Set a default directory and define the path to the ZOS-API libraries\ >", "Subsection", CellChangeTimes->{{3.8396883515947313`*^9, 3.839688361481258*^9}},ExpressionUUID->"4162094d-fdad-4946-be08-\ 06b049674ecc"], Cell[BoxData[{ RowBox[{ RowBox[{"LoadNETType", "[", "\"<Microsoft.Win32.Registry>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zemaxData", " ", "=", " ", RowBox[{"Registry`GetValue", "[", RowBox[{ "\"<HKEY_CURRENT_USER\\\\Software\\\\Zemax>\"", ",", " ", "\"<ZemaxRoot>\"", ",", " ", RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"samplesDir", "=", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"zemaxData", ",", " ", "\"<\\\\Samples>\""}], "}"}], "]"}]}], ";"}]}], "Input", CellFrame->True, CellMargins->{{30, 0}, {15, 0}}, CellChangeTimes->{{3.839688289624405*^9, 3.8396883024261284`*^9}, 3.8396886173866596`*^9}, Background->GrayLevel[ 0.85],ExpressionUUID->"54385ac0-f9be-4cb4-b287-85428b1a075a"] }, Open ]], Cell[CellGroupData[{ Cell["Initialize the connection", "Subsection", CellChangeTimes->{{3.839688395302744*^9, 3.8396883991473007`*^9}},ExpressionUUID->"139baf7b-e384-4b06-a46c-\ d568840fec98"], Cell[BoxData[{ RowBox[{ RowBox[{"netHelper", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ "zemaxData", ",", " ", "\"<\\\\ZOS-API\\\\Libraries\\\\ZOSAPI_NetHelper.dll>\""}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LoadNETAssembly", "[", "netHelper", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "LoadNETType", "[", "\"<ZOSAPI_NetHelper.ZOSAPI_Initializer>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"success", " ", "=", " ", RowBox[{"ZOSAPIUInitializer`Initialize", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Note", " ", "--"}], " ", "uncomment", " ", "the", " ", "following", " ", "line", " ", "to", " ", "use", " ", "a", " ", "custom", " ", "initialization", " ", "path"}], "*)"}]}], "\n", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"success", " ", "=", " ", RowBox[{ "ZOSAPIUInitializer`Initialize", "[", "\"<C:\\\\Program Files\\\\OpticStudio>\"", "]"}]}], ";"}], "*)"}]}]}], "Input", CellFrame->True, CellMargins->{{30, 0}, {15, 0}}, CellChangeTimes->CompressedData[" 1:eJwdzlkowwEAx/FNjkc5XiTHyrQHWv5W7mPI/isNf4Y8TMyRTITQHDmSuaXF CLmfPIwHuYqtSSZXItKMeKD+I+SI/uX/+z98+7x+BUVVVIkTj8fzZ4POklfJ oDstTffQxMMYFbk/501L7X5KK6z+aSi4Zn0ibZzhanFYQxAtrcvdS4T8neEU OLYQI4M7F8898NBN2Qejhm7eYL1G9gkV/pZfqBOMeDeyZtTeCWH+5UowTDOO jMIQp+NJaPG0LED+y9YSPA1q3oDZJv4mvLW7XEBdU4QNTrsW3kNf5fIjHDPE 0pAQTDlg+dniO4zMa/6C3zelPlpWayETAFcPHMEw1ZAugsWmjjCo7PchoIhg EqC50pgMeUw7CVt7JxSQ6K7Mgx8nKjUMFK6WteHz8YhzoPOhZZZVq/JqhVTS YBdsjF7nrGkaN0NTzjanXkzoKSEtvdIy8/BdvrYB62d2tyH1lxmaxbpL9sdB fdS5DGoqdHL4DxfM5Zo= "], TextAlignment->AlignmentMarker, Background->GrayLevel[ 0.85],ExpressionUUID->"5cf4330c-b82c-4c0d-a89e-6ed15bb6b72d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{"success", " ", "\[Equal]", " ", "True"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"found", "=", "\"<Found OpticStudio at: >\""}], ";", "\[IndentingNewLine]", RowBox[{"location", "=", RowBox[{"ToString", "[", RowBox[{"ZOSAPIUInitializer`GetZemaxDirectory", "[", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"found", "<>", "location"}]}], "\[IndentingNewLine]", "}"}], ",", " ", "\"<Failed to connect!>\""}], "]"}]], "Input", CellFrame->True, CellMargins->{{30, 0}, {15, 0}}, CellChangeTimes->{{3.766252021260979*^9, 3.76625203846459*^9}, { 3.7689155751212254`*^9, 3.7689156132860904`*^9}, {3.7690273461510496`*^9, 3.7690273494975615`*^9}, 3.769032225376509*^9, {3.7776643069851527`*^9, 3.7776644478785586`*^9}, {3.777664478956308*^9, 3.7776645110639772`*^9}, { 3.7776645846413746`*^9, 3.7776645987933607`*^9}, {3.777664639080394*^9, 3.77766475072039*^9}, {3.777664890569967*^9, 3.777664899544757*^9}}, TextAlignment->AlignmentMarker, Background->GrayLevel[ 0.85],ExpressionUUID->"7a41d7e6-815b-4c28-8622-11755d6f8fe6"], Cell[BoxData[ RowBox[{"{", "<\"Found OpticStudio at: c:\\\\program files\\\\zemax \ opticstudio 21.3.1\">", "}"}]], "Output", CellChangeTimes->{ 3.843920769793024*^9, 3.84392085119652*^9, 3.8439212906899757`*^9, 3.84392137334933*^9, {3.8439217596654644`*^9, 3.84392178265172*^9}, 3.8457342085647526`*^9},ExpressionUUID->"d5b6864f-c73f-4389-9feb-\ 5b564fee3343"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Load assemblies", "Subsection", CellChangeTimes->{{3.8396884196575794`*^9, 3.839688422125188*^9}},ExpressionUUID->"5027ec65-7844-440a-9957-\ 32e528754b72"], Cell[BoxData[{ RowBox[{ RowBox[{"zosapi", "=", RowBox[{"LoadNETAssembly", "[", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"location", ",", " ", "\"<\\\\ZOSAPI.dll>\""}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"interfaces", "=", RowBox[{"LoadNETAssembly", "[", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"location", ",", " ", "\"<\\\\ZOSAPI_Interfaces.dll>\""}], "}"}], "]"}], "]"}]}], ";"}]}], "Input", CellFrame->True, CellMargins->{{30, 0}, {15, 0}}, CellChangeTimes->{{3.766252021260979*^9, 3.76625203846459*^9}, { 3.7689155751212254`*^9, 3.7689156132860904`*^9}, {3.7690273461510496`*^9, 3.7690273494975615`*^9}, 3.769032225376509*^9, {3.7776647722745123`*^9, 3.777664779816164*^9}, {3.7776648220254173`*^9, 3.7776648750010605`*^9}, { 3.777664906297093*^9, 3.77766495188325*^9}, {3.7776650686907253`*^9, 3.777665069416005*^9}, {3.7776652098156643`*^9, 3.777665266344265*^9}, { 3.7776655899029236`*^9, 3.7776655942636356`*^9}}, TextAlignment->AlignmentMarker, Background->GrayLevel[ 0.85],ExpressionUUID->"685d49d6-f355-423d-951d-aca7f06ab9a7"] }, Open ]], Cell[CellGroupData[{ Cell["Open connection and create the application", "Subsection", CellChangeTimes->{{3.839688440804923*^9, 3.839688449586424*^9}},ExpressionUUID->"86745ed3-03a5-4718-9345-\ 10d7835595e0"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Open", " ", "connection", " ", "and", " ", "create", " ", "an", " ", "application"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"theConnection", "=", RowBox[{"NETNew", "[", "\"<ZOSAPI.ZOSAPI_Connection>\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"theApplication", "=", RowBox[{"theConnection", "@", RowBox[{"CreateNewApplication", "[", "]"}]}]}], ";"}]}]}]], "Input", CellFrame->True, CellMargins->{{30, 0}, {15, 0}}, CellChangeTimes->{{3.7662520483944936`*^9, 3.7662520734968863`*^9}, { 3.768915627725685*^9, 3.768915643519889*^9}, {3.7772185086530094`*^9, 3.777218518629236*^9}, {3.7772294462356577`*^9, 3.777229452653195*^9}, { 3.77730155688553*^9, 3.7773015575657034`*^9}, {3.7773020419798145`*^9, 3.777302042756255*^9}, {3.777664956463653*^9, 3.7776649571358194`*^9}, { 3.777665070624301*^9, 3.777665071288994*^9}}, TextAlignment->AlignmentMarker, Background->GrayLevel[ 0.85],ExpressionUUID->"90915513-4d1f-4687-b85d-f3e4e3702fe6"] }, Open ]], Cell[CellGroupData[{ Cell["Perform final checks regarding the connection", "Subsection", CellChangeTimes->{{3.839688440804923*^9, 3.839688449586424*^9}, { 3.843920456492786*^9, 3.84392046597336*^9}},ExpressionUUID->"fd7b2876-5282-423b-83ea-\ de0751781626"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Check", " ", "that", " ", "a", " ", "connection", " ", "was", " ", "established"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NETObjectQ", "[", "theApplication", "]"}], " ", "\[Equal]", " ", "False"}], ",", " ", "\"<An unknown connection error occurred!>\"", ",", " ", RowBox[{"\"<>\"", ";"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Check", " ", "license", " ", "status"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"theApplication", "@", "IsValidLicenseForAPI"}], "\[Equal]", " ", "False"}], ",", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"theApplication", "@", RowBox[{"CloseApplication", "[", "]"}]}], ";", "\[IndentingNewLine]", "\"<License check failed!>\""}], "}"}], ",", " ", "\"<>\""}], "]"}], ";"}]}]}]], "Input", CellFrame->True, CellMargins->{{30, 0}, {15, 0}}, CellChangeTimes->{{3.7662520483944936`*^9, 3.7662520734968863`*^9}, { 3.768915627725685*^9, 3.768915643519889*^9}, {3.7772185086530094`*^9, 3.777218518629236*^9}, {3.7772294462356577`*^9, 3.777229452653195*^9}, { 3.77730155688553*^9, 3.7773015575657034`*^9}, {3.7773020419798145`*^9, 3.777302042756255*^9}, {3.777664956463653*^9, 3.7776649571358194`*^9}, { 3.777665070624301*^9, 3.777665071288994*^9}, {3.843920470808078*^9, 3.843920479987147*^9}, {3.843920675890939*^9, 3.8439207507653284`*^9}, { 3.843920860815098*^9, 3.8439208866187506`*^9}, {3.843920930850752*^9, 3.8439209876787605`*^9}, {3.84392132838673*^9, 3.8439213378825197`*^9}, { 3.8439213956365037`*^9, 3.8439214804519625`*^9}, {3.8439215543612347`*^9, 3.8439215970057573`*^9}, {3.843921738136207*^9, 3.843921739947053*^9}}, TextAlignment->AlignmentMarker, Background->GrayLevel[ 0.85],ExpressionUUID->"3a07743c-5a36-457a-88e7-c2d8189e0971"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2. Import Modules", "Section", CellChangeTimes->{{3.8396886714301157`*^9, 3.8396886750288715`*^9}},ExpressionUUID->"35d9530a-8a27-4d91-a844-\ e88e593606d6"], Cell[CellGroupData[{ Cell["Module to view the LDE information", "Subsection", CellChangeTimes->{{3.8396886879175005`*^9, 3.8396887081567287`*^9}},ExpressionUUID->"f6e9a53a-a89d-42d5-b3a4-\ b1483f62b928"], Cell[BoxData[ RowBox[{"displayLDE", ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"numberofsurfaces", ",", "LDEdata", ",", "tempsurf"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"numberofsurfaces", "=", RowBox[{"theLDE", "@", "NumberOfSurfaces"}]}], ";", "\[IndentingNewLine]", RowBox[{"LDEdata", " ", "=", " ", RowBox[{"Table", "[", RowBox[{",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "numberofsurfaces"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tempsurf", " ", "=", " ", RowBox[{"theLDE", "@", RowBox[{"GetSurfaceAt", "[", "j", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", "SurfaceNumber"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "2"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", RowBox[{"Type", "@", RowBox[{"ToString", "[", "\"<>\"", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "3"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", "Comment"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "4"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", "Radius"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "5"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", "Conic"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "6"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", "Thickness"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "7"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", "Material"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "8"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", "Coating"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LDEdata", "[", RowBox[{"[", RowBox[{ RowBox[{"j", "+", "1"}], ",", "9"}], "]"}], "]"}], "=", RowBox[{"tempsurf", "@", "SemiDiameter"}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"numberofsurfaces", "-", "1"}], ",", "1"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"LDEdata", ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"<surface #>\"", ",", "\"<surface type>\"", ",", "\"<comment>\"", ",", "\"<ROC>\"", ",", "\"<conic>\"", ",", "\"<thickness>\"", ",", "\"<material>\"", ",", "\"<coating>\"", ",", "\"<semi-diameter>\""}], "}"}]}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellFrame->True, CellMargins->{{30, 0}, {0, 0}}, TextAlignment->AlignmentMarker, Background->GrayLevel[ 0.85],ExpressionUUID->"fd18320c-a42c-415a-9d08-66324e7d9cb6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3. Open file and map surfaces", "Section", CellChangeTimes->{{3.8396948427743645`*^9, 3.8396948460147085`*^9}, { 3.8396950334375963`*^9, 3.839695036349848*^9}},ExpressionUUID->"fb149073-a264-435d-b0e2-\ d746160eb176"], Cell[CellGroupData[{ Cell["Generate a Mathematica API folder", "Subsection", CellChangeTimes->{{3.839695085951501*^9, 3.839695090625388*^9}},ExpressionUUID->"58364639-b51b-47ab-9dd0-\ 83f69add2d67"], Cell[BoxData[{ RowBox[{ RowBox[{"apiDir", "=", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"samplesDir", ",", " ", "\"<\\\\API\\\\Mathematica>\""}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"DirectoryQ", "[", "apiDir", "]"}], "\[Equal]", "False"}], ",", " ", RowBox[{"CreateDirectory", "[", "apiDir", "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.839689080870589*^9, 3.8396890811783457`*^9}},ExpressionUUID->"f35c7965-8e95-41d5-b4c9-\ fcfef77d990f"] }, Open ]], Cell[CellGroupData[{ Cell["Set up primary optical system and open file", "Subsection", CellChangeTimes->{{3.8396951008367195`*^9, 3.8396951162900267`*^9}},ExpressionUUID->"d154a861-caa4-4f98-986e-\ 08f24b7577f6"], Cell[BoxData[ RowBox[{ RowBox[{"theSystem", "=", RowBox[{"theApplication", "@", RowBox[{"PrimarySystem", "[", "]"}]}]}], ";"}]], "Input",ExpressionUUID->\ "aedf5ad3-fba2-40a6-b7ea-da1c6d89122b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Try", " ", "to", " ", "open", " ", "the", " ", "file", " ", "from", " ", "Example", " ", "1"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"testFile", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ "apiDir", ",", " ", "\"<e01_new_file_and_quickfocus.zmx>\""}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"FileExistsQ", "[", "testFile", "]"}], "\[Equal]", "False"}], ",", " ", RowBox[{"(", RowBox[{ RowBox[{ "Print", "[", "\"<You need to run Example 01 before running this example>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"theApplication", "@", RowBox[{"CloseApplication", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Abort", "[", "]"}], ";"}], ")"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.8396951854730997`*^9, 3.83969528934449*^9}, { 3.8396953336859703`*^9, 3.839695348448591*^9}, {3.839695468888833*^9, 3.8396954999504395`*^9}, {3.839695532713868*^9, 3.8396955388353806`*^9}, { 3.8396955853667445`*^9, 3.839695643427434*^9}, {3.8396957315246267`*^9, 3.839695744336132*^9}, {3.83969577906583*^9, 3.839695808014777*^9}},ExpressionUUID->"69e910cb-384d-4ac1-a2d0-\ 9f4ffe8c3618"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"If", " ", "the", " ", "file", " ", "is", " ", "found"}], ",", " ", RowBox[{"load", " ", "it"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"theSystem", "@", RowBox[{"LoadFile", "[", RowBox[{"testFile", ",", " ", "False"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lensFile", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"apiDir", ",", " ", "\"<e03_open_file_and_optimise.zmx>\""}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"theSystem", "@", RowBox[{"SaveAs", "[", "lensFile", "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.839695862067868*^9, 3.839696050103665*^9}},ExpressionUUID->"7c300fff-56a9-4783-8c31-\ 2cd45a6490a0"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Pull", " ", "surfaces", " ", "into", " ", "API"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"theLDE", " ", "=", " ", RowBox[{"theSystem", "@", "LDE"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.839696058338149*^9, 3.8396960885603247`*^9}},ExpressionUUID->"e1439ee7-c69d-4e9c-89db-\ 90662d71c072"], Cell[CellGroupData[{ Cell[BoxData["displayLDE"], "Input", CellFrame->True, CellMargins->{{66, 10}, {0, 8}}, CellChangeTimes->{{3.7687432644016266`*^9, 3.7687432659112825`*^9}}, TextAlignment-> AlignmentMarker,ExpressionUUID->"8489b7a5-b5db-4551-981c-42dd4cad4982"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["<\"surface #\">", HoldForm], TagBox["<\"surface type\">", HoldForm], TagBox["<\"comment\">", HoldForm], TagBox["<\"ROC\">", HoldForm], TagBox["<\"conic\">", HoldForm], TagBox["<\"thickness\">", HoldForm], TagBox["<\"material\">", HoldForm], TagBox["<\"coating\">", HoldForm], TagBox["<\"semi-diameter\">", HoldForm]}, {"0", "<\"Standard\">", "<\"\">", "\[Infinity]", "0.`", "\[Infinity]", "<\"\">", "<\"\">", "\[Infinity]"}, {"1", "<\"Standard\">", "<\"Stop is free to move\">", "\[Infinity]", "0.`", "50.`", "<\"\">", "<\"\">", "20.`"}, {"2", "<\"Standard\">", "<\"Front of lens\">", "100.`", "0.`", "10.`", "<\"N-BK7\">", "<\"\">", "24.644271308340777`"}, {"3", "<\"Standard\">", "<\"Rear of lens\">", "187.10333506602882`", "0.`", "376.8096884835882`", "<\"\">", "<\"\">", "24.39439421910087`"}, {"4", "<\"Standard\">", "<\"\">", "\[Infinity]", "0.`", "\[Infinity]", "<\"\">", "<\"\">", "34.03848404004736`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, { "surface #", "surface type", "comment", "ROC", "conic", "thickness", "material", "coating", "semi-diameter"}}]]]], "Output", CellFrame->True, CellMargins->{{66, 10}, {12, 0}}, CellChangeTimes->{ 3.768743266989798*^9, 3.7687452099422946`*^9, 3.7687452660911894`*^9, 3.7690318506843057`*^9, 3.7690381241115108`*^9, 3.7690381894261456`*^9, 3.7690383002104435`*^9, 3.7691074530834055`*^9, 3.76910832773925*^9, 3.769108505428296*^9, 3.769108965218915*^9, 3.7691093645549984`*^9, 3.7691095158535037`*^9, 3.769109658819937*^9, 3.769111013477272*^9, 3.7691143191602373`*^9, 3.769114625776077*^9, 3.7748958287705812`*^9, 3.7748959627118645`*^9, 3.7748961368826046`*^9, 3.778438620134506*^9, 3.7784386727747736`*^9, 3.8396905446298037`*^9, 3.839691163500985*^9, 3.8396922541366854`*^9, 3.839692295872362*^9, 3.8396945691331325`*^9, 3.839696137011492*^9, {3.839696928091839*^9, 3.839696985265033*^9}, 3.8396975995041738`*^9, 3.8396978605980225`*^9, 3.8396979814961147`*^9, 3.8396980350318413`*^9, 3.8396985753534803`*^9, 3.8457325515092783`*^9, 3.8457342131087694`*^9}, TextAlignment->AlignmentMarker, Background->RGBColor[ 0.854902, 0.85098, 0.843137],ExpressionUUID->"55a1864d-b709-4c38-b113-622fba887aa6"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"surf1", " ", "=", " ", RowBox[{"theLDE", "@", RowBox[{"GetSurfaceAt", "[", "1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"surf2", " ", "=", " ", RowBox[{"theLDE", "@", RowBox[{"GetSurfaceAt", "[", "2", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"surf3", " ", "=", " ", RowBox[{"theLDE", "@", RowBox[{"GetSurfaceAt", "[", "3", "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.8396961441210327`*^9, 3.8396961873953543`*^9}},ExpressionUUID->"461ab2e2-ae50-4488-9fd1-\ 8b3fc1b1c075"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Make", " ", "thickness", " ", "and", " ", "radii", " ", "variable"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"surf1", "@", RowBox[{"ThicknessCell", "@", RowBox[{"MakeSolveVariable", "[", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"surf2", "@", RowBox[{"ThicknessCell", "@", RowBox[{"MakeSolveVariable", "[", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"surf2", "@", RowBox[{"RadiusCell", "@", RowBox[{"MakeSolveVariable", "[", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"surf3", "@", RowBox[{"ThicknessCell", "@", RowBox[{"MakeSolveVariable", "[", "]"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.839696193781109*^9, 3.8396962583181906`*^9}},ExpressionUUID->"02031cec-c15f-4b04-9651-\ 6c9629b89d06"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["4. Edit the Merit Function", "Section", CellChangeTimes->{{3.8396962903284464`*^9, 3.8396963007310963`*^9}},ExpressionUUID->"689ed499-bdb5-44fd-963b-\ 3e1dee029a0f"], Cell[CellGroupData[{ Cell["Access the MFE to add operands", "Subsection", CellChangeTimes->{{3.839696306987582*^9, 3.839696335627136*^9}},ExpressionUUID->"d2904322-4b9e-4472-815e-\ 0518898c0590"], Cell[BoxData[ RowBox[{ RowBox[{"theMFE", " ", "=", " ", RowBox[{"theSystem", "@", "MFE"}]}], ";"}]], "Input", CellChangeTimes->{{3.8396963378844337`*^9, 3.8396963752772074`*^9}},ExpressionUUID->"222d6b32-3adb-4564-8f32-\ e4af7fb79939"] }, Open ]], Cell[CellGroupData[{ Cell["Begin adding operands to the Merit Function Editor", "Subsection", CellChangeTimes->{{3.839696347895248*^9, 3.8396963653347816`*^9}},ExpressionUUID->"25f436a4-ec9c-41fc-af2c-\ dab186cc21ea"], Cell[BoxData[ RowBox[{ RowBox[{ "LoadNETType", "[", "\"<ZOSAPI.Editors.MFE.MeritOperandType>\"", "]"}], ";"}]], "Input", CellChangeTimes->{{3.83969636708532*^9, 3.8396963863989153`*^9}, 3.839696489725381*^9, {3.839697707975333*^9, 3.839697722083042*^9}, { 3.839697754876647*^9, 3.839697755694847*^9}, {3.839697839708581*^9, 3.8396978398920317`*^9}},ExpressionUUID->"bb6a8942-2d7e-422e-b2d9-\ 9c3385c57d2e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Operand", " ", "to", " ", "control", " ", "astigmatism"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op1", " ", "=", " ", RowBox[{"theMFE", "@", RowBox[{"GetOperandAt", "[", "1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"op1", "@", RowBox[{"ChangeType", "[", "MeritOperandType`ASTI", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op1", "@", "Target"}], " ", "=", " ", "0.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op1", "@", "Weight"}], " ", "=", " ", "10.0"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.8396964948664036`*^9, 3.8396965630656595`*^9}},ExpressionUUID->"5e8acf5c-9e28-4fa0-a0c6-\ aa6c7d2a71e4"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Operand", " ", "to", " ", "control", " ", "coma"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op2", " ", "=", " ", RowBox[{"theMFE", "@", RowBox[{"InsertNewOperandAt", "[", "2", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"op2", "@", RowBox[{"ChangeType", "[", "MeritOperandType`COMA", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op2", "@", "Target"}], " ", "=", " ", "0.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op2", "@", "Weight"}], " ", "=", " ", "1.0"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.839696566006926*^9, 3.8396966270030384`*^9}, { 3.8396966639218407`*^9, 3.839696664192365*^9}, {3.83969700693433*^9, 3.8396970097500596`*^9}, {3.8396974678384485`*^9, 3.8396974715978026`*^9}, { 3.8396975549070234`*^9, 3.8396975562164288`*^9}, {3.839697964443158*^9, 3.839697970990511*^9}},ExpressionUUID->"7a4677a9-9b21-482f-b30c-\ 607464464708"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Boundary", " ", "operands", " ", "for", " ", "constraining", " ", "air", " ", "and", " ", "glass"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op3", " ", "=", " ", RowBox[{"theMFE", "@", RowBox[{"InsertNewOperandAt", "[", "3", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"op3", "@", RowBox[{"ChangeType", "[", "MeritOperandType`MNCA", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op3", "@", "Target"}], " ", "=", " ", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op3", "@", "Weight"}], " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op3", "@", RowBox[{ RowBox[{"GetCellAt", "[", "2", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op3", "@", RowBox[{ RowBox[{"GetCellAt", "[", "3", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"op4", " ", "=", " ", RowBox[{"theMFE", "@", RowBox[{"InsertNewOperandAt", "[", "4", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"op4", "@", RowBox[{"ChangeType", "[", "MeritOperandType`MXCA", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op4", "@", "Target"}], " ", "=", " ", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op4", "@", "Weight"}], " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op4", "@", RowBox[{ RowBox[{"GetCellAt", "[", "2", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op4", "@", RowBox[{ RowBox[{"GetCellAt", "[", "3", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"op5", "=", " ", RowBox[{"theMFE", "@", RowBox[{"InsertNewOperandAt", "[", "5", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"op5", "@", RowBox[{"ChangeType", "[", "MeritOperandType`MNEA", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op5", "@", "Target"}], " ", "=", " ", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op5", "@", "Weight"}], " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op5", "@", RowBox[{ RowBox[{"GetCellAt", "[", "2", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op5", "@", RowBox[{ RowBox[{"GetCellAt", "[", "3", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"op6", " ", "=", " ", RowBox[{"theMFE", "@", RowBox[{"InsertNewOperandAt", "[", "6", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"op6", "@", RowBox[{"ChangeType", "[", "MeritOperandType`MNCG", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op6", "@", "Target"}], " ", "=", " ", "3.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op6", "@", "Weight"}], " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op6", "@", RowBox[{ RowBox[{"GetCellAt", "[", "2", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op6", "@", RowBox[{ RowBox[{"GetCellAt", "[", "3", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"op7", "=", " ", RowBox[{"theMFE", "@", RowBox[{"InsertNewOperandAt", "[", "7", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"op7", "@", RowBox[{"ChangeType", "[", "MeritOperandType`MXCG", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op7", "@", "Target"}], " ", "=", " ", "15.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op7", "@", "Weight"}], " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op7", "@", RowBox[{ RowBox[{"GetCellAt", "[", "2", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op7", "@", RowBox[{ RowBox[{"GetCellAt", "[", "3", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"op8", " ", "=", " ", RowBox[{"theMFE", "@", RowBox[{"InsertNewOperandAt", "[", "8", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"op8", "@", RowBox[{"ChangeType", "[", "MeritOperandType`MNEG", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op8", "@", "Target"}], " ", "=", " ", "3.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op8", "@", "Weight"}], " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op8", "@", RowBox[{ RowBox[{"GetCellAt", "[", "2", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"op8", "@", RowBox[{ RowBox[{"GetCellAt", "[", "3", "]"}], "@", "IntegerValue"}]}], " ", "=", " ", "3"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.839696566006926*^9, 3.839696888043726*^9}, { 3.839697119074359*^9, 3.8396971245286055`*^9}, {3.839697558708663*^9, 3.8396975784734344`*^9}, {3.8396978108921423`*^9, 3.839697831475945*^9}},ExpressionUUID->"910e481b-e8fe-469b-8e26-\ 4e6d46697c8c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["5. Optimize the system", "Section", CellChangeTimes->{{3.8396980955317373`*^9, 3.8396981033571453`*^9}},ExpressionUUID->"3baab05c-f250-4b57-8d6a-\ 34dc6280db73"], Cell[CellGroupData[{ Cell["Perform a local optimization until completion", "Subsection", CellChangeTimes->{{3.839698119953179*^9, 3.8396981320835085`*^9}},ExpressionUUID->"4ff9c41f-96f7-49ca-ae09-\ a48d74bb5859"], Cell[BoxData[ RowBox[{ RowBox[{"localOpt", " ", "=", " ", RowBox[{"theSystem", "@", RowBox[{"Tools", "@", RowBox[{"OpenLocalOptimization", "[", "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.839698138418665*^9, 3.8396981606179028`*^9}},ExpressionUUID->"a923775e-4434-48d6-ab00-\ 7f63b1279074"], Cell[BoxData[{ RowBox[{ RowBox[{ "LoadNETType", "[", "\"<ZOSAPI.Tools.Optimization.OptimizationAlgorithm>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "LoadNETType", "[", "\"<ZOSAPI.Tools.Optimization.OptimizationCycles>\"", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.8396981914353046`*^9, 3.8396982115346966`*^9}},ExpressionUUID->"168ba3bb-1471-4e12-9bcb-\ ca47bb710f55"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"localOpt", "@", "Algorithm"}], " ", "=", " ", "OptimizationAlgorithm`DampedLeastSquares"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"localOpt", "@", "Cycles"}], " ", "=", " ", "OptimizationCycles`Automatic"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"localOpt", "@", "NumberOfCores"}], " ", "=", " ", "8"}], ";"}]}], "Input", CellChangeTimes->{{3.839698163186371*^9, 3.8396981692650537`*^9}, { 3.839698222016061*^9, 3.8396982670908823`*^9}},ExpressionUUID->"d9f0c701-e893-45bf-88ac-\ 78be979f6f9c"], Cell[BoxData[ RowBox[{ RowBox[{"localOpt", "@", RowBox[{"RunAndWaitForCompletion", "[", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.839698269537122*^9, 3.839698277740673*^9}},ExpressionUUID->"4640cadc-1f9f-46f4-be2d-\ 321b4c71189a"], Cell[BoxData[ RowBox[{ RowBox[{"localOpt", "@", RowBox[{"Close", "[", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.839698280464808*^9, 3.8396982858195186`*^9}},ExpressionUUID->"14904af2-afae-4938-a582-\ 3aa55bd02944"] }, Open ]], Cell[CellGroupData[{ Cell["Run Hammer optimization for 10 seconds", "Subsection", CellChangeTimes->{{3.839698293237858*^9, 3.8396983004347954`*^9}},ExpressionUUID->"bcf2ab10-9f2c-4b3e-9742-\ 3d5dd207cef7"], Cell[BoxData[ RowBox[{ RowBox[{"hammerOpt", " ", "=", " ", RowBox[{"theSystem", "@", RowBox[{"Tools", "@", RowBox[{"OpenHammerOptimization", "[", "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.839698363257116*^9, 3.839698377702568*^9}},ExpressionUUID->"70472cf6-c2fc-461e-9fc1-\ 3ad3bd231763"], Cell[BoxData[{ RowBox[{ RowBox[{"hammerOpt", "@", RowBox[{"RunAndWaitWithTimeout", "[", "10", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hammerOpt", "@", RowBox[{"Cancel", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hammerOpt", "@", RowBox[{"WaitForCompletion", "[", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8396983796064186`*^9, 3.839698429846568*^9}},ExpressionUUID->"20347636-ae55-469a-a533-\ 936b9025ac76"], Cell[BoxData[ RowBox[{ RowBox[{"hammerOpt", "@", RowBox[{"Close", "[", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.839698413166522*^9, 3.8396984370124416`*^9}},ExpressionUUID->"c1d59925-c129-48a3-a1d8-\ f70f578df893"] }, Open ]], Cell[CellGroupData[{ Cell["Observe the effects of the optimization", "Subsection", CellChangeTimes->{{3.8396985571210003`*^9, 3.8396985625710044`*^9}},ExpressionUUID->"1b0dedd1-cf94-4b45-beda-\ c00238ec66dc"], Cell[CellGroupData[{ Cell[BoxData["displayLDE"], "Input", CellFrame->True, CellMargins->{{66, 10}, {0, 8}}, CellChangeTimes->{{3.7687432644016266`*^9, 3.7687432659112825`*^9}}, TextAlignment-> AlignmentMarker,ExpressionUUID->"c195f4c7-5d3f-4088-a2a1-aeb7f42f1239"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["<\"surface #\">", HoldForm], TagBox["<\"surface type\">", HoldForm], TagBox["<\"comment\">", HoldForm], TagBox["<\"ROC\">", HoldForm], TagBox["<\"conic\">", HoldForm], TagBox["<\"thickness\">", HoldForm], TagBox["<\"material\">", HoldForm], TagBox["<\"coating\">", HoldForm], TagBox["<\"semi-diameter\">", HoldForm]}, {"0", "<\"Standard\">", "<\"\">", "\[Infinity]", "0.`", "\[Infinity]", "<\"\">", "<\"\">", "\[Infinity]"}, {"1", "<\"Standard\">", "<\"Stop is free to move\">", "\[Infinity]", "0.`", "132.19078318694494`", "<\"\">", "<\"\">", "20.`"}, {"2", "<\"Standard\">", "<\"Front of lens\">", "1.6238934618805982`*^16", "0.`", "6.213029301585804`", "<\"N-BK7\">", "<\"\">", "31.565194951471003`"}, {"3", "<\"Standard\">", "<\"Rear of lens\">", RowBox[{"-", "206.72001380023795`"}], "0.`", "397.2360681077867`", "<\"\">", "<\"\">", "31.781688487836533`"}, {"4", "<\"Standard\">", "<\"\">", "\[Infinity]", "0.`", "\[Infinity]", "<\"\">", "<\"\">", "34.97782468480779`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"surface #", "surface type", "comment", "ROC", "conic", "thickness", "material", "coating", "semi-diameter"}}]]]], "Output", CellFrame->True, CellMargins->{{66, 10}, {12, 0}}, CellChangeTimes->{ 3.768743266989798*^9, 3.7687452099422946`*^9, 3.7687452660911894`*^9, 3.7690318506843057`*^9, 3.7690381241115108`*^9, 3.7690381894261456`*^9, 3.7690383002104435`*^9, 3.7691074530834055`*^9, 3.76910832773925*^9, 3.769108505428296*^9, 3.769108965218915*^9, 3.7691093645549984`*^9, 3.7691095158535037`*^9, 3.769109658819937*^9, 3.769111013477272*^9, 3.7691143191602373`*^9, 3.769114625776077*^9, 3.7748958287705812`*^9, 3.7748959627118645`*^9, 3.7748961368826046`*^9, 3.778438620134506*^9, 3.7784386727747736`*^9, 3.8396905446298037`*^9, 3.839691163500985*^9, 3.8396922541366854`*^9, 3.839692295872362*^9, 3.8396945691331325`*^9, 3.839696137011492*^9, {3.839696928091839*^9, 3.839696985265033*^9}, 3.8396975995041738`*^9, 3.8396978605980225`*^9, 3.8396979814961147`*^9, 3.8396980350318413`*^9, 3.8396985878562317`*^9, 3.8457325634788485`*^9, 3.845734225069013*^9}, TextAlignment->AlignmentMarker, Background->RGBColor[ 0.854902, 0.85098, 0.843137],ExpressionUUID->"02261723-683e-4e0e-817b-2f8b8f82e125"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["5. Save the file", "Section", CellChangeTimes->{{3.8396922140012035`*^9, 3.8396922157735577`*^9}},ExpressionUUID->"fc2c83cc-04c0-43e8-a5a2-\ 8a24bb26d936"], Cell[BoxData[ RowBox[{ RowBox[{"theSystem", "@", RowBox[{"Save", "[", "]"}]}], ";"}]], "Input", CellMargins->{{66, 10}, {5, 10}}, CellChangeTimes->{{3.768744844841243*^9, 3.7687448592927485`*^9}, { 3.769024012012724*^9, 3.769024021137352*^9}, {3.769031995005757*^9, 3.7690319962188597`*^9}, {3.7690391527312164`*^9, 3.769039153363533*^9}, { 3.8396960085249276`*^9, 3.8396960123001366`*^9}}, TextAlignment-> AlignmentMarker,ExpressionUUID->"44d95a15-cb87-48a9-93c3-5ed3b7cc7b32"] }, Open ]], Cell[CellGroupData[{ Cell["Close the application", "Section", CellChangeTimes->{{3.839688474058258*^9, 3.8396884761375017`*^9}},ExpressionUUID->"57164ee3-d71d-43df-97af-\ c2c8107e09ac"], Cell[BoxData[ RowBox[{ RowBox[{"theApplication", "@", RowBox[{"CloseApplication", "[", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.839688478377141*^9, 3.8396884894719977`*^9}, { 3.8396956032627416`*^9, 3.8396956092235527`*^9}, {3.839695725114539*^9, 3.8396957264476547`*^9}},ExpressionUUID->"49ae66ba-6c60-4029-a0a6-\ 3e09a324b9cc"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{958, 988}, WindowMargins->{{Automatic, -3024}, {Automatic, 0}}, FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 320, 5, 101, "Title", "ExpressionUUID" -> \ "adcdcb2e-e3aa-4968-afb9-c9a0bf176f4e"], Cell[CellGroupData[{ Cell[925, 31, 268, 4, 72, "Chapter", "ExpressionUUID" -> \ "af09c4e4-b16a-4b4b-8296-2d4ea364bd93"], Cell[1196, 37, 672, 12, 87, "Text", "ExpressionUUID" -> \ "031406de-3a3b-44d4-b1e5-4ed8b4ea7dd3"], Cell[CellGroupData[{ Cell[1893, 53, 172, 3, 70, "Section", "ExpressionUUID" -> \ "53ae55f3-0e50-44c9-9688-80ca29e89ad8"], Cell[CellGroupData[{ Cell[2090, 60, 206, 3, 49, "Subsection", "ExpressionUUID" -> \ "61de9353-63b2-4af6-8cb3-30e4378af483"], Cell[2299, 65, 281, 6, 48, "Input", "ExpressionUUID" -> \ "26cf0808-5fbc-4682-ae80-f02f71329fc6"] }, Open ]], Cell[CellGroupData[{ Cell[2617, 76, 226, 5, 49, "Subsection", "ExpressionUUID" -> \ "4162094d-fdad-4946-be08-06b049674ecc"], Cell[2846, 83, 825, 22, 87, "Input", "ExpressionUUID" -> \ "54385ac0-f9be-4cb4-b287-85428b1a075a"] }, Open ]], Cell[CellGroupData[{ Cell[3708, 110, 175, 3, 49, "Subsection", "ExpressionUUID" -> \ "139baf7b-e384-4b06-a46c-d568840fec98"], Cell[3886, 115, 1885, 50, 163, "Input", "ExpressionUUID" -> \ "5cf4330c-b82c-4c0d-a89e-6ed15bb6b72d"], Cell[CellGroupData[{ Cell[5796, 169, 1186, 24, 125, "Input", "ExpressionUUID" -> \ "7a41d7e6-815b-4c28-8622-11755d6f8fe6"], Cell[6985, 195, 375, 7, 63, "Output", "ExpressionUUID" -> \ "d5b6864f-c73f-4389-9feb-5b564fee3343"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7409, 208, 165, 3, 49, "Subsection", "ExpressionUUID" -> \ "5027ec65-7844-440a-9957-32e528754b72"], Cell[7577, 213, 1187, 26, 68, "Input", "ExpressionUUID" -> \ "685d49d6-f355-423d-951d-aca7f06ab9a7"] }, Open ]], Cell[CellGroupData[{ Cell[8801, 244, 190, 3, 49, "Subsection", "ExpressionUUID" -> \ "86745ed3-03a5-4718-9345-10d7835595e0"], Cell[8994, 249, 1094, 25, 87, "Input", "ExpressionUUID" -> \ "90915513-4d1f-4687-b85d-f3e4e3702fe6"] }, Open ]], Cell[CellGroupData[{ Cell[10125, 279, 241, 4, 49, "Subsection", "ExpressionUUID" -> \ "fd7b2876-5282-423b-83ea-de0751781626"], Cell[10369, 285, 2036, 44, 144, "Input", "ExpressionUUID" -> \ "3a07743c-5a36-457a-88e7-c2d8189e0971"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12454, 335, 166, 3, 70, "Section", "ExpressionUUID" -> \ "35d9530a-8a27-4d91-a844-e88e593606d6"], Cell[CellGroupData[{ Cell[12645, 342, 186, 3, 49, "Subsection", "ExpressionUUID" -> \ "f6e9a53a-a89d-42d5-b3a4-b1483f62b928"], Cell[12834, 347, 4098, 105, 376, "Input", "ExpressionUUID" -> \ "fd18320c-a42c-415a-9d08-66324e7d9cb6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16981, 458, 229, 4, 70, "Section", "ExpressionUUID" -> \ "fb149073-a264-435d-b0e2-d746160eb176"], Cell[CellGroupData[{ Cell[17235, 466, 181, 3, 49, "Subsection", "ExpressionUUID" -> \ "58364639-b51b-47ab-9dd0-83f69add2d67"], Cell[17419, 471, 557, 15, 50, "Input", "ExpressionUUID" -> \ "f35c7965-8e95-41d5-b4c9-fcfef77d990f"] }, Open ]], Cell[CellGroupData[{ Cell[18013, 491, 195, 3, 49, "Subsection", "ExpressionUUID" -> \ "d154a861-caa4-4f98-986e-08f24b7577f6"], Cell[18211, 496, 206, 5, 30, "Input", "ExpressionUUID" -> \ "aedf5ad3-fba2-40a6-b7ea-da1c6d89122b"], Cell[18420, 503, 1398, 34, 107, "Input", "ExpressionUUID" -> \ "69e910cb-384d-4ac1-a2d0-9f4ffe8c3618"], Cell[19821, 539, 861, 24, 88, "Input", "ExpressionUUID" -> \ "7c300fff-56a9-4783-8c31-2cd45a6490a0"], Cell[20685, 565, 374, 10, 50, "Input", "ExpressionUUID" -> \ "e1439ee7-c69d-4e9c-89db-90662d71c072"], Cell[CellGroupData[{ Cell[21084, 579, 249, 5, 41, "Input", "ExpressionUUID" -> \ "8489b7a5-b5db-4551-981c-42dd4cad4982"], Cell[21336, 586, 3190, 74, 130, "Output", "ExpressionUUID" -> \ "55a1864d-b709-4c38-b113-622fba887aa6"] }, Open ]], Cell[24541, 663, 587, 15, 69, "Input", "ExpressionUUID" -> \ "461ab2e2-ae50-4488-9fd1-8b3fc1b1c075"], Cell[25131, 680, 928, 28, 107, "Input", "ExpressionUUID" -> \ "02031cec-c15f-4b04-9651-6c9629b89d06"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26108, 714, 175, 3, 70, "Section", "ExpressionUUID" -> \ "689ed499-bdb5-44fd-963b-3e1dee029a0f"], Cell[CellGroupData[{ Cell[26308, 721, 178, 3, 49, "Subsection", "ExpressionUUID" -> \ "d2904322-4b9e-4472-815e-0518898c0590"], Cell[26489, 726, 246, 6, 30, "Input", "ExpressionUUID" -> \ "222d6b32-3adb-4564-8f32-e4af7fb79939"] }, Open ]], Cell[CellGroupData[{ Cell[26772, 737, 200, 3, 49, "Subsection", "ExpressionUUID" -> \ "25f436a4-ec9c-41fc-af2c-dab186cc21ea"], Cell[26975, 742, 428, 9, 30, "Input", "ExpressionUUID" -> \ "bb6a8942-2d7e-422e-b2d9-9c3385c57d2e"], Cell[27406, 753, 821, 25, 107, "Input", "ExpressionUUID" -> \ "5e8acf5c-9e28-4fa0-a0c6-aa6c7d2a71e4"], Cell[28230, 780, 1067, 28, 107, "Input", "ExpressionUUID" -> \ "7a4677a9-9b21-482f-b30c-607464464708"], Cell[29300, 810, 6206, 185, 810, "Input", "ExpressionUUID" -> \ "910e481b-e8fe-469b-8e26-4e6d46697c8c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35555, 1001, 171, 3, 70, "Section", "ExpressionUUID" -> \ "3baab05c-f250-4b57-8d6a-34dc6280db73"], Cell[CellGroupData[{ Cell[35751, 1008, 195, 3, 49, "Subsection", "ExpressionUUID" -> \ "4ff9c41f-96f7-49ca-ae09-a48d74bb5859"], Cell[35949, 1013, 319, 8, 30, "Input", "ExpressionUUID" -> \ "a923775e-4434-48d6-ab00-7f63b1279074"], Cell[36271, 1023, 419, 12, 50, "Input", "ExpressionUUID" -> \ "168ba3bb-1471-4e12-9bcb-ca47bb710f55"], Cell[36693, 1037, 609, 16, 69, "Input", "ExpressionUUID" -> \ "d9f0c701-e893-45bf-88ac-78be979f6f9c"], Cell[37305, 1055, 246, 6, 30, "Input", "ExpressionUUID" -> \ "4640cadc-1f9f-46f4-be2d-321b4c71189a"], Cell[37554, 1063, 230, 6, 30, "Input", "ExpressionUUID" -> \ "14904af2-afae-4938-a582-3aa55bd02944"] }, Open ]], Cell[CellGroupData[{ Cell[37821, 1074, 188, 3, 49, "Subsection", "ExpressionUUID" -> \ "bcf2ab10-9f2c-4b3e-9742-3d5dd207cef7"], Cell[38012, 1079, 319, 8, 30, "Input", "ExpressionUUID" -> \ "70472cf6-c2fc-461e-9fc1-3ad3bd231763"], Cell[38334, 1089, 479, 13, 69, "Input", "ExpressionUUID" -> \ "20347636-ae55-469a-a533-936b9025ac76"], Cell[38816, 1104, 231, 6, 30, "Input", "ExpressionUUID" -> \ "c1d59925-c129-48a3-a1d8-f70f578df893"] }, Open ]], Cell[CellGroupData[{ Cell[39084, 1115, 191, 3, 49, "Subsection", "ExpressionUUID" -> \ "1b0dedd1-cf94-4b45-beda-c00238ec66dc"], Cell[CellGroupData[{ Cell[39300, 1122, 249, 5, 41, "Input", "ExpressionUUID" -> \ "c195f4c7-5d3f-4088-a2a1-aeb7f42f1239"], Cell[39552, 1129, 3258, 75, 132, "Output", "ExpressionUUID" -> \ "02261723-683e-4e0e-817b-2f8b8f82e125"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42871, 1211, 165, 3, 70, "Section", "ExpressionUUID" -> \ "fc2c83cc-04c0-43e8-a5a2-8a24bb26d936"], Cell[43039, 1216, 497, 10, 30, "Input", "ExpressionUUID" -> \ "44d95a15-cb87-48a9-93c3-5ed3b7cc7b32"] }, Open ]], Cell[CellGroupData[{ Cell[43573, 1231, 168, 3, 70, "Section", "ExpressionUUID" -> \ "57164ee3-d71d-43df-97af-c2c8107e09ac"], Cell[43744, 1236, 348, 7, 30, "Input", "ExpressionUUID" -> \ "49ae66ba-6c60-4029-a0a6-3e09a324b9cc"] }, Open ]] }, Open ]] }, Open ]] } ] *)