RE: superimpose to curves
- To: mathgroup at smc.vnet.net
- Subject: [mg38309] RE: [mg38251] superimpose to curves
- From: "David Park" <djmp at earthlink.net>
- Date: Thu, 12 Dec 2002 01:32:00 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Sisir,
Make the separate plots and suppress the display. Then combine the two plots
with a Show statement. As a little extra I put color on the two curves. The
Block statement temporarily sets the system display function to Identity,
which suppresses the extra display of the separate curves.
Needs["Graphics`Colors`"]
Block[{$DisplayFunction = Identity},
plot1 = Plot[Sin[x], {x, 0, Pi}, PlotStyle -> Blue];
plot2 = Plot[2Sin[x], {x, Pi/4, 5Pi/4}, PlotStyle -> Red];]
Show[{plot1, plot2}];
Using the DrawGraphics package from my web site it can be done in a slightly
more natural and direct manner.
Needs["DrawGraphics`DrawingMaster`"]
Draw2D[
{Blue, Draw[Sin[x], {x, 0, Pi}],
Red, Draw[2Sin[x], {x, Pi/4, 5Pi/4}]},
Axes -> True];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: sisir at hve.iisc.ernet.in [mailto:sisir at hve.iisc.ernet.in]
To: mathgroup at smc.vnet.net
Respected Sir/Madam,
I want to super impose(add) two curves of
different ranges-one is -5ms to 15 ms and other one
is 0ms to 20ms of different amplitude.
So kindly suggest me
--
With best wishes..............
SISIR KUMAR NAYAK
ELECTRICAL SCIENCE
U-79,STUDENT HOSTEL
IISC, BANGALORE.
PH:3942624(080)