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]]}}}}