Re: Online Graphic Output

*To*: mathgroup at smc.vnet.net*Subject*: [mg97824] Re: Online Graphic Output*From*: mark mcclure <mcmcclur at unca.edu>*Date*: Sun, 22 Mar 2009 05:51:29 -0500 (EST)*References*: <gq2f1m$efh$1@smc.vnet.net>

On Mar 21, 6:20 am, felixheiner <werner.lech... at t-online.de> wrote: > Normally Mathematica uses data sets that are collected > before plotting. I receive a data stream from internet > and would like to display these data points immediately. > ... Could anybody help out ? You might be able to use Dynamic. It's hard to say for sure without knowing the nature of your data, but here's something similar that I did to display the chaos game dynamically. numPoints = 5000; f1[{x_, y_}] := {x, y}/2; f2[{x_, y_}] := {x, y}/2 + {1/2, 0}; f3[{x_, y_}] := {x, y}/2 + {1/4, Sqrt[3]/4}; initPoint = RandomReal[{0, 1}, {2}]; pointList = Table[initPoint, {numPoints}]; Graphics[Point[Dynamic[pointList]], PlotRange -> {{0, 1}, {0, Sqrt[3]/2}}] This creates a Graphics object that will be dynamically updated as pointList is updated. The action starts when you execute the following. Do[pointList[[i + 1]] = RandomChoice[{f1, f2, f3}][pointList[[i]]]; Pause[0.02], {i, 1, numPoints - 1}] One point I'd like to make: I would rarely create a long list like this by initializing an array and writing term by term. Built in tools like NestList or Reap/Sow are typically much more efficient. They build the whole list at once, though, so they are not well suited for generation of dynamic data like this. Join, Append, and AppendTo are also poor choices, since your will notice a slow down as your data grows. The above requires an upper bound on the size of your data, which you might or might not have. Mark McClure