RE: matrix indices
- To: mathgroup at smc.vnet.net
- Subject: [mg25324] RE: [mg25293] matrix indices
- From: "David Park" <djmp at earthlink.net>
- Date: Sat, 23 Sep 2000 03:35:48 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Roberto,
This create a monitor notebook and writes the progress statements into it.
When you are finished, use NotebookClose to get rid of the monitor notebook.
monitornb =
NotebookCreate[WindowSize -> {300, 300},
WindowMargins -> {{Automatic, 20}, {20, Automatic}},
WindowTitle -> "Matrix Progress"];
mat = Table[0, {i, 3}, {j, 3}];
Do[
mat[[i, j]] = i + j;
NotebookWrite[
monitornb,
Cell[BoxData[ToBoxes[SequenceForm["i = ", i, " ", "j = ", j]]],
"Output"]
],
{i, 3}, {j, 3}]; mat
{{2, 3, 4}, {3, 4, 5}, {4, 5, 6}}
NotebookClose[monitornb]
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> -----Original Message-----
> From: Roberto Brambilla [mailto:rlbrambilla at cesi.it]
To: mathgroup at smc.vnet.net
> Hi, dear MG-friends
> I have to build a matrix whose elements A[i,j] are the result
> of a lengthly numerical computation.
> To control the status of matrix implementation,
> in the code, inside the loops, I put the obvious program line
>
> Print["i=",i," j=",j]
>
> That's OK but, at the end, the notebook is filled of useless lines
> to be erased by hand.
> Any idea how to see indices i,j in a small window
> (as in a gasoline pump), or at least
> how to erase automatically the print-lines ?
> Thank you in advance
> Rob
> Roberto Brambilla
> CESI
> Via Rubattino 54
> 20134 Milano
> tel +39.2.2125.5875
> fax +39.2.2125.610
> rlbrambilla at cesi.it