MathGroup Archive 2004

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

Search the Archive

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


  • Prev by Date: What reduction was used to determine integrals listed on Wolfram's function page for laguerre polynomials
  • Next by Date: Plot of Elliptic Curve with Grid
  • Previous by thread: Re: Pretty print
  • Next by thread: Re: Pretty print