Problems about "For"

*To*: mathgroup at smc.vnet.net*Subject*: [mg96511] Problems about "For"*From*: laura parisi <lau.parisi at gmail.com>*Date*: Sun, 15 Feb 2009 03:21:01 -0500 (EST)

Dear Mathematica Users, I've realized a loop using Euler method: For[i=1,i<2, {S=1/2*N12/DE[i-1]-1/2*DE[i-1]*=83=D5rif2, a[i]=DSolve[=83=E2'[t]-S=83=FA0,=83=E2[t],t],=83=E2[t]==83=E2[t]/.a[= i], =83=E2[t]==83=E2[t]/.C[1]=84_C1, eq==83=E2[t]/.t=84_(t1[[i]]-1), a=Solve[eq===83=E2[i-1],C1], =83=E2[i]==83=E2[t]/.{C1=84_a,t=84_t1[[i]]},DE[i]=DE[i-1]*=83=E2[i]}= ;i++]; in this expression, N1 is stated like a sinusoidal function: N1=N0+B*Sin[=83=E7*t]; and T1 is a vector of time: t1=Table[i,{i,20}]; All the other parameters are allocated: B=1; N0=2; =83=E7=1; A=1; E0=1; =83=E2[0]=1; =83=D5rif=1; DE[0]=1; The loop give me this error: Solve::eqf : {-2+C1}=83=FA1 is not a well-formed equation. =83=F7 with C1 constant of integration. What can I do for this loop in this case and if i want to reapet the loop for i<100? Is better to use "DO"? Help me..It's important. Thank you!