User Portlet
Discussions |
---|
The following code solves a system of $n$ nonlinear DEs in one dimension: p[i_, j_] = P[j][t] - P[i][t]; A@p[j, i] = (a*p[j, i])/Exp[b*p[j, i]]; R@p[j, i] = c/p[j, i]; summand1 = R@p[j, i] - A@p[j, i]; A@p[i, j] = (a*p[i,... |