       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= for[0, True, 0]

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

Out= {{{{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