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.