Mercurial > hg > octave-lyh

comparison scripts/io/dlmwrite.m @ 12462:e4dbfe3019b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use PCRE regular expressions throughout Octave.
author Rik <octave@nomad.inbox5.com>
date Sat, 19 Feb 2011 18:21:58 -0800
parents 5ec6aa05638d
children 0d4c6d54b6a3
comparison
equal deleted inserted replaced
12461:cc14943e6254 12462:e4dbfe3019b1
170 if (r > 0) 170 if (r > 0)
171 fprintf (fid, "%s", 171 fprintf (fid, "%s",
172 repmat ([repmat(delim, 1, c + columns(M)-1), newline], 1, r)); 172 repmat ([repmat(delim, 1, c + columns(M)-1), newline], 1, r));
173 endif 173 endif
174 if (iscomplex (M)) 174 if (iscomplex (M))
175 cprecision = regexprep (precision, '^%([-.0-9])','%+$1'); 175 cprecision = regexprep (precision, '^%([-\d.])','%+$1');
176 template = [precision, cprecision, "i", ... 176 template = [precision, cprecision, "i", ...
177 repmat([delim, precision, cprecision, "i"], 1, ... 177 repmat([delim, precision, cprecision, "i"], 1, ...
178 columns(M) - 1), newline ]; 178 columns(M) - 1), newline ];
179 else 179 else
180 template = [precision, repmat([delim, precision], 1, columns(M)-1),... 180 template = [precision, repmat([delim, precision], 1, columns(M)-1),...