MathGroup Archive 2003

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

Search the Archive

Re: help on color function!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg41932] Re: help on color function!
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Tue, 10 Jun 2003 04:47:01 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <bbv44g$1u7$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

you mean

dots = Show[
      Graphics3D[
        Transpose[{Hue /@ 
              list1[[All, 3]], {AbsolutePointSize[4], Point[#]} & /@
list1}]],
       PlotRange -> {{0, 10}, {0, 10}, {0, 0.15}}, Background -> Linen, 
      PlotLabel -> "Equilibria  with  Different  S", Axes -> True, 
      AxesLabel -> {"M", "P", "S"}, AxesStyle -> {Gray}, BoxStyle ->
{Gray}, 
      BoxRatios -> {1, 1, 0.5}, ViewPoint -> {1.300, -2.400, 2.000}, 
      ImageSize -> 400];

Regards
  Jens

sabrina wrote:
> 
> Hello, all
>  I wonder if there is an easy way to define a color function based on a set
> of values:
> For example , I have the following list:
> list1=
> {{0.0178532,0.982147,0.01},{0.0270235,1.47298,0.015},{0.0363674,1.96363,
> 
> 0.02},{1.57286,0.927138,0.025},{1.28258,1.21742,0.025},{0.0458944,2.45411,
>     0.025},{1.96464,1.03536,0.03},{1.22019,1.77981,0.03},{0.0556147,2.94439,
> 
> 0.03},{2.32115,1.17885,0.035},{1.19285,2.30715,0.035},{0.0655396,3.43446,
>     0.035},{2.67003,1.32997,0.04},{1.17293,2.82707,0.04},{0.0756814,3.92432,
> 
> 0.04},{3.01582,1.48418,0.045},{1.15586,3.34414,0.045},{0.0860538,4.41395,
>     0.045},{3.36004,1.63996,0.05},{1.14012,3.85988,0.05},{0.0966719,4.90333,
>     0.05},{3.70335,1.79665,0.055},{1.12503,4.37497,0.055},{0.107553,5.39245,
>     0.055},{4.04607,1.95393,0.06},{1.11025,4.88975,0.06},{0.118715,5.88128,
>     0.06},{4.38841,2.11159,0.065},{1.09554,5.40446,0.065},{0.130181,6.36982,
>     0.065},{4.73046,2.26954,0.07},{1.08079,5.91921,0.07},{0.141973,6.85803,
>     0.07},{5.07232,2.42768,0.075},{1.06589,6.43411,0.075},{0.15412,7.34588,
>     0.075},{5.41402,2.58598,0.08},{1.05076,6.94924,0.08},{0.166654,7.83335,
>     0.08},{5.7556,2.7444,0.085},{1.03532,7.46468,0.085},{0.17961,8.32039,
>     0.085},{6.09709,2.90291,0.09},{1.01951,7.98049,0.09},{0.193032,8.80697,
>     0.09},{6.4385,3.0615,0.095},{1.00325,8.49675,0.095},{0.20697,9.29303,
>     0.095},{6.77985,3.22015,0.1},{0.986488,9.01351,0.1},{0.221485,9.77851,
>     0.1}};
> 
>  I used the following code to plot this list:
> 
> In[150]:=
> Needs["Graphics`Colors`"];
> dots=Show[Graphics3D[
> {Hue[h]/.h-> list1[[All,3]], AbsolutePointSize[4], Point /@ list1}],
> PlotRange -> {{0, 10}, {0, 10}, {0,0.15}},
> Background -> Linen,
>       PlotLabel-> "Equilibria  with  Different  S",
>       Axes-> True,AxesLabel\[Rule]{"M","P","S"},AxesStyle->{ Gray},
>       BoxStyle ->{Gray},BoxRatios-> {1,1,0.5},
>       ViewPoint->{1.300, -2.400, 2.000},
>        ImageSize-> 400];
> 
> What I was trying to do it to show different point with different colors if
> list1[[All,3]] is different. But I could not get the right answer that I
> want. Would anybody help me out? Thanks a lot
> 
> Sabrina


  • Prev by Date: Re: Mathlink performance and task switches
  • Next by Date: Gamma distribution
  • Previous by thread: RE: help on color function!
  • Next by thread: how to generate pulse function ?