Optica Problems

• To: mathgroup at smc.vnet.net
• Subject: [mg13966] Optica Problems
• From: steffenz at gauss.fo.fh-koeln.de
• Date: Fri, 11 Sep 1998 15:06:55 -0400
• Sender: owner-wri-mathgroup at wolfram.com

```Hi !

I am running Optica(Version for Mathematica 2.3) with Mathematica 3.0
on NT 4.0.

I have programmed the following optical system, and the ray stops at
the last surface without any reason.

System={Resonate[{IntrinsicSurface[{70,70},Air,BK7],Table[{
Move3D[
IntrinsicSurface[{10,70},BK7,Water],{7,Sqrt[2]*(-2.5+t*1
0),0},{
1,1,0},0],
Move3D[
IntrinsicSurface[{10,70},BK7,Water],{7,Sqrt[2]*(2.5+t*10
),0},{
1,-1,0},0]},{t,-2,2}],
Move3D[IntrinsicSurface[{70,70},Water,BK7],{14,0,0},{1,0,0},0],
Move3D[IntrinsicSurface[{70,70},BK7,Air],{15,0,0},{1,0,0},0]},
Mtrip],
Boundary[{-10,-70,-70},{50,70,70}]};

Test=DrawSystem[{Move3D[Ray[],{-1,-5,0},{Cos[71 Degree],Sin[71
Degree],0},0],
System},PlotType->TopView,QuickTrace->False]

The ray is traced at the end, if the last medium is not Air but Water
again.

Any suggestions what are the reason for this?

Thanks

Steffen

```

• Prev by Date: Wolfram Research Grant Programs
• Next by Date: error during action 'creating ntcontab.o'
• Previous by thread: Wolfram Research Grant Programs
• Next by thread: Re: Optica Problems