Take 2: MultipleListPlot MakeSymbol Issue

*To*: mathgroup at smc.vnet.net*Subject*: [mg53458] Take 2: MultipleListPlot MakeSymbol Issue*From*: Pennyrue at aol.com*Date*: Wed, 12 Jan 2005 03:41:39 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

I see that I was a bit unclear about what I was wanting to do the first time, so here is the code that will help explain: ----------------------------------------------------------------- points1 := start1 + (p - 1)*(end1 - start1)/(segments1 - 1); points2 := start2 + (p - 1)*(end2 - start2)/(segments2 - 1); x1 := Sin[c1a*points1]; y1 := Cos[c1b*points1]; x2 := Sin[c2a*points2]; y2 := Cos[c2b*points2]; t1 := Table[{x1, y1}, {p, segments1}]; t2 := Table[{x2, y2}, {p, segments2}]; start1 := 0; end1 := 2\[Pi]; segments1 := 500; c1a := 1; c1b := -4; start2 := 0; end2 := 2\[Pi]; segments2 := 49; c2a := -2; c2b := 1; gt1 := ListPlot[t1, Axes -> None, AspectRatio -> 1, PlotJoined -> True, DisplayFunction -> Identity]; gt2 := ListPlot[t2, Axes -> None, AspectRatio -> 1, PlotJoined -> True, DisplayFunction -> Identity]; gt3 := MultipleListPlot[t2, SymbolShape -> MakeSymbol[Line[15*t1]], Axes -> None, PlotRange -> {{-1.25, 1.25}, {-1.25, 1.25}}, AspectRatio -> 1, DisplayFunction -> Identity]; Show[GraphicsArray[{{gt1, gt2}}], ImageSize -> {96, 96}]; Show[GraphicsArray[{{gt3}}], ImageSize -> {384, 384}]; ------------------------------------------------------------------ I would like for the W curve to follow the tangent of the 8 curve, instead of having the same orientation all the way around. I'm using Mathematica 4.1 if that is significant. Thanks again, Dimitri Vorkapich pennyrue at aol.com ----------------