MathGroup Archive 2005

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

Search the Archive

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
----------------



  • Prev by Date: Re: [Newbie] Ohm, Ampere, Volt units
  • Next by Date: Newbie Limit problem
  • Previous by thread: TSi Package
  • Next by thread: Newbie Limit problem