Re: Baffling Failure when plotting multiple curves.
- To: mathgroup at smc.vnet.net
- Subject: [mg44173] Re: Baffling Failure when plotting multiple curves.
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Sat, 25 Oct 2003 06:26:23 -0400 (EDT)
- References: <bnao48$4ei$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
See on-line help for Plot regarding use of Evaluate with Plot's arguments
voteCurves[pnts_List]:=
pnts.{Cos[t*Degree],Sin[t*Degree]};
voteCurves[{{a,b},{c,d},{e,f}}]
{a*Cos[Degree*t] + b*Sin[Degree*t], c*Cos[Degree*t] +
d*Sin[Degree*t], e*Cos[Degree*t] + f*Sin[Degree*t]}
p1 = {158, 116};
p2 = {74 , 135};
Plot[
Evaluate[voteCurves[{p1,p2}]],
{t,-90,180},
AxesOrigin->{0,0},
PlotRange->{{-90,180},{0,255 Sqrt[2]}},
AspectRatio->1,
Frame->True];
Bob Hanlon
In article <bnao48$4ei$1 at smc.vnet.net>, Bob Harris <nitlion at mindspring.com>
wrote:
<< Am having trouble getting collections of 2D function plots to work. I have
created a function that returns a list of "equations" in one variable,
theta. I.e. an equation is an expression like 17 Cos[theta] + 10
Sin[theta]. When I try to plot this list of functions AS THE RETURN VALUE
OF MY FUNCTION, Mathematica complains (details below). However, if I
evaluate the function first, then cut and paste the result into the call to
Plot, it works ok (but this is not very useful to me, since I want to
incorporate this into a larger function). Further, if my function returns a
list with only one equation in it, then handing the function call to Plot
works. I'm clueless as to what he difference is. >><BR><BR>