MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: Installation of Mathematica 5.0
  • Next by Date: [Help]How to reprensent the result in vector form?
  • Previous by thread: Re: Pretty print
  • Next by thread: Why Not[] is not Listable by default ?