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