From d1b62466d81b164656588ac1c55acff15ee9ea43 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Tue, 13 May 2014 15:35:26 -0400
Subject: initial

The optics_toolkit code taken from
http://mercury.pr.erau.edu/~greta9a1/downloads/index.html

the older version is also available at mathwork web site
http://www.mathworks.com/matlabcentral/fileexchange/15459-basic-paraxial-optics-toolkit
---
 axial/elems.m | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 axial/elems.m

(limited to 'axial/elems.m')

diff --git a/axial/elems.m b/axial/elems.m
new file mode 100644
index 0000000..3de81ef
--- /dev/null
+++ b/axial/elems.m
@@ -0,0 +1,12 @@
+%----------------------------------------------------------------
+% Returns the elements of the ABCD matrix supplied.
+%
+% SYNTAX: [A,B,C,D]=elems(abcd);
+%----------------------------------------------------------------
+
+function [A,B,C,D]=elems(abcd)
+
+A=abcd(1,1);
+B=abcd(1,2);
+C=abcd(2,1);
+D=abcd(2,2);
\ No newline at end of file
-- 
cgit v1.2.3