Multiples of Van der Pauw constant Pi divided by logarithm of two as solutions to equation

Mathematica 8


Re[s /. Table[
FindRoot[
N[Sum[1/2^s, {s, 2, Infinity}], 20] == 1 + 1/2^s, {s, a*I}], {a,
1, 60*2*Pi/Log[2], 2*Pi/Log[2]}]]
Im[s /. Table[
FindRoot[
N[Sum[1/2^s, {s, 2, Infinity}], 20] == 1 + 1/2^s, {s, a*I}],
{a, 1, 60*2*Pi/Log[2], 2*Pi/Log[2]}]]/(Pi/Log[2])

Real part:
{1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., \
1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., \
1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., \
1., 1., 1., 1., 1., 1., 1., 1., 1.}

Imaginary part divided by Van der Pauw constant Pi/Log[2] = 4.5323601418271938…

{1., 3., 5., 7., 9., 11., 13., 15., 17., 19., 21., 23., 25., 27., \
29., 31., 33., 35., 37., 39., 41., 43., 45., 47., 49., 51., 53., 55., \
57., 59., 61., 63., 65., 67., 69., 71., 73., 75., 77., 79., 81., 83., \
85., 87., 89., 91., 93., 95., 97., 99., 101., 103., 105., 107., 109., \
111., 113., 115., 117., 119.}

Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.