1 files changed, 21 insertions, 0 deletions
diff --git a/axial/mirr.m b/axial/mirr.m
new file mode 100644
index 0000000..35d7a92
--- /dev/null
+++ b/axial/mirr.m
@@ -0,0 +1,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
+];
+\ No newline at end of file