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
/ Helen Read :
> 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^#[[2]] == PowerExpand[#[[1]]^#[[2]]],
> > 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.
>
> --
> Helen Read
> University of Vermont