blob: e36475d5d364586f561a43ebf9829e75dbfd662b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
%----------------------------------------------------------------
% Returns the ABCD matrix for propagation through a flat
% dielectric interface.
%
% SYNTAX: abcd=fdie(n1,n2);
%
% n1 = index of refraction of material being left
% n2 = index of refraction of material being entered
%
% abcd = | 1 0 |
% | 0 n1/n2 |
%
%----------------------------------------------------------------
% SYNTAX: abcd=fdie(n1,n2);
%----------------------------------------------------------------
function abcd=fdie(n1,n2)
abcd=[
1 0
0 n1/n2
];
|
