map2dat.m: added to main matlab lib and everything else linked to it

5 files changed, 5 insertions, 132 deletions

diff --git a/xmds2/Nlevels_no_dopler_with_z_4wm/map2dat.m b/xmds2/Nlevels_no_dopler_with_z_4wm/map2dat.m
index 969b6dc..90fc33d 100644..120000
--- a/xmds2/Nlevels_no_dopler_with_z_4wm/map2dat.m
+++ b/xmds2/Nlevels_no_dopler_with_z_4wm/map2dat.m
@@ -1,33 +1 @@
-function map2dat(outfile, x,y,z, xskip, yskip)
-% saves 3D data in suitable way to be drawn by gnuplot
-% x,y - vectors of x,y values
-% z map of z values as used by Octave/Matlab
-% xskip, yskip - skip paprameters
-%  only every, xskip, yskip point will be written
-
-
-
-Nx=length(x);   
-Ny=length(y);   
-Nxs=Nx/xskip;
-Nys=Ny/yskip;
-points=zeros(1,3*Nxs*Nys);
-%points=[];
-tic; 
-for i=1:Nxs
-	for k=1:Nys
-		%points=[points x(i*xskip) y(k*yskip) z(k*yskip,i*xskip)];
-		points((i-1)*(Nys-1)*3+3*(k-1)+1) =   x(i*xskip);
-		points((i-1)*(Nys-1)*3+3*(k-1)+2) = y(k*yskip);
-		points((i-1)*(Nys-1)*3+3*(k-1)+3) = z(k*yskip,i*xskip);
-	end
-end
-disp('=== points formation complete ===');
-toc
-tic;
-%points
-fd = fopen(outfile, "wt");
-fprintf (fd, "%g %g %g\n", points);
-fclose(fd);
-disp('=== points saving complete ===');
-toc;
+../../matlab_helper_files/map2dat.m
\ No newline at end of file
diff --git a/xmds2/Nlevels_no_dopler_with_z_4wm_for_irina_pqe/fast_to_slow_switch/map2dat.m b/xmds2/Nlevels_no_dopler_with_z_4wm_for_irina_pqe/fast_to_slow_switch/map2dat.m
index 969b6dc..14fae30 100644..120000
--- a/xmds2/Nlevels_no_dopler_with_z_4wm_for_irina_pqe/fast_to_slow_switch/map2dat.m
+++ b/xmds2/Nlevels_no_dopler_with_z_4wm_for_irina_pqe/fast_to_slow_switch/map2dat.m
@@ -1,33 +1 @@
-function map2dat(outfile, x,y,z, xskip, yskip)
-% saves 3D data in suitable way to be drawn by gnuplot
-% x,y - vectors of x,y values
-% z map of z values as used by Octave/Matlab
-% xskip, yskip - skip paprameters
-%  only every, xskip, yskip point will be written
-
-
-
-Nx=length(x);   
-Ny=length(y);   
-Nxs=Nx/xskip;
-Nys=Ny/yskip;
-points=zeros(1,3*Nxs*Nys);
-%points=[];
-tic; 
-for i=1:Nxs
-	for k=1:Nys
-		%points=[points x(i*xskip) y(k*yskip) z(k*yskip,i*xskip)];
-		points((i-1)*(Nys-1)*3+3*(k-1)+1) =   x(i*xskip);
-		points((i-1)*(Nys-1)*3+3*(k-1)+2) = y(k*yskip);
-		points((i-1)*(Nys-1)*3+3*(k-1)+3) = z(k*yskip,i*xskip);
-	end
-end
-disp('=== points formation complete ===');
-toc
-tic;
-%points
-fd = fopen(outfile, "wt");
-fprintf (fd, "%g %g %g\n", points);
-fclose(fd);
-disp('=== points saving complete ===');
-toc;
+../map2dat.m
\ No newline at end of file
diff --git a/xmds2/Nlevels_no_dopler_with_z_4wm_for_irina_pqe/map2dat.m b/xmds2/Nlevels_no_dopler_with_z_4wm_for_irina_pqe/map2dat.m
index 969b6dc..90fc33d 100644..120000
--- a/xmds2/Nlevels_no_dopler_with_z_4wm_for_irina_pqe/map2dat.m
+++ b/xmds2/Nlevels_no_dopler_with_z_4wm_for_irina_pqe/map2dat.m
@@ -1,33 +1 @@
-function map2dat(outfile, x,y,z, xskip, yskip)
-% saves 3D data in suitable way to be drawn by gnuplot
-% x,y - vectors of x,y values
-% z map of z values as used by Octave/Matlab
-% xskip, yskip - skip paprameters
-%  only every, xskip, yskip point will be written
-
-
-
-Nx=length(x);   
-Ny=length(y);   
-Nxs=Nx/xskip;
-Nys=Ny/yskip;
-points=zeros(1,3*Nxs*Nys);
-%points=[];
-tic; 
-for i=1:Nxs
-	for k=1:Nys
-		%points=[points x(i*xskip) y(k*yskip) z(k*yskip,i*xskip)];
-		points((i-1)*(Nys-1)*3+3*(k-1)+1) =   x(i*xskip);
-		points((i-1)*(Nys-1)*3+3*(k-1)+2) = y(k*yskip);
-		points((i-1)*(Nys-1)*3+3*(k-1)+3) = z(k*yskip,i*xskip);
-	end
-end
-disp('=== points formation complete ===');
-toc
-tic;
-%points
-fd = fopen(outfile, "wt");
-fprintf (fd, "%g %g %g\n", points);
-fclose(fd);
-disp('=== points saving complete ===');
-toc;
+../../matlab_helper_files/map2dat.m
\ No newline at end of file
diff --git a/xmds2/Nlevels_with_doppler_with_z_4wm/fast_to_slow_switch/map2dat.m b/xmds2/Nlevels_with_doppler_with_z_4wm/fast_to_slow_switch/map2dat.m
index 4f4ca52..14fae30 100644..120000
--- a/xmds2/Nlevels_with_doppler_with_z_4wm/fast_to_slow_switch/map2dat.m
+++ b/xmds2/Nlevels_with_doppler_with_z_4wm/fast_to_slow_switch/map2dat.m
@@ -1,33 +1 @@
-function map2dat(outfile, x,y,z, xskip, yskip)
-% saves 3D data in suitable way to be drawn by gnuplot
-% x,y - vectors of x,y values
-% z map of z values as used by Octave/Matlab
-% xskip, yskip - skip paprameters
-%  only every, xskip, yskip point will be written
-
-
-
-Nx=length(x);   
-Ny=length(y);   
-Nxs=ceil(Nx/xskip);
-Nys=ceil(Ny/yskip);
-points=zeros(1,3*Nxs*Nys);
-%points=[];
-tic; 
-for i=1:Nxs
-	for k=1:Nys
-		%points=[points x(i*xskip) y(k*yskip) z(k*yskip,i*xskip)];
-		points((i-1)*(Nys)*3+3*(k-1)+1) =   x(1+(i-1)*xskip);
-		points((i-1)*(Nys)*3+3*(k-1)+2) = y(1+(k-1)*yskip);
-		points((i-1)*(Nys)*3+3*(k-1)+3) = z(1+(k-1)*yskip,1+(i-1)*xskip);
-	end
-end
-disp('=== points formation complete ===');
-toc
-tic;
-%points
-fd = fopen(outfile, "wt");
-fprintf (fd, "%g %g %g\n", points);
-fclose(fd);
-disp('=== points saving complete ===');
-toc;
+../map2dat.m
\ No newline at end of file
diff --git a/xmds2/Nlevels_with_doppler_with_z_4wm/map2dat.m b/xmds2/Nlevels_with_doppler_with_z_4wm/map2dat.m
new file mode 120000
index 0000000..90fc33d
--- /dev/null
+++ b/xmds2/Nlevels_with_doppler_with_z_4wm/map2dat.m
@@ -0,0 +1 @@
+../../matlab_helper_files/map2dat.m
\ No newline at end of file