Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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