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