how can I list x, y axes values of a graph

Question

n = 0; a = 1; L = 0; m = 1/2; b = 100; 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)];

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

Look up Table[]. – J. M.'s missing motivation Oct 26 '15 at 10:28 — J. M.'s missing motivation, Oct 26 '15 at 10:28
Possible duplicate of Plot, extract data to a file – Karsten7 Oct 26 '15 at 10:43 — Karsten7, Oct 26 '15 at 10:43
Or http://mathematica.stackexchange.com/q/14222/18476 – Karsten7 Oct 26 '15 at 10:58 — Karsten7, Oct 26 '15 at 10:58

score 1 · Answer 1 · answered Oct 26 '15 at 10:53

1

The duplicate that Karsten pointed to I think is overkill for this. Just a simple Table is all you need, and you can display it easily with TableForm

dr = 0.05;
data =  Table[{r, r^(L + 1) f[r], Fi[r] f[r]}, {r, 0, 1, dr}];
TableForm[
 data,
 TableHeadings -> {None, {"r", "r^(L+1) f[r]", "Fi[r] f[r]"}}
 ]

answered Oct 26 '15 at 10:53

Jason B.

68,381
3
139
286

thank you so much Jason. You saved me from the arrogant one.my soon and daughter thanks to you, too. – Yücel Cançelik Oct 26 '15 at 13:05

how can I list x, y axes values of a graph

1 Answers1