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.