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

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