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

RE: Re: Plot Joined Intelligently

• To: mathgroup at smc.vnet.net
• Subject: [mg30527] RE: [mg30520] Re: Plot Joined Intelligently
• From: "David Park" <djmp at earthlink.net>
• Date: Sat, 25 Aug 2001 01:15:09 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

Tony,

Sure, just don't let WRI trick you into thinking you need ListPlot. (You
don't really need the MultipleListPlot command either, but the PlotSymbol
and MakeSymbol commands from the package are quite nice.)

Needs["Graphics`MultipleListPlot`"]
Needs["Graphics`Colors`"]

data = Table[{x, Sin[x]}, {x, 0, \[Pi], \[Pi]/30}];

Show[Graphics[{AbsolutePointSize[4], Point /@ data, Blue,
     Line[data]}], Frame -> True, PlotLabel -> "Who Needs ListPlot?",
   ImageSize -> 500];

Show[Graphics[{AbsolutePointSize[4], PlotSymbol[Star, 5] /@ data,
     Blue, Line[data]}], Frame -> True,
   PlotLabel -> "Who Needs ListPlot?", ImageSize -> 500];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

> From: aes [mailto:siegman at stanford.edu]
To: mathgroup at smc.vnet.net
>
>
> And while this subject is on the table, is there a way to get PlotJoined
> *with the plots also shown as points or symbols*?
>