Re: help octave

[Ted Harding]

( Re Message From: Shu-Kit Yeung )
> 
> Could someone please tell me how to use "fprintf" to print a matrix into 
> 
> a file? Thank You!
> 

The following, "write.m", (adapted from a very old matlab file of mine)
does that.  It is slow in octave. Others may have a better solution.

Best wishes,
Ted.                                    (address@hidden)
============================================================================
function write(file,fmt,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10)
#H
#H      write('filename','format',x1,x2,x3,x4,x5,x6,x7,x8,x9,x10)
#H
#H      writes the data in the rows of matrices x1,x2,...
#H      side-by-side into the rows of <filename> (APPEND mode).
#H
#H      'format' is a C f,e or g format (e.g.'%7.4f') for a single number.
#H      'format' is mandatory, 'filename' is optional and, if omitted,
#H      output is to the screen. If 'filename' exists the output is appended.
#H
#H      There must be at least one matrix argument x1, and at most 10.
#H      The matrices x1, x2, ... are output side by side; all must have the
#H      same number of rows.
#H
s_temp = empty_list_elements_ok;
empty_list_elements_ok = "true";
strargs=1;
if isstr(fmt), strargs=2; end
if strargs==1, FIL="stdout"; X=fmt; FMT=file; P=1;
  else X=[]; FMT=fmt; FIL=file; P=0; end

if (nargin-strargs)>P+0, X=[X x1]; end
if (nargin-strargs)>P+1, X=[X x2]; end
if (nargin-strargs)>P+2, X=[X x3]; end
if (nargin-strargs)>P+3, X=[X x4]; end
if (nargin-strargs)>P+4, X=[X x5]; end
if (nargin-strargs)>P+5, X=[X x6]; end
if (nargin-strargs)>P+6, X=[X x7]; end
if (nargin-strargs)>P+7, X=[X x8]; end
if (nargin-strargs)>P+8, X=[X x9]; end
if (nargin-strargs)>P+9, X=[X x10]; end
S=size(X); R=S(1); C=S(2);
fopen(FIL,"a");
for i=1:R
  for j=1:C
    fprintf(FIL,FMT,X(i,j)), fprintf(FIL,' '), end, fprintf(FIL,'\n')
fflush(FIL);
end
if (strargs==2) fclose(FIL); end
empty_list_elements_ok = s_temp;
endfunction