Author 
Comment/Response 
SangHo 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[n1]=
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[n1])/(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/n1/4);
URL: , 
