MathGroup Archive 2004

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

Search the Archive

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
djmp at earthlink.net
http://home.earthlink.net/~djmp/

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)