MathGroup Archive 2006

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

Search the Archive

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