Re: Pen Lift for FlybackTrace erasure
- To: mathgroup at smc.vnet.net
- Subject: [mg66856] Re: [mg66830] Pen Lift for FlybackTrace erasure
- From: gardyloo <gardyloo at mail.wsu.edu>
- Date: Thu, 1 Jun 2006 06:55:48 -0400 (EDT)
- References: <200605311031.GAA13995@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi, Narasimham,
I think the command "DisplayTogether" will help you with both of
these issues. Additionally, the function "DontShow" from David Park's
"DrawGraphics" package can be very useful, but the same behavior can be
obtained a little more painfully:
Needs["Graphics`Graphics`"] (*for the DisplayTogether function *)
z = Complex[x, y]; f[z_] = Sin[z]; RI = N[{Re[f[z]], Im[f[z]]}];
XY = Table[RI, {x, -Pi/2, Pi/2, Pi/10}, {y, -Pi/2, Pi/2, Pi/60}]; (*don't flatten this for the plotting method to work *)
xy = DisplayTogether[(ListPlot[#1, PlotJoined -> True,
AspectRatio -> Automatic] & ) /@ XY]; (*ListPlot each of the lists given in XY, and display them all together -- this avoids the "flyback" issue *)
YX = Table[RI, {y, -Pi/2, Pi/2, Pi/10}, {x, -Pi/2, Pi/2, Pi/60}]; (*construct YX similarly -- don't flatten*)
yx = DisplayTogether[(ListPlot[#1, PlotJoined -> True,
AspectRatio -> Automatic] & ) /@ YX];
DisplayTogether[xy, yx]
(*or*)
Show[xy, yx]
Cheers,
Curtis O.
Narasimham wrote:
> 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];
>
>
>
--
==========================================================
Curtis Osterhoudt
PGP Key ID: 0x088E6D7A
Please avoid sending me Word or PowerPoint attachments
See http://www.gnu.org/philosophy/no-word-attachments.html
==========================================================
--------------060909090507090604090801
name="gardyloo.vcf"
filename="gardyloo.vcf"
begin:vcard
fn:Curtis Osterhoudt
n:Osterhoudt;Curtis
email;internet:gardyloo at mail.wsu.edu
tel;work:509.335.4946
x-mozilla-html:FALSE
version:2.1
end:vcard
--------------060909090507090604090801--