Re: SymbolShape

• To: mathgroup at smc.vnet.net
• Subject: [mg52900] Re: [mg52853] SymbolShape
• From: "David Park" <djmp at earthlink.net>
• Date: Thu, 16 Dec 2004 03:40:39 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Naima,

Here is one method.

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

points1 = {{9 + 273, 0.012}, {11 + 273, 0.016}, {12 + 273, 0.15}, {13 + 273,
0.32}, {15 + 273, 0.3}, {18 + 273, 0.195}, {20 + 273,
0.098}, {22 + 273, 0.055}, {25 + 273, 0.02}, {30 + 273, 0.017}};

logdata = points1 /. {x_, y_} -> {x, Log[10, y]};

Show[Graphics[{PlotSymbol[Box, 4, Filled -> False] /@ logdata}],
Frame -> True,
FrameTicks -> {Automatic, LogScale, None, None},
PlotRange -> {{275, 306}, {-2.2, -0.3}}];

PlotSymbol comes from MultipleListPlot. All we have to do is Map it onto the
logdata. It acts just like Point except it draws a box instead of a solid
point. Since we scaled the data, we use LogScale (which comes from Graphics)
to supply the ticks on the y axis.

If you also want to draw the line, you can just add a Line primitive...

Show[Graphics[{PlotSymbol[Box, 4, Filled -> False] /@ logdata,
Line[logdata]}], Frame -> True,
FrameTicks -> {Automatic, LogScale, None, None},
PlotRange -> {{275, 306}, {-2.2, -0.3}}];

If you want just two sides of the frame use

Show[Graphics[{PlotSymbol[Box, 4, Filled -> False] /@ logdata,
Line[logdata]}],
Frame -> {True, True, False, False},
FrameTicks -> {Automatic, LogScale},
PlotRange -> {{275, 306}, {-2.2, -0.3}}];

David Park

From: Naima Khelfaoui [mailto:khelfaou at ese-metz.fr]
To: mathgroup at smc.vnet.net

Hi,
I need to know  how  I can change the shape of the points (to  box or
triangle) when I use LogListPlot ?
for example :

In[1]:=
<< Graphics`Graphics`
In[2]:=
points1 = {{9 + 273, 0.012}, {11 + 273, 0.016}, {12 + 273, 0.15}, {13 + 273,
0.32}, {15 + 273, 0.3}, {18 + 273, 0.195}, {20 + 273,
0.098}, {22 + 273, 0.055}, {25 + 273, 0.02}, {30 + 273, 0.017}};
In[4]:=
a11 = LogListPlot[points1, PlotStyle -> {PointSize[0.02], Hue[.6]},
GridLines -> None, PlotRange -> All];

Thanks.

```

• Prev by Date: Re: Delete problem
• Next by Date: TracePrint[GUIKitHello]| wc -l; 1205456
• Previous by thread: Re: SymbolShape
• Next by thread: Re: Suse 9.2 + mathematica 5.0 problem (SOLVED)