Student Support Forum: 'Optica - freeform-lenses with x,y,z' topicStudent Support Forum > General > "Optica - freeform-lenses with x,y,z"

 Next Comment > Help | Reply To Topic
 Author Comment/Response Martin Bissinger 08/14/01 10:01am Hallo out there, I try to generate a freeform-lens in Optica 1.3. For this I have tree lists of that kind: x={-28.6128,-28.3784,-28.144,-27.9097,-27.6763,-27.4419,-27.2072,-26.9738,-27.0924,-26.8601,...} y={-4.37822,-2.39282,-0.407668,1.57884,3.56539,5.55155,7.53831,9.52437,-8.58737,-6.60188,-4.61691,...} z={3.15189,3.10324,3.07779,3.07521,3.0951,3.13638,3.19901,3.28462,2.95775,2.86024,2.78458,2.73137,...} Now I try to creat an interpolated surface with... interpolsurf=ListInterpolattion[z,{{x},{y}}]; This syntax is wrong, because I get an error message. But how can I interpolate a surface into my xy-points? Next step would be: interpolsurf=With[{f-Interpolsurf},Function[{s,t},f[s,t]]]; Now I can creat the lens with... lens=[CustomLens[{0&,#1&,#2&},{interpolsurf,#1&,#2&},{-15,-15},2,SurfaceIntersections->Numeric, GraphicDesign->Solid]; And finally draw the lens with... DrawSystem[{GridOfRays[7],Move[lens,{10,0,0}],Boundary[40]},PlotPoints->50]; My big prroblem is the first step, when I try to interpolate a surface in my xy-points. Is there anybody who can give me advice? Thank you for help, Martin (maxao@aol.com) URL: ,

 Subject (listing for 'Optica - freeform-lenses with x,y,z') Author Date Posted Optica - freeform-lenses with x,y,z Martin Bissi... 08/14/01 10:01am Re: Optica - freeform-lenses with x,y,z Forum Modera... 08/17/01 11:20am
 Next Comment > Help | Reply To Topic