       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