MathGroup Archive 2010

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

Search the Archive

Can you tell me what is wrong with this program

  • To: mathgroup at smc.vnet.net
  • Subject: [mg110337] Can you tell me what is wrong with this program
  • From: satya <ktsatyajit at gmail.com>
  • Date: Sun, 13 Jun 2010 18:52:27 -0400 (EDT)

c = 0;
m = 0;
z = 0;
count = 0;
for [lc = 0, lc < 8, lc++]
 {
 lc = lc + 1;
 for[lm = -4, lm < 8, lm++]
   {
   lm = lm + 1;
   for [lz = -4, lz < 8, lz++]
     {
     lz = lz + 1;
     A = (2*(lc - lm)*(lc - lm)) + 4*lz*lz;
     B = -2*(lc + lm)*lz;
     C = 4*lc*lm;
     if [A > 0]
       if[(B*B - A*C) > 0]
       {
       K1 = (B + sqrt (B*B - A*E))/A;
       K2 = (B - sqrt (B*B - A*E))/A;
       e = abs (lc);
       m = abs (lm);
       z = abs (lz);
       L = c + m + z;
       if [K1 <= 0.707 && K1 > 0 , print[n, L, lc,   lm ,  lz, K1]]
         if [K2 <= 0.707 && K1 > 0 , print[n, L, lc,   lm ,  lz, K2]]

       }


     }
   }
 }

I get the following error

Out[5]= for[0, True, 0]

During evaluation of In[1]:= Set::wrsym: Symbol C is Protected. >>

Out[6]= {{{{for[-4, True, -4]^2 if[
      True] if[-48 C > 0] if[-E sqrt <= 0.707 && -E sqrt > 0,
      print[n, -4 abs, 2, -2, -2, -E sqrt]] if[
      E sqrt <= 0.707 && -E sqrt > 0,
      print[n, -4 abs, 2, -2, -2, E sqrt]]}}}}


  • Prev by Date: Dynamic window popup question
  • Next by Date: Re: Using mathematica to read website
  • Previous by thread: Re: problem with the usage or implemetation of EllipticF[x,m] and
  • Next by thread: Re: Can you tell me what is wrong with this program