blob: 35d7a921ef1c6a2febfa45c8e8936ccf30d86e47 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
%----------------------------------------------------------------
% Returns the ABCD matrix for reflection from a spherical mirror.
%
% SYNTAX: abcd=mirr(R);
% <...> indicates optional argument
%
% R = mirror radius of curvature
%
% abcd = | 1 0 |
% |-2/R 1 |
%
%----------------------------------------------------------------
% SYNTAX: abcd=mirr(R);
%----------------------------------------------------------------
function abcd=mirr(R)
abcd=[
1 0
-2/R 1
];
|
