MathGroup Archive 1994

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re:matrix printing


Dear Tom Fister,
    Please try following sources.

WriteFile::usage="
WriteFile[l_,outfile_:\"tmp\"] writes contents in l
to outfile with plain format.
Contents in outfile is removed before writing.
"

WriteFile[l_,outfile_String:"tmp"] := Module[
{
    outstrm,    (* output stream *)
    x,y
},
    outstrm = OpenWrite[ outfile,
        PageWidth -> Infinity,
        FormatType -> OutputForm
    ] ;
    Write[ outstrm, TableForm[l, TableSpacing -> {0,2}] ] ;
    Close[ outstrm ];
    Null
]

The sample is as follow,

matrix={{1,2,3},{4,5,6},{7,8,9}}
WriteFile[matrix]

After this, you can find the file of "tmp" on the current directory.

=========================================
Yuichi Kimura, Ph.D: Dep.of Industrial Eng. & Management, Col.of Industrial
Technology, Nihon univ., 1-2-1, Izumi, Narashino, Chiba, 275, Japan
TEL:0474(74)2637	FAX:0474(74)2619	CALL SIGN : JN1LXJ





  • Prev by Date: reducing inequality Pconstraints
  • Next by Date: Re: subscribe
  • Previous by thread: matrix printing
  • Next by thread: Thanks