Re: combining graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg24455] Re: combining graphics*From*: Paul Abbott <paul at physics.uwa.edu.au>*Date*: Tue, 18 Jul 2000 00:58:58 -0400 (EDT)*Organization*: University of Western Australia*References*: <8k3lbq$3ko@smc.vnet.net> <8k9fv1$fbm@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Jens-Peer Kuska <kuska at informatik.uni-leipzig.de> wrote: > this was ask one million times before and > the answer is always the same > > Block[{$DisplayFunction = Identity}, > a = Plot[x, {x, 0, 1}]; > b = Plot[2 x, {x, 0, 1}] > ] > Show[a, b]; Hmmm... Maybe the 1,000,001-th answer is Plot[{x,2x},{x,0,1}]; Cheers, Paul -- Paul Abbott Phone: +61-8-9380-2734 Department of Physics Fax: +61-8-9380-1014 The University of Western Australia Nedlands WA 6907 AUSTRALIA http://physics.uwa.edu.au/~paul