Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

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