RE: Question on Ordering

*To*: mathgroup at smc.vnet.net*Subject*: [mg47030] RE: [mg47007] Question on Ordering*From*: "David Park" <djmp at earthlink.net>*Date*: Mon, 22 Mar 2004 05:18:42 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Hywel, When one wants to combine two equal length lists to produce a new list in the same order, the command to use is Inner. Here is an example for your type of plot. alist = Table[Sin[2\[Pi] x], {x, 0, 1, 0.05}]; blist = Table[x, {x, 0, 1, 0.05}]; plotdata = Inner[{Hue[#2], Point[{#2, #1}]} &, alist, blist, List]; Needs["Graphics`Colors`"] Show[Graphics[{AbsolutePointSize[4], plotdata}], Frame -> True, PlotLabel -> "Rendering Controlled by x Value", ImageSize -> 450, Background -> Linen]; Just for fun, here is another unconventional use of Inner: dividing one equation by another. eqn1 = a x == b; eqn2 = c y == d; Inner[Divide, eqn1, eqn2, Equal] (a*x)/(c*y) == b/d David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Owen, HL (Hywel) [mailto:H.L.Owen at dl.ac.uk] To: mathgroup at smc.vnet.net I have two sets of data A and B of the same length, that I'd like to plot one against the other - this is easy of course: ListPlot[Transpose[{A,B}] What I'd like to do next is to colour each point according to the value of B (or A in principle). The points are easily generated using: Point[#]&/@Transpose[{A,B}] And if I have a list of colours C I can do something like {Hue[#]&/@C,Point[#]&/@Transpose[{A,B}]}//Transpose//Graphics//Show The question is how to generate the list of colours C. Note that I don't want to sort A and B, since I want to leave them alone to plot {A,D}, {A,E} later on. I tried various combinations of Ordering[] and Position[] but didn't get anywhere. Anyone have any idea? Thanks, Hywel ------------------------------------------------------------------- Hywel Owen h.owen'at'dl.ac.uk Accelerator Science and Technology Centre Daresbury Laboratory, Warrington WA4 4AD, UK Tel: +44 1925 603797 Fax: +44 1925 603192 ------------------------------------------------------------------- This email is confidential. If you have received this email in error, you are in notice of its status. Please notify the sender immediately by reply e-mail and then delete this message from your system. Please do not copy or use it for any purposes, or disclose its contents to any other person: to do so could be a breach of confidence. Thank you for your co-operation. If this message contains information that you have requested from us please see our standard notice for details of how you may use that information. If the notice is not attached and you require a copy please contact the FoI Officer by emailing FOI-Officer at cclrc.ac.uk <mailto:FOI-Officer at cclrc.ac.uk> or visit our web site <http://www.foi.cclrc.ac.uk>, Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of CCLRC. -----------------------------------------------------------------