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