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