Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1994
*January
*February
*March
*April
*May
*June
*July
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1994

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

Search the Archive

Re:matrix printing

  • To: mathgroup at yoda.physics.unc.edu
  • Subject: Re:matrix printing
  • From: "Yuichi Pop Kimura (Col.of Indust.Eng.,Nihon univ.)" <kimura at juno.ka.cit.nihon-u.ac.jp>
  • Date: Fri, 21 Jan 1994 10:13:05 +0900

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