I Want More Digits in TraditionalForm

• To: mathgroup at smc.vnet.net
• Subject: [mg14307] I Want More Digits in TraditionalForm
• From: MJE <nospam at gte.net>
• Date: Tue, 13 Oct 1998 01:21:22 -0400
• Organization: None
• References: <199808110856.EAA10627@smc.vnet.net.> <361E5F95.4B1@nowhere.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Question.  How does one get TraditionalForm to print out all numerical
values with many digits, instead of just 5 or 6?

Here are some input cells you can try out to get the feeling of what I'm
doing.

The reason to retain many digits is the interrelation between functions,
i.e. c[p] and p[c] are functional inverses, etc.  Chopping digits
arbitrarily destroys these relations.

Thanks group,

Mark Evans
"evans" at "gte" dot "net"

____________________________

c[p_] := 0.07549146238926269*ArcSinh[0.00007718657554083618*p] p[c_] :=
12955.620753908715*Sinh[13.246531042724007*c] betaOfP[p_] :=
171617.0324944112*Sqrt[1 + HoldForm[(0.00007718657554083618*p)]^2]
betaOfC[c_]  :=  171617.0324944112*Cosh[13.246531042724007*c]

(* Display functions in TraditionalForm *)
TraditionalForm[HoldForm[p[c]] == p[c]] TraditionalForm[HoldForm[c[p]]
== c[p]] TraditionalForm[HoldForm[\[Beta][p]] == betaOfP[p]]

```

• Prev by Date: Re: Series of a Root object
• Next by Date: Re: How: {{a,b},{1,2,3}} --> {{a,1},{b,2},{a,3}} ?
• Previous by thread: Math3.0/Win98: SaveSelectionAs->Metafile clips the image?
• Next by thread: Re: I Want More Digits in TraditionalForm