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

Re: Optica Problems

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14000] Re: [mg13966] Optica Problems
  • From: barnhart (Don Barnhart)
  • Date: Sat, 12 Sep 1998 16:59:22 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

Hello Steffen,

Unfortunately, IntrinsicSurface does not work very well and is not going
to be useful for your problem. Instead, you can use LensSurface as
shown below:

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

For future questions about Optica, you can write to
optica-support at wolfram.com

Best regards,

Donald Barnhart



>Date: Fri, 11 Sep 1998 15:06:55 -0400
>From: steffenz at gauss.fo.fh-koeln.de
To: mathgroup at smc.vnet.net
>To: mathgroup at smc.vnet.net
>Subject: [mg14000] [mg13966] Optica Problems
>
>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
>
>
>

******************

Donald Barnhart

Department of Mechanical Engineering Loughborough University
Loughborough, Leicestershire LE11 3TU, UK

Tel:(011 44 1509) 228393
Fax:(011 44 1509) 223934

******************

"Life is about being complicated as simply as possible"



  • Prev by Date: Re:Q: efficient list operation wanted
  • Next by Date: position of frame labels
  • Previous by thread: Optica Problems
  • Next by thread: error during action 'creating ntcontab.o'