Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Optica - freeforms with xyz-points

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30424] Optica - freeforms with xyz-points
  • From: "maxao" <maxao at aol.com>
  • Date: Fri, 17 Aug 2001 03:10:00 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

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,-2
7.0924,-26.8601,...}
y={-4.37822,-2.39282,-0.407668,1.57884,3.56539,5.55155,7.53831,9.52437,-8.58
737,-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,SurfaceInte
rsections->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 at aol.com)




  • Prev by Date: Fw: Date calculating software?
  • Next by Date: Re: Date calculating software?
  • Previous by thread: Re: byte[ ] of J/Link
  • Next by thread: Looking for Mathematica Wavelet Notebooks/Files