Mathematica 8:

(*program start*)

Clear[a, b, epsilon, n, k];

a = {0, 1, 1, 2, 1, 0, 1, 3, 2, 0, 1, 0};

b = {0, 0, 0, 2, 0, 1, 0, 3, 2, 1, 0, 0};

epsilon = 1/10000;

MatrixForm[

Table[Table[

Sqrt[(Im[Log[n - k - 1]] - Im[Log[n - k]])/Pi*a[[n]]*b[[k]]], {n,

1, 12}], {k, 1, 12}]]

(*program end*)

Advertisements