       Re: What to do in v. 6 in place of

• To: mathgroup at smc.vnet.net
• Subject: [mg76867] Re: What to do in v. 6 in place of
• From: dimitris <dimmechan at yahoo.com>
• Date: Tue, 29 May 2007 04:52:10 -0400 (EDT)
• References: <f3bh1e\$37g\$1@smc.vnet.net><f3doco\$flg\$1@smc.vnet.net>

```Or simply turn off the message in advance for your class!

Dimitris

> Bob Hanlon wrote:
> > This works for simple cases such as your examples.
> >
> > Clear[realPlot];
> > realPlot[expr_,
> >    {x_Symbol, xmin_?NumericQ, xmax_?NumericQ},
> >    opts___] := Module[{d, e, f, y},
> >    e = Flatten@{expr};
> >    d = (Denominator@PowerExpand@Log[x, #] & /@ e);
> >    f = y /. (ToRules@
> >          Reduce[y^#[] == PowerExpand[#[]^#[]],
> >           y, Reals] & /@ Thread[{e, d}]);
> >    Plot[f, {x, xmin, xmax}, opts]];
> >
> > Grid[{{realPlot[x^(1/3), {x, -8, 8}],
> >    realPlot[x^(3/5), {x, -8, 8}]},
> >   {realPlot[{x^(1/3), x^(3/5)}, {x, -8, 8}]}}]
>
> This completely misses the point, which is to make it easy for beginning
> calculus students to plot functions such as x^(1/3) for negative x.
> There is no way they could follow what you have written, let alone
> reproduce it themselves.
>
> Probably the best solution at this point is to simply use the old
> Miscellaneous`RealOnly` package when this comes up in class, and just
> ignore the "obsolete package" message.
>
> --