MathGroup Archive 2010

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

Search the Archive

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




  • Prev by Date: Re: Excel Data Managing
  • Next by Date: Re: Excel Data Managing
  • Previous by thread: Re: Can you tell me what is wrong with this program
  • Next by thread: Re: Can you tell me what is wrong with this program