blob: 17f5235679fd6d75ec567c2f27fd551cc0f1a461 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
%----------------------------------------------------------------
% Returns the ABCD matrix for propagation througe a spherical
% dielectric interface.
%
% SYNTAX: abcd=sdie(R,n1,n2);
%
% R = Interface radius of curvature. R is positive when the
% the interface curves toward the direction from which
% the beam comes, negative otherwise.
% n1 = index of refraction of material being left
% n2 = index of refraction of material being entered
%
% abcd = | 1 0 |
% | -(n1-n2)/n2/R n1/n2 |
%
%----------------------------------------------------------------
% SYNTAX: abcd=sdie(R,n1,n2);
%----------------------------------------------------------------
function abcd=sdie(R,n1,n2)
abcd=[
1 0
-(n1-n2)/n2/R n1/n2
];
|
