Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*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 1998

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

Search the Archive

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