Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: tabulate an expression in arbitrary precision

  • To: mathgroup at smc.vnet.net
  • Subject: [mg93967] Re: [mg93957] tabulate an expression in arbitrary precision
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 30 Nov 2008 06:58:20 -0500 (EST)
  • Reply-to: hanlonr at cox.net

If machine precision is good enough:

Grid[Prepend[Table[{
    NumberForm[x, {2, 1}],
    NumberForm[Erf[x], {11, 10}, DigitBlock -> 5]},
   {x, 0, 1, 0.1}],
  TraditionalForm /@ {x, Erf[x]}],
 Frame -> All]

For greater precision:

n = 25;
Grid[Prepend[Table[{
    NumberForm[N[x], {2, 1}],
    NumberForm[N[Erf[x], 2 n], {n + 1, n}, DigitBlock -> 5]},
   {x, 0, 1, 1/10}],
  TraditionalForm /@ {x, Erf[x]}],
 Frame -> All]


Bob Hanlon

---- Leslaw Bieniasz <nbbienia at cyf-kr.edu.pl> wrote: 

=============
Hi, 
I am new to MATHEMATICA, and I am looking for advice. 
I have access to MATHEMATICA 6.0.
I need to tabulate values of a certain expression involving error function Erf[x], for a number of x values.
The problem is that I need to do these calculations in
arbitrary precision (that is I want to be able to control
the number N of significant digits). Can anybody show me some examples of how this might be done? I stress I know
nothing about MATHEMATICA. I want the results to be displayed and saved in the form of a table having two columns, where the first column contains x values, and
the second column contains the corresponding values of the expression, with all N significant digits.

Leslaw


--

Bob Hanlon



  • Prev by Date: RE: tabulate an expression in arbitrary precision
  • Next by Date: Re: tabulate an expression in arbitrary precision
  • Previous by thread: RE: tabulate an expression in arbitrary precision
  • Next by thread: Re: tabulate an expression in arbitrary precision