| Author |
Comment/Response |
Sang-Ho Bok
|
 02/25/99 9:59pm
I am a physics graduate student and I'm trying to solve coupled equations by iteration. If anyone know how to solve the problem below, please send me emails. Thank you.
init=Table[A[i]=B[i]=0,{i,20,-20}];
A[11]=B[11]=1;A[10]=9/10;B[10]=10/9;
eqns:=B[n-1]=
2B[n]-B[n+1]+(1/2)(B[n+1]-B[n])((A[n+1]-A[n])/A[n]+(B[n+1]-B[n])/B[n])+(
2B[n]/nA[n])(A[n+1]-A[n]);
eqns1:=A[n](B[n+1]-2B[n]+B[n-1])/(2B[n])^2 -(
A[n+1]/4A[n])((B[n+1]-B[n])/(B[n]))=((B[n+1]-B[n])/
B[n])((B[n+1]-B[n])/(4B[n]) - 1/n-1/4);
URL: , |
|
