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.