Re: Do loop is faulty

*To*: mathgroup at smc.vnet.net*Subject*: [mg55380] Re: [mg55368] Do loop is faulty*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Mon, 21 Mar 2005 03:01:45 -0500 (EST)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

a[[i]] is part i of the list a a=Table[Random[Integer,{1,10}],{10}]; b=Table[Random[Integer,{1,4}],{10}]; c=Table[Integrate[a[[i]]*x*Sin[b[[i]]*x],{x,0,b[[i]]}],{i,10}]; c[[3]] (3/4)*(-4*Cos[4] + Sin[4]) %//N 1.39333 Bob Hanlon > > From: "dumb_founded" <andreajagger_8 at hotmail.com> To: mathgroup at smc.vnet.net > Date: 2005/03/20 Sun AM 04:12:05 EST > To: mathgroup at smc.vnet.net > Subject: [mg55380] [mg55368] Do loop is faulty > > I define array a[i] and array b[i] of dimension 10. Then I go through > the following Do loop, or try to, that is. > > > Array[c,10]; > Do[c[i]=NIntegrate[a[i]*x*Sin[b[i]*x],{x,0,b[i]}] > > I get numerous error messages saying that b[i] is not a valid limit of > integration. > > This is sheer headache. I will never try to use Mathematica for > numerical analysis again. > > All your efforts on this matter are sincerely appreciated. > > > > Thanks > >