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

```

• Prev by Date: Re: Mathematica Font problems
• Next by Date: Re: New Analytical Functions - Mathematica Verified
• Previous by thread: RE: Pen Lift for FlybackTrace erasure
• Next by thread: Re: Pen Lift for FlybackTrace erasure