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

1 files changed, 1 insertions, 33 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