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!