MathGroup Archive 2004

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

Search the Archive

Re: Pretty print


> 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 ?