• To: mathgroup at smc.vnet.net
• From: Hartmut Wolf <hwolf at debis.com>
• Date: Sat, 10 Jun 2000 03:00:25 -0400 (EDT)
• Organization: debis Systemhaus
• References: <393C5787.A5363CB5@r.imap.itd.umich.edu>
• Sender: owner-wri-mathgroup at wolfram.com

```Rodney Agayan schrieb:
>
> Having enormous trouble figuring out how to change the symbol in
> LinearLogListPlot, or any type of ListPlot for that matter.
>
> Changing symbols is relatively easy in MultipleListPlot, however doing
> such in LinearLogListPlot has confounded me.  Can anyone help?
>
> On the other hand, if anyone knows how to modify MultipleListPlot so
> that it plots lists on Linear-Log scales, that would be greatly
> appreciated!!!
>

Dear Rodney,

of course we can scavange on MultipleListPlot, e.g. like that:

<< Graphics`MultipleListPlot`
<< Graphics`Graphics`

Now be ...

t = Table[Exp[n^2], {n, 0, 10}];

... our data, and let's have ...

lp = LinearLogListPlot[t, PlotJoined -> True]

lpt = LinearLogListPlot[t, PlotJoined -> False]

... as we like. The trick is to get at a private function of MultipleListPlot.
So we define

ss[sym_, size:(_Integer | _Real):5., style: _?(!NumberQ[#] &):{}, t___?OptionQ]
:=
Graphics`MultipleListPlot`Private`doshape[style, PlotSymbol[sym, size, opt],
None, #] &

... and now we can do different things:

Show[lp, Graphics[ss[Diamond] @ lp[[1, 1]] ]]

Show[lp, Graphics[ss[Box, 3.5] @ lp[[1, 1]]  ]]

Show[lp, Graphics[ss[Star, 7, Hue[0], Filled -> False] @ lp[[1, 1]] ]]

Show[lpt,
Graphics[ss[Triangle, Hue[2/3]] @ (lpt[[1]] /. Point -> Sequence)]]

Kind regards,  Hartmut Wolf

```

• Prev by Date: Re: system of nonlinear ODE
• Next by Date: Re: Re: programming DeleteRepetitions
• Previous by thread: Updated enhancements on MathSource