Re: Pretty print
- To: mathgroup at smc.vnet.net
- Subject: [mg51522] Re: Pretty print
- From: Kaba <none at here.com>
- Date: Thu, 21 Oct 2004 22:20:32 -0400 (EDT)
- References: <cl4suq$8dd$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
> SetAttributes[eqnDef, {Listable,HoldFirst}];
>
> eqnDef[f_] :=
> ToString[TraditionalForm[HoldForm[f]]] <>
> " = " <> ToString[TraditionalForm[f]];
>
> f[x]:= x^2;
>
> g[n_, z_] := x^2*Exp[-x]*BesselI[n, z];
>
> eqnDef[f[x]]
>
> eqnDef[{f[x],g[n,x]}]//ColumnForm
>
>
> Bob Hanlon
This does the trick;) Thank you.