How can I increase the precision of my table?

Question

I want to see first 15 digits for the values in the table computed below.

n = 0; a = 1; L = 3; m = 1/2; b = 1; g = (2 m a r)/(n + L + 1);

Fi[r_] = (r)^(L + 1)Exp[-((  m a)/(n + L + 1)) r] LaguerreL[n, 2 L + 1, g];

f[r_] = AiryAi[(2 m b)^(1/3) (r)];

ψ[r_] = Fi[r] f[r];

Plot[{r^(L + 1) f[r], Fi[r] f[r]}, {r, 0, 5}]

dr = 0.00000001;

ε1 = (a/(L + 1) - (L + 1)/(m r)) f'[r]/f[r] + (-m a^2)/(2 (n + L + 1)^2);
ε2 = -ψ''[r]/((2 m) ψ[r]) + (-(a/r) + b r + (L (L + 1))/(2 m r^2));

data = Table[{r, r^(L + 1) f[r], ψ[r], ε1, ε2}, {r, 2.647, 2.648, dr}];

TableForm[data, 
  TableHeadings -> {None, {"r", "r^(L+1) f[r]", "Fi[r] f[r]", "ε1", "ε2"}}]

Possible duplicate: https://mathematica.stackexchange.com/questions/3736/annoying-display-truncation-of-numerical-results — Michael E2, Aug 04 '18 at 13:44

score 4 · Answer 1 · edited Jun 16 '20 at 09:23

4

TableForm[Take[data, 5], 
  TableHeadings -> {None, {"r", "r^(L+1) f[r]", "Fi[r] f[r]", 
     "\[CurlyEpsilon]1", "\[CurlyEpsilon]2"}}] //
 Style[#, PrintPrecision -> 15] &

EDIT

PrintPrecision -> 15 can be set at the Notebook level.
See this link .

edited Jun 16 '20 at 09:23

Community

1

answered Jan 09 '16 at 18:20

andre314

18,474
1
36
69

thank you so much sir. You have been very helpful. – Yücel Cançelik Jan 09 '16 at 18:56

eldo · Answer 2 · 2016-01-09T18:45:34.150

3

NumberForm[TableForm[data,
  TableHeadings -> {None, {"r", "r^(L+1) f[r]", "Fi[r] f[r]", 
     "\[CurlyEpsilon]1", "\[CurlyEpsilon]2"}}],
 {15, 15}]

Update

With dr = 0.00000001 the first 10 items would be

edited Jan 09 '16 at 18:45

answered Jan 09 '16 at 18:11

eldo

67,911
5
60
168

apparently, the question was first posted with dr=10^-4. Now it is 10^-8 – andre314 Jan 09 '16 at 18:39

How can I increase the precision of my table?

2 Answers2