enquiry

*To*: mathgroup at smc.vnet.net*Subject*: [mg89170] enquiry*From*: abubaker alshafee <bico98 at yahoo.com>*Date*: Wed, 28 May 2008 04:44:12 -0400 (EDT)

Hi All I am tryin to build a Matrix Vmn = Array[v, {m, n}] with V equal to V = (-(y* N[BesselK[13 I, 2 Pi n y*]] Exp[(13 Pi)/2]] Exp[2 Pi I n (((j - 1/2)/2) Q)] Exp[-2 Pi I m (((j - 1/2)/2) Q)])) (1/(2 Q)) + KroneckerDelta[m, n] (Sqrt[y] N[BesselK[13 I, 2 Pi m y] Exp[(13 Pi)/2]]) I used the following but I faild to get the correct matrix or array, I got a reapeted answers , I also need to generate a loop to build the Array of V elements Any one can help with that, here the loops i wrote but it is not working MY = 10; For[m = 2, m <= MY, m++, Q = 11; b = {}; y = 0.3; y* = 0.3; For[n = 2, n <= MY, n++, For[j = 1, j <= Q, j = j + 1, v = (Sqrt[y]* N[BesselK[13 I,2 Pi n y*] Exp[13 Pi/2)] Exp[2 Pi I n ((j - 1/2) Q/2)] Exp[2 Pi I m ((j - 1/2) Q/2)]; v = KroneckerDelta[m, n] (Sqrt[y] N[BesselK[13 I, 2 Pi m y] E^((13 Pi)/2), 50]) - v/(2 Q); AppendTo[b, v]; gg = Array[v, {m, n}]]] Print[gg] Regards Bico

**Follow-Ups**:**Re: enquiry***From:*"W_Craig Carter" <ccarter@mit.edu>