Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Re: Plotting a line with color changing as a function of position

  • To: mathgroup at smc.vnet.net
  • Subject: [mg124248] Re: Plotting a line with color changing as a function of position
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Sat, 14 Jan 2012 17:10:24 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201201140755.CAA01332@smc.vnet.net>

y[x_, {x1_, y1_}, {x2_, y2_}] =
  ((y2 - y1)*x + x2*y1 - x1*y2)/(x2 - x1);

p1 = {0, 0}; p2 = {10, 10};

Plot[y[x, p1, p2], {x, 0, 10},
 ColorFunction ->
  Function[{x, y}, Hue[Cos[Norm[p1 - {x, y}]]]]]


Bob Hanlon


On Sat, Jan 14, 2012 at 2:55 AM, Eric Michielssen
<emichiel at eecs.umich.edu> wrote:
> Hello,
>
> I would like to plot/draw a line between two points p1= (x1,y1} and
> p2={x2,y2}, and I would like the line color (preferred) or thickness or dash
> density  to be reflective of a known function f(d) that measures the
> distance d from p1 to the point on the line.
>
> Say p1={x1,y1}={0.,0.}, p2={10.,10}, and f[d_]:=Cos[d].
>
> Is this possible?
>
> Thanks!
> Eric
>
> Eric Michielssen
>



  • Prev by Date: Re: NDSolve output without interpolating function
  • Next by Date: InverseFunction: how to manage?
  • Previous by thread: Plotting a line with color changing as a function of position
  • Next by thread: Re: Plotting a line with color changing as a function of position