Re: creating an array in a loop
- To: mathgroup at smc.vnet.net
- Subject: [mg100472] Re: [mg100442] creating an array in a loop
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Fri, 5 Jun 2009 03:01:20 -0400 (EDT)
- Reply-to: hanlonr at cox.net
Not clear what you are trying to do. Try something closer to this.
Func[lmbd_, eps0_] := lmbd + 1 + eps0
Neps = 20;
Nlmbd = 10;
SOL = Table[0, {Nlmbd}, {Neps}];
deps0 = 0.1;
For[lmbd = 0; ieps0 = 1,
lmbd <= Nlmbd - 1 && ieps0 <= Neps,
lmbd++; ieps0++,
eps0 = deps0*(ieps0 - 1);
SOL[[lmbd + 1, ieps0]] = Func[lmbd, eps0]]
SOL
Bob Hanlon
---- "Igor R." <ir12 at mail.gatech.edu> wrote:
=============
Dear all,
I am new to Mathematica programming
I have the following question.
How to create an array in a loop?
I have the code
=======================================
Neps0;
Nlmbd=10;
Array[SOL,{10,20}]
deps0=0.1; eps0=0.0;
For[lmbd=0; ieps0=1;, \
lmbd<=Nlmbd-1; ieps0 <= Neps;, \
lmbd=lmbd+1; ieps0=ieps0+1;,\
eps0=deps0*(ieps-1);
SOL[[lmbd+1,ieps]]=Func[lmbd,eps0];
]
SOL
=======================================
(where Func[a,b] is some function)
What is wrong with it, why this does not
work?
--
Bob Hanlon