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"