Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1992
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1992

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

Search the Archive

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: 

>   -- Message text not found -- (
>    {{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?