[newbie] Optica problem? and I don't get it

• To: mathgroup at smc.vnet.net
• Subject: [mg21264] [newbie] Optica problem? and I don't get it
• From: "Gerald Ebberink" <g.ebberink at wxs.nl>
• Date: Mon, 20 Dec 1999 02:28:28 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Hi out there

I don't know if this is the right newsgroup but my outlook came up with this
one as he most probable to have the solution to my next problem

I'm designing with an group of students an zoom-lens. And we are trying to
simulate one in Mathematica using the optics extension, no problem yet.

But after the moment we create new forms of glass like LaK8 or BaF N6. The
program gives an series of problems. Wich I can't figure out. I think that
these new materials aren't recognised as materials. If anyone can help

In[2]:=
CreateRefractiveIndexModel[{
{1.0600,1.64459},{0.8521,1.64861},{0.4800,1.66696},{0.6563,1.65481},{
0.5876,1.65830},{0.4047,1.67776} } , LAK11 ]
Unprotect[ModelRefractiveIndex];
%
Protect[ModelRefractiveIndex];

Out[2]:=

<Picture>

ModelRefractiveIndex[LAK11] =
IndexFunction[2.700258070746713, -0.01085339679576358, 0.0190462057504197,
-0.000548157720805964, 0.0001443645155126405, -8.862353827930602*^-6];

Out[3];=

ModelRefractiveIndex[LAK11] =
IndexFunction[2.700258070746713, -0.01085339679576358, 0.0190462057504197,
-0.000548157720805964, 0.0001443645155126405, -8.862353827930602*^-6];

in[3]:=
DrawSystem[{
Ray[WaveLenght->0.6],
Move [ SphericalLens [ 250.471, 72.200,45.60, 3.8,
lens 2,{ComponentMedium->LAK8}],{20,0,0}],
Boundary[250]}]

Out[4]:=
Heads LAK11 and Ray at positions 1 and 2 are
expected to be the same.

eplaceAll::reps:
{Join[LAK11[Ray], Ray]} is neither a list of
replacement rules nor a valid dispatch table, and so cannot be used for
replacing.

ReplaceAll::reps:
{Join[LAK11[Ray], Ray]} is neither a list of
replacement rules nor a valid dispatch table, and so cannot be used for
replacing.

ReplaceAll::reps:
{Join[LAK11[Ray], Ray)]} is neither a list of
replacement rules nor a valid dispatch table, and so cannot be used for
replacing.

General::stop:
Further output of eplaceAll::reps will be suppressed
during this calculation.

Part::pspec:  art specification
ComponentNumber /. Join[LAK11[Ray],Ray\] is neither an integer nor a list of
integers.

--
Greetz
Gerald

... 'How can I help it?' he blubbered. 'How can I help seeing what is in
front of my eyes? Two and two are four.' "Sometimes, Winston. Sometimes they
are five. Sometimes they are three. Sometimes they are all of them at once.
You must try harder. It is not easy to become sane." - 1984 (George Orwell)

```

• Prev by Date: Re: modified list interval calculation
• Next by Date: Re: GraphicsArray and alignment of graphs
• Previous by thread: NonlinearFit. Range not working ?
• Next by thread: Re: Help tracking down a Bug