Решение нелинейной системы дифференциальных уравнений с максимумами

Question

Есть ли пакет для решения нелинейной системы дифференциальных уравнений с максимумами.как это:

eqn1: A(r)*E(r)/r-'diff(A(r),r)=5+1/r;
eqn2: r*'diff(E(r)/r)-A(r)^2/r=0;