       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:
• Prev by Date: RE: Re: Re: No Show
• Next by Date: Sum simplifying
• Previous by thread: Quantum Mathematica 6 Package
• Next by thread: Re: enquiry