-1
$\begingroup$

I want to create a table 4x4 that uses values n=1,2,3 and 4 and ksi=100, 250,600 and 950, out of this function:

FindRoot[SpheroidalS1[1, n, c, ksi], {c, BesselJZero[n + 1/2, 1]}]

How could we do that?

$\endgroup$
2
$\begingroup$
Table[
    {n, ksi,
     c /. FindRoot[
       SpheroidalS1[1, n, c, ksi],
       {c, BesselJZero[n + 1/2, 1]}]},
    {n, 4}, {ksi, {100, 250, 600, 950}}] //
   Flatten[#, 1] & //
  Prepend[(Style[#, 14, Bold] & /@
     {"n", "ksi", "c"})] //
 Grid[#, Frame -> All] &

enter image description here

$\endgroup$
  • $\begingroup$ Thank you all for your responses! It works! $\endgroup$ – George Giannoulis Oct 19 '16 at 18:47
1
$\begingroup$
t = Table[{n, ksi, 
   c /. FindRoot[
     SpheroidalS1[1, n, c, ksi], {c, BesselJZero[n + 1/2, 1]}]}, {n, 
   1, 4}, {ksi, {100, 250, 600, 950}}];

t[[;; , ;; , 3]] // 
 TableForm[#, TableHeadings -> {Range@4, {100, 250, 600, 950}}] &

enter image description here

$\endgroup$
0
$\begingroup$

This works:

Table[FindRoot[SpheroidalS1[1, n, c, ksi], {c, BesselJZero[n + 1/2, 1]}]
 , {n, {1, 2, 3, 4}}, {ksi, {100, 250, 600, 950}}]
$\endgroup$
0
$\begingroup$

Should be simple:

Table[FindRoot[SpheroidalS1[1, n, c, ksi], {c, BesselJZero[n + 1/2, 1]}],
{n, 1, 4}, {ksi, {100, 250, 600, 950}}]
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.