Re: unevaluated expression [CORRECTION]
- To: mathgroup at smc.vnet.net
- Subject: [mg77274] Re: [mg77114] unevaluated expression [CORRECTION]
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 6 Jun 2007 07:08:42 -0400 (EDT)
- Reply-to: hanlonr at cox.net
Disregard this "correction" I got target fixation on the integral symbol and overlooked its argument. Sorry about the noise.
Bob Hanlon
---- Bob Hanlon <hanlonr at cox.net> wrote:
> This uses a larger integral symbol
>
> Clear[example];
>
> example[f_Function, x_Symbol: x] :=
> Module[{g}, StringJoin[
> StringReplace[tstf[Integrate[g[x], x]], ToString[g] -> "f"],
> " = ", tstf[Integrate[f[x], x]]]]
>
>
> Bob Hanlon
>
> ---- Bob Hanlon <hanlonr at cox.net> wrote:
> > tstf[x_] := ToString[TraditionalForm[x]];
> >
> > Clear[example];
> >
> > example[f_Function, x_Symbol: x] := StringJoin["\[Integral] ",
> > tstf[f[x]], " \[DifferentialD]", tstf[x], " = ",
> > tstf[Integrate[f[x], x]]]
> >
> > example[#^2&]
> >
> > example[#^2&, y]
> >
> >
> > Bob Hanlon
> >
> > ---- juliok at verizon.net wrote:
> > > How do you write a function such as
> > > example[f_]:= ......
> > >
> > > so that when entering example[#^2] Mathematica will respond with
> > >
> > > integral_symbol x^2 dx = x^3 /3
> > >
> > > where integral_symbol is the standard math symbol, exponents are
> > > superscripts, etc. I tried Hold[], Unevaluated[], nothing seems to
> > > work.
> > >
> > > Thanks
> > >
> > >
> > > Julio
> > >
> > >