Re: Listplot-Bug in Mathematica 5.0

• To: mathgroup at smc.vnet.net
• Subject: [mg50076] Re: [mg50046] Listplot-Bug in Mathematica 5.0
• From: "David Park" <djmp at earthlink.net>
• Date: Sat, 14 Aug 2004 01:50:27 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Robert,

There are only 6 different points in your list.

Union[swk]
{{3760.115070521656, -0.03392142349257811},
{3772.3106972498817, -0.01659087526212362},
{3784.810127932071, -0.012419680497015643},
{3797.309558614259, -0.02261413419318535},
{3809.5051853424857, -0.002704921194676019},
{3886.3245931593947, 0.03401050818985116}}

Why do you expect a different plot? You might, for example, plot the points
and make the point size depend on the number of cases for that point.

swk2 = {Length[#], First[#]} & /@ Split[swk];

Show[Graphics[
{{AbsolutePointSize[2 First[#]], Point@Last[#]} & /@ swk2}],
PlotRange -> {-0.04, 0.04},
Frame -> True,
ImageSize -> 400];

David Park

-----Original Message-----
From: Robert Zierer [mailto:robertzierer at yahoo.com]
To: mathgroup at smc.vnet.net
Subject: [mg50076] [mg50046] Listplot-Bug in Mathematica 5.0

Hello,

I think I found a bug in Mathematica 5.0.0.0. The following code
didn't behave as expected (delete the "`" and the "\\"):

swk = {{3760.115070521656`, -0.03392142349257811`}, {
3772.3106972498817`, -0.01659087526212362`},
{3772.3106972498817`, \
-0.01659087526212362`}, {
3772.3106972498817`, -0.01659087526212362`},
{3772.3106972498817`, \
-0.01659087526212362`}, {
3772.3106972498817`, -0.01659087526212362`},
{3772.3106972498817`, \
-0.01659087526212362`}, {
3772.3106972498817`, -0.01659087526212362`},
{3772.3106972498817`, \
-0.01659087526212362`}, {
3772.3106972498817`, -0.01659087526212362`},
{3772.3106972498817`, \
-0.01659087526212362`}, {
3784.810127932071`, -0.012419680497015643`},
{3784.810127932071`, \
-0.012419680497015643`}, {
3784.810127932071`, -0.012419680497015643`},
{3784.810127932071`, \
-0.012419680497015643`}, {
3784.810127932071`, -0.012419680497015643`},
{3784.810127932071`, \
-0.012419680497015643`}, {
3784.810127932071`, -0.012419680497015643`},
{3784.810127932071`, \
-0.012419680497015643`}, {
3784.810127932071`, -0.012419680497015643`},
{3784.810127932071`, \
-0.012419680497015643`}, {3797.309558614259`, -0.02261413419318535`},
\
{3797.309558614259`, -0.02261413419318535`}, {3797.309558614259`, \
-0.02261413419318535`}, {3797.309558614259`, -0.02261413419318535`}, \
{3797.309558614259`, -0.02261413419318535`}, {3797.309558614259`, \
-0.02261413419318535`}, {3797.309558614259`, -0.02261413419318535`}, \
{3797.309558614259`, -0.02261413419318535`}, {3797.309558614259`, \
-0.02261413419318535`}, {3797.309558614259`, -0.02261413419318535`}, \
{3809.5051853424857`, -0.002704921194676019`}, {3809.5051853424857`, \
-0.002704921194676019`}, {3809.5051853424857`,
-0.002704921194676019`}, \
{3809.5051853424857`, -0.002704921194676019`}, {3809.5051853424857`, \
-0.002704921194676019`}, {3809.5051853424857`,
-0.002704921194676019`}, \
{3809.5051853424857`, -0.002704921194676019`}, {3809.5051853424857`, \
-0.002704921194676019`}, {3809.5051853424857`,
-0.002704921194676019`}, \
{3886.3245931593947`, 0.03401050818985116`}};
ListPlot[swk,
PlotJoined -> True,
PlotStyle -> Hue[.9],
Axes -> True,
PlotLabel -> "Steigungswinkel",
PlotRange -> All ];

Instead of plotting some step curve (some values of the list were
multiple), it plotted only parts of the list (only the first value in
a series of multiple values).
Any hints, bugfixes? Or am I wrong?

--
Robert Zierer

```

• Prev by Date: Re: Listplot-Bug in Mathematica 5.0
• Next by Date: Re: New user: Abs[] problem
• Previous by thread: Re: Listplot-Bug in Mathematica 5.0
• Next by thread: Optica question