outcols.m
View Options

			function outcols(target, names, values)
			fout = fopen(target, 'w');
			N = length(names);
			assert(N == size(values,2))
			format = "";
			nbformat = "";
			for i=1:N
			format = strcat(format, "%s ");
			nbformat = strcat(nbformat, "%g ");
			end
			format = strcat(format, "\n");
			nbformat = strcat(nbformat, "\n");
			fprintf(fout, format, names{:});

			for i=1:size(values,1)
			fprintf(fout, nbformat, values(i,:));
			end
			fclose(fout);
			end

compphys/exo4/outcols.m516d846d2dc2master