MathGroup Archive 2007

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

Search the Archive

Re: Density Plot coloring issue

  • To: mathgroup at smc.vnet.net
  • Subject: [mg79745] Re: [mg79715] Density Plot coloring issue
  • From: DrMajorBob <drmajorbob at bigfoot.com>
  • Date: Fri, 3 Aug 2007 06:29:13 -0400 (EDT)
  • References: <4552697.1186048615067.JavaMail.root@m35>
  • Reply-to: drmajorbob at bigfoot.com

numCols and numRows are undefined.

Bobby

On Thu, 02 Aug 2007 02:56:32 -0500, Yvon <ymgrigsb at yahoo.com> wrote:

> I'm having an issue where my density plot will color all the cells
> EXCEPT the minimum above 0 and maximum values in my list.  It seems to=

> occur irregardless of whether I use the custom function I wrote or
> ColorFunction -> (Hue[2/5, 2/3, 1.2 - #] &)
>
> This is driving me crazy, please tell me what I'm doing wrong.  For
> the dataset given below, all the cells are colored except cell 3,4
> (value=3.93) and cell 6,1(value=7.41)  They are white, along with =
the
> 0.0 values which is the first value in my color table.
>
> However, if I duplicate the min value  by changing another value
> within the list (for example, replace (cell1,1) 6.75 with 3.93), then
> the color for both 3.93 cells change to what is expected.  If I
> replace 6.75 with 7.41, both 7.41 cells are white, if I replace 6.75
> with 7.42, then cell 1,1 is white and the cell 6,1 changes to what is
> expected.  Can someone tell me what is going on here?!!
>
> cList = {{6.75, 5.85, 0., 6.39, 7.41, 0.}, {6.4, 5.57, 0., 6.6, 6.68=
,
>    0.}, {5.99, 5.51, 0., 6.24, 6.37, 0.}, {6.1, 5.72, 3.93, 5.92,
>    5.89, 0.}, {5.71, 5.85, 6.05, 5.92, 6.06, 0.}, {5.62, 5.64, 5.61,
>    5.42, 5.14, 0.}, {0, 0, 0, 0, 0, 0}}
>
> numColors = 10
> minLWC = 0
> maxLWC = 10
>
> CellColor[index_] := Module[{cTable, s},
>   (*White,purple,blue, light blue, light green, kahki, light yellow,
>   light orange, pink, red *)
>   cTable = {{1, 1, 1}, {0.5, 0, 0.5}, {0.4, .6,
>      0.9}, {0.7, .9, .96}, {.8, 1, .7}, {.6, 0.8, .2}, {1, 1,
>      0.5}, {1, .84, 0}, {1, .75, .8}, {.86, .08, .24}};
>   s = Partition[Map[RGBColor, cTable], 1];
>   RGBColor[cTable[[index]]]
>   ]
>
> GetColor[x_] := (p =
>    Round[Abs[(x - minLWC)*numColors/(maxLWC - minLWC)]] ;
>   CellColor[p])
>
> ListDensityPlot[cList,  InterpolationOrder -> 0,
>  ColorFunction -> GetColor, ColorFunctionScaling -> {\!\(\*
> ButtonBox["False",
> BaseStyle->"Link",
> ButtonData->"paclet:ref/True"]\)},
>  Mesh -> {numCols - 1, numRows - 1}, PlotRangePadding -> None,
>  DataRange -> {{0, numCols}, {0, numRows}},
>  Epilog -> {Hue[0, 1, 1],
>    MapIndexed[Text[#1, #2 - .5] &, Transpose[cList], {2}]}]
>
> Your help is greatly appreciated!!
>
> Yvon
>
>
>



-- =

DrMajorBob at bigfoot.com


  • Prev by Date: Re: Density Plot coloring issue
  • Next by Date: Re: Paul Abbott Chebyshev Article
  • Previous by thread: Re: Density Plot coloring issue
  • Next by thread: Re: Density Plot coloring issue