Astronomical Applications Department, U.S. Naval Observatory Beam Comp Example Page 3
=
eqn
-
z
1
4
+
x2 y2
f
=
dir
[
]
, ,
( )
sin
0
( )
cos
=
cc
0
=
pos
[
]
, ,
0 0
=
coord
[
]
, ,
x y z
])
BeamComp_defs[1]: secondary mirror:
table([
=
flen
f
C
=
type mirror
=
eqn
-
z
1
4
(
)
+
x2 y2 C
f
=
dir
[
]
, ,
0 0 1
=
cc
0
=
pos
, ,
0 0
f
(
)
-
C
1
C
=
coord
[
]
, ,
x y z
])
BeamComp_defs[1]: end plane:
table([
=
flen
=
type mirror
=
eqn z
=
dir
[
]
, ,
0 0 1
=
cc
0
=
pos
[
]
, ,
0 0
-
d
=
coord
[
]
, ,
x y z
])
BeamComp_defs[1]: incident beam:
table([
=
type beam
=
dir
[
]
, ,
0 0 -1
=
pos
[
]
,
,
x0 y0 z0
=
path
0
])
raytrace[1]: Calculating reflection 1...
