MathGroup Archive 2010

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

Search the Archive

Re: Manipulate piecewise functions,

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107706] Re: [mg107643] Manipulate piecewise functions,
  • From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
  • Date: Wed, 24 Feb 2010 06:18:31 -0500 (EST)
  • References: <201002210924.EAA17172@smc.vnet.net>

Hi,

> for plot y versus x is:
> y=x-p-q for x-p-q<a, and (x-p-q)^2 for (x-p-q)>=a i.e. 6 plots getting
> manipulated simultaneously. 

this makes absolutely no sense, because you will have no additional
information. Set k=p+q and you can do the same with only one parameter.
But your original question is easy:

Manipulate[
 Plot[Evaluate[
   Piecewise[{{x - p - q, x - p - q <= #}}, (x - p - q)^2] & /@ 
    Range[6]], {x, 0, 20}, PlotRange -> {Automatic, {0, 50}}], {p, 0, 
  20}, {q, 0, 20}]

If you give Plot a list of functions you'll have them all in the same
plot. But I'm pretty sure you expected something different from this
plot.

Cheers
Patrick


> Again, Thanks for your help and I hope you will again respond to the
> query quickly!
> 
> Best regards,
> 
> Vedhas
> 
> On Sun, Feb 21, 2010 at 8:33 AM, Bob Hanlon <hanlonr at cox.net> wrote:
>         
>         If you plot all of the curves on a single plot they will
>         overlap and make it difficult to see what is happening.
>         Recommend an array of plots.
>         
>         Manipulate[
>          Grid[
>          Partition[
>           Table[
>            Plot[
>             Piecewise[{
>               {x - p, x < a + p},
>               {(x - p)^2, x >= a + p}}],
>             {x, -8, 5},
>             Frame -> True,
>             Axes -> False,
>             PlotRange -> {-10, 50},
>             ImageSize -> 250,
>             Epilog ->
>              {Style[
>                Text[
>                 "a = " <> ToString[a],
>                 {-6, 40}],
>                Blue, 16],
>               Style[
>                Text[
>                 "step = " <> ToString[a (a - 1)],
>                 {-6, 30}],
>                Blue, 16]}],
>            {a, 6}],
>           2]],
>          {p, -6, -2, Appearance -> "Labeled"}]
>         
>         
>         Bob Hanlon
>         
>         
>         ---- Vedhas | sahdeV <vedhas at gmail.com> wrote:
>         
>         =============
>         a = {1 2 3 4 5 6}
>         The goal is to plot a piecewise function corresponding to each
>         of "a"
>         values, with manipulate where control variable is p, and the
>         function
>         for plot y versus x is:
>         y=x-p for x-p<a, and (x-p)^2 for (x-p)>=a i.e. 6 plots getting
>         manipulated simultaneously.
>         
>         I am new to Mathematica and this might be a naive question,
>         but I
>         couldn't find a solution through help documentation. I will
>         appreciate
>         if you can help!
>         
>         Thanks,
>         
>         Vedhas
>         
>         
> 



  • Prev by Date: Re: Manipulate piecewise functions,
  • Next by Date: Re: Manipulate piecewise functions,
  • Previous by thread: Re: Manipulate piecewise functions,
  • Next by thread: Re: Manipulate piecewise functions,