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