Re: Is it possible to plot a point a time on the same graph in Mathematica?
- To: mathgroup at smc.vnet.net
- Subject: [mg25805] Re: Is it possible to plot a point a time on the same graph in Mathematica?
- From: Albert Retey <albert.retey at visualanalysis.com>
- Date: Sat, 28 Oct 2000 01:40:59 -0400 (EDT)
- Organization: Visual Analysis
- References: <ctQI5.767$qE1.38868@ralph.vnet.net> <8t65c7$eif@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
> I have a lot of points endlessly generated by the
> Mathematica 4.0 which needed to be ploted.
>
> At first I send the points to an List, then use ListPlot to
> plot them.
>
> But I found it need too much time to get the result picture.
>
> Is it possible to plot a point a time on the same graph in
> Mathematica so that I can watch the progress instead of
> keeping on waiting.
I've had the same problem, a quick hack that basically did what I needed
follows. It is good if the calculation of the single points takes long
but the graphics-rendering is quick (should almost always be the case
for ListPlot). Still it is not perfect and makes your notebook jump, but
probably that can even be circumvent by some more sophisticated
Notebook-Programming.
If the rendering itself is timeconsuming, you probably need to get a
little further. I know that there are also (undocumented) features that
let you send Postscript to the Frontend step by step and then display
the current state of the graphics during the rendering process. There is
a vague description of it in "The Beginners Guide To Mathematica" by
Jerry Glynn & Theodore Gray, but you'll need a good knowledge of
mathlink and probably also postscript to do this (Of course you can
argue that this solution is not really "within Mathematica").
As the question seem to be asked once in a while, probably someone has
written a package which does this?
Cheers
Albert
Block[{l = {0}},
CellPrint[Cell[" "]];
nb = EvaluationNotebook[];
Do[
AppendTo[l, i^2];
Pause[1];
ds =
DisplayString[
ListPlot[l, DisplayFunction -> Identity, PlotJoined -> True,
PlotRange -> {{0, 10}, {0, 100}}]
];
SelectionMove[nb, All, EvaluationCell]; SelectionMove[nb, Next,
Cell];
SelectionMove[nb, All, Cell];
NotebookDelete[nb];
CellPrint[Cell[GraphicsData["PostScript", ds]]];
, {i, 1, 10}]
];