ZOS-API interface 2024 R1

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 ]]
}
]
*)

Connect with Ansys