Re: Carriage Return oddity in Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg31221] Re: [mg31199] Carriage Return oddity in Mathematica
- From: BobHanlon at aol.com
- Date: Fri, 19 Oct 2001 03:12:21 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/10/17 7:33:05 AM, ewstiers at chorus.net writes:
>I recently found what seems to be an unusual 'interpretation' of a carriage
>return character by Mathematica. My goal is to develop a way to monitor
>the
>progress of a large matrix as the elements are being calculated. To this
>end
>I tried to get Mathematica to print the column and row of each element
>as it
>is completed. For the first try, the code (simplified here) and the output
>looked something like this:
>
>==============================================================
>In[348]:=
>Foo = Table[Part[{F[nx,nz], Print[nx, ",", nz]}, 1], {nx, 0, 3}, {nz, 0,
>3}];
>
>0,0
>
>0,1
>
>0,2
>
>And so on...
>==============================================================
>
>The problem was that the real matrix had many elements, so the number of
>output lines quickly got into the thousands. A better approach would seem
>to
>be to use the 'WriteString' function, since it doesn't append a carriage
>return/linefeed to the end of each line. Then by adding just a carriage
>return (with no line feed) to the end of the string, the output should
>re-write itself over and over again on the same line. Sadly, this didn't
>happen:
>
>==============================================================
>In[349]:=
>Foo = Table[
> Part[{F[nx,nz], WriteString[$Output, nx, ",", nz,
>FromCharacterCode[13]]},
> 1], {nx, 0, 3}, {nz, 0, 3}];
>
>0,0
>0,1
>0,2
>
>Etc...
>==============================================================
>
>where FromCharacterCode[13] is the command to add an ASCII character 13,
>i.e. a carriage return. The form of the output seems to indicate that
>Mathematica considers a carriage return, which normally instructs a computer
>to return the cursor to the beginning of the current line, to somehow also
>imply a line feed - a movement of the cursor down one line. In traditional
>computing these functions have usually be separate, and a CR/LF combo was
>needed to start a new line.
>
>So Mathematica seems to have a different interpretation of the carriage
>return character than most other programming environments. That's fine,
>however the question remains: is there any way to get a 'pure' carriage
>return effect (i.e., move to the beginning of the same line but don't add
>a
>line feed) in Mathematica?
>
(* This will write to a single line in a separate notebook *)
nb = NotebookCreate[];
Foo=Table[
NotebookWrite[nb, "Row "<>ToString[nx]<>", Column "<>ToString[nz]];
SelectionMove[nb, All, Cell];
F[nx,nz],
{nx,0,3},{nz,0,3}];
Bob Hanlon
Chantilly, VA USA