Re: Problems plotting arrays

• To: mathgroup at yoda.physics.unc.edu
• Subject: Re: Problems plotting arrays
• From: twj
• Date: Sun, 1 Nov 92 11:29:55 CST

```>**BUG(?) #2**
>The thickness directives in
>
>ListContourPlot[b,
>ContourSmoothing->Automatic,

>ContourStyle->{{Thickness[.002]}, {Thickness[.002]},
> {Thickness[.002]}, {Thickness[.002]}, {Thickness[.006]}},
>Ticks->Automatic]
>
>which under Mma 2.0  made every fifth contour 3 times as thick,

>no longer work, giving the error message
>
>ContourStyle::style:

>    {{Thickness[0.002]}, <<3>>, {Thickness[0.006]}})
.

>and all contours come out the same thickness.  [But boy! -Is

>the contouring faster than it was under Mma 2.0!]  Apart from this,

>the contour plots are correct.
>
>Can anyone confirm these problems and/or suggest workarounds?

This is a bug in the style specification which will be fixed in
the next release.  The bug is that the length of the style

specification must match the number of contours.   This can be
fixed by giving the style specification to have a length
the same as the number of contours.

It can also be fixed by a top-level rule:

Unprotect[ ContourGraphics]

ContourGraphics[

dat_,

opt1___,

Contours -> ncont_Integer,

opt2___,
ContourStyle -> style_List,

opt3___ /; Length[ style] =!= ncont ] :=
ContourGraphics[

dat,

opt1,

Contours -> ncont,

opt2,
ContourStyle ->

Table[ Part[ style, 1+Mod[ i-1, Length[ style]]],
{i,1,ncont}],
opt3
]

ContourGraphics[

dat_,

opt1___,

Contours -> cont_List,

opt2___,
ContourStyle -> style_List,

opt3___ /; Length[ style] =!= Length[cont] ] :=
ContourGraphics[

dat,

opt1,

Contours -> ncont,

opt2,
ContourStyle ->

Table[ Part[ style, 1+Mod[ i-1, Length[ style]]],
{i,1,ncont}],
opt3
]

Protect[ ContourGraphics]

Then

ContourPlot[ Sin[x y], {x,0,2Pi}, {y,0,Pi},
ContourStyle->
{{Thickness[.002]}, {Thickness[.002]},
{Thickness[.002]}, {Thickness[.002]},

{Thickness[.006]}}]

```

• Next by Date: Re: Treating units as positive constants?
• Next by thread: Re: Treating units as positive constants?