Re: Pretty print
- To: mathgroup at smc.vnet.net
- Subject: [mg51496] Re: [mg51472] Pretty print
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 20 Oct 2004 01:21:16 -0400 (EDT)
- Reply-to: hanlonr at cox.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
>
> From: Kaba <none at here.com>
To: mathgroup at smc.vnet.net
> Date: 2004/10/19 Tue AM 02:55:44 EDT
> To: mathgroup at smc.vnet.net
> Subject: [mg51496] [mg51472] Pretty print
>
> Hello
>
> To make a paper containing mathematical notation I'd need to see the
> definition I enter as pretty printed.
> For example:
> I enter: f[x_] = 2*x
> Then Mathematica gives as output: 2 x
> But I'd need something like: f(x) = 2 x
> Is there a way to do that ?
>
>