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.