MathGroup Archive 2003

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

Search the Archive

help on color function!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg41882] help on color function!
  • From: "sabrina" <mystery at newbie.com>
  • Date: Sun, 8 Jun 2003 06:45:45 -0400 (EDT)
  • Organization: Case Western Reserve University, Cleveland, OH, USA
  • Reply-to: "sabrina" <hxs61 at po.cwru.edu>
  • Sender: owner-wri-mathgroup at wolfram.com

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: Problem using Quotient and Mod functions with rational parameters
  • Next by Date: Re: Learning to work with non-commutative oscillators
  • Previous by thread: Re: "Sloppy Union"? (Union of a list with *nearly* equal elements)
  • Next by thread: Re: help on color function!