MathGroup Archive 2010

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

Search the Archive

Plot with Manipulate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112318] Plot with Manipulate
  • From: agua <auguaylupo at gmail.com>
  • Date: Thu, 9 Sep 2010 04:22:36 -0400 (EDT)

Hi all,
Because the result of "Plot" in what follows:

Plot[{Log[1/3, x], Log[x]}, {x, 0.001, 5},PlotRange -> {{-0.1, 5},
{-4, 4}}]

is different (the blue line is not equal) from the result using
"Manipulate":

Manipulate[
Show[
Plot[Tooltip[Log[x]],{x,0.001,5},PlotRange->{{-1,5},{-4,4}},PlotStyle-
>{Red}],
If[a1,Plot[Log[1/3,x],{x,0.001,5},PlotStyle->{Blue}],{}]
],
{{a1,True,"Subscript[log, (1/3)]x"},{False,True}},
ControlPlacement->{Left},
TrackedSymbols:>{a1}, SaveDefinitions->True]

------------------------------------------------
Thanks for your comments.


  • Prev by Date: Help with Solve
  • Next by Date: Re: FindRoots? / Semenev systems of equations...
  • Previous by thread: Re: Help with Solve
  • Next by thread: Re: FindRoots? / Semenev systems of equations...