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

• To: mathgroup at smc.vnet.net
• Subject: [mg110346] Re: Can you tell me what is wrong with this program
• From: David Bailey <dave at removedbailey.co.uk>
• Date: Tue, 15 Jun 2010 02:26:54 -0400 (EDT)
• References: <hv3nf8\$ov\$1@smc.vnet.net>

```On 13/06/10 23:52, 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= 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]]}}}}
>
C is a built-in symbol used when an undetermined constant is required -
as in symbolic integration, and is reserved for this purpose. If you use
variable names that start with a lower case letter, you will not
encounter this problem.

David Bailey

www.dbaileyconsultancy.co.uk

```

• Prev by Date: Re: Excel Data Managing
• Next by Date: Re: WORKBENCH VS MATHEMATICA
• 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