RE: Pen Lift for FlybackTrace erasure
- To: mathgroup at smc.vnet.net
- Subject: [mg66850] RE: [mg66830] Pen Lift for FlybackTrace erasure
- From: "David Park" <djmp at earthlink.net>
- Date: Thu, 1 Jun 2006 06:55:22 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Oh My!
You can do this in a much simpler manner.
First, why don't you use the ComplexMap standard package?
Needs["Graphics`ComplexMap`"]
CartesianMap[Sin, {-Pi/2, Pi/2}, {-2, 2},
Frame -> True];
Roman Maeder has worked out all the problems of the discontinuities in the
lines. By the way, he shows the code and the development of it in his book
'Programming in Mathematica'.
If you want to plot this yourself, then the best approach is not to use
ListPlot (Throw ListPlot into the ash can!) and not to Flatten your Table
data. Just map Line onto each set of points. Also, the N on your RI
definition does nothing.
z = Complex[x, y];
f[z_] = Sin[z];
RI = {Re[f[z]], Im[f[z]]};
XY = Line /@ Table[RI, {x, -(Pi/2), Pi/2, Pi/10},
{y, -(Pi/2), Pi/2, Pi/60}]//N;
YX = Line /@ Table[RI, {y, -(Pi/2), Pi/2, Pi/10},
{x, -(Pi/2), Pi/2, Pi/60}]//N;
Show[Graphics[
{XY, YX}],
AspectRatio -> Automatic,
Frame -> True];
In the case of Sin, this works pretty well. But if there is a jump
discontinuity in the lines in the domain of the plot then the problem
returns. Maeder's package handles that. The DrawGraphics package has a
routine SplitLineOnDistance that can be used to eliminate these jump lines.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Narasimham [mailto:mathma18 at hotmail.com]
To: mathgroup at smc.vnet.net
Attempting to plot real/imaginary parts of a complex variable function
, {Re,Im}= f [x,y]. But in what follows,
1) How to ' lift pen ' for suppressing flyback tracer lines
connecting between start/end points of x and y set curves?
2) How to combine plotting the sets by a single commad like it is in
Plot3D or ParametricPlot3D? __ TIA
z = Complex[x,y] ; f[z_]=Sin[z]; RI = N[ { Re[f[z]], Im[f[z]] } ];
XY = Flatten[Table[ RI , {x, -Pi/2, Pi/2,Pi/10}, {y, -Pi/2, Pi/2,Pi/60}
],1] ;
xy = ListPlot[XY,PlotJoined->True,AspectRatio->Automatic];
YX=Flatten[Table[ RI , {y, -Pi/2,Pi/2,Pi/10}, {x, -Pi/2, Pi/2,Pi/60}
],1] ;
yx=ListPlot[YX,PlotJoined->True,AspectRatio->Automatic];
Show[xy,yx];