Re: Can you tell me what is wrong with this program

*To*: mathgroup at smc.vnet.net*Subject*: [mg110351] Re: Can you tell me what is wrong with this program*From*: Thomas Melehan <tpmelehan at gmail.com>*Date*: Tue, 15 Jun 2010 02:27:49 -0400 (EDT)

Mathematica default syntax is that capital letters are used for system variables and generally already have a definition. Best to go with smaller case or more descriptive variable names that start with lower case letter for variable you define. On Jun 13, 2010, at 6:52 PM, satya wrote: > 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]]}}}} >