Re: unevaluated expression [CORRECTION]
- To: mathgroup at smc.vnet.net
- Subject: [mg77241] Re: [mg77114] unevaluated expression [CORRECTION]
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 6 Jun 2007 06:51:30 -0400 (EDT)
- Reply-to: hanlonr at cox.net
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
> >
> >