From df8f6ae320ff16f6f903df4fc5c662f85e606c97 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Tue, 23 Aug 2011 00:29:53 -0400
Subject: Fortran code plotting added

---
 fortran/navy_four_levels/pp.m | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 fortran/navy_four_levels/pp.m

(limited to 'fortran')

diff --git a/fortran/navy_four_levels/pp.m b/fortran/navy_four_levels/pp.m
new file mode 100644
index 0000000..ab0daed
--- /dev/null
+++ b/fortran/navy_four_levels/pp.m
@@ -0,0 +1,17 @@
+d=load('Movie4level.dat');
+
+t=d(:,1);
+z=d(:,2);
+Om1=d(:,3);
+Om2=d(:,4);
+Om3=d(:,5);
+Om_vac=d(:,6);
+
+% plot3( t, z, Om1);
+
+d=load('Movie4level_EndPoints.dat');
+t=d(:,1);
+Om1=d(:,2);
+Om_vac=d(:,3);
+
+plot(t,Om1, '-;Om1;', t,Om_vac, '-;Om_{vac};');
-- 
cgit v1.2.3