Services & ResourcesWolfram ForumsMathGroup Archive

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

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