Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Problems with Plot in Mathematica 4.0

  • To: mathgroup at smc.vnet.net
  • Subject: [mg45839] Re: Problems with Plot in Mathematica 4.0
  • From: bobhanlon at aol.com (Bob Hanlon)
  • Date: Tue, 27 Jan 2004 04:50:32 -0500 (EST)
  • References: <bv2f3b$2g$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Needs["Graphics`Graphics`"];

f1[x_] := 0.5x^2-x;
f2[x_] := -0.5x^2+x;

This works for any functions and whether or not they share a domain boundary

DisplayTogether[
    Plot[f1[x],{x,-3,0}],
    Plot[f2[x],{x,0,3}],
    PlotRange->All];

Since your functions are piecewise continuous you can turn one off and the
other on at the common domain boundary

Plot[
    f1[x]+UnitStep[x]*(f2[x]-f1[x]), 
    {x,-3,3}, PlotRange->All];

Or, since your two functions share a common form you can combine them into a
single function.

Plot[Abs[x](1-0.5x), {x,-3,3}, 
    PlotRange->All];


Bob Hanlon

In article <bv2f3b$2g$1 at smc.vnet.net>, "Manfred Fischer" <manfis at t-online.de>
wrote:

<< I want to plot the two functions in one Plot output
+0.5x^2-x (definition-range -3<=x<=0)
-0.5x^2+x (definition-range 0<=x<=3)

I can't find a mathematica 4.0 solution, please help!


  • Prev by Date: Re: FilledPlot with Implicit Functions?
  • Next by Date: Re: [Outer [Times, , ] ] Question
  • Previous by thread: Re: Problems with Plot in Mathematica 4.0
  • Next by thread: Re: Problems with Plot in Mathematica 4.0