El siguiente maxima script le da las fórmulas para el cálculo de los coeficientes de $y_2,\ldots,y_4$ en el ansatz $y=y_1 x + y_2 x^2 + y_3 x^3 + y_4 x^4$. $y_1$ es el parámetro libre para que coincida con el estado inicial en $x=R$.
declare(x,mainvar);
y : y1*x + y2*x^2 + y3*x^3 + y4*x^4 + y5*x^5;
fDiff : x^2 * diff(y,x,2) + x*diff(y,x,1);
fRHS : sin(2*y)/2 + x^2*K/2/A*sin(2*y) - x*D/A*sin(y) + x^2*mu*H*M/(2*A)*sin(y);
eq : factorout(taylor(fRHS,x,0,4) - fDiff,x);
coeff(eq,x,1);
eq1 : A*scsimp(solve(coeff(eq,x,2));
eq2 : 6*A*scsimp(coeff(eq,x,3));
eq3 : 6*A*scsimp(coeff(eq,x,4));
tex(solve([eq1,eq2,eq3],[y2,y3,y4]));
El resultado es:
\begin{align*}
{\it y_2}&=-{{D\,{\it y_1}}\over{3\,A}}\\
{\it y_3}&=-{{4\,A^2\,{\it y_1}^3+\left(A\,\left(-3\,H\,M\,\mu-6\,K\right)-2\,D^
2\right)\,{\it y_1}}\over{48\,A^2}}\\
{\it y_4}&={{44\,A^2\,D\,
{\it y_1}^3+\left(A\,D\,\left(-11\,H\,M\,\mu-22\,K\right)-2\,D^3
\right)\,{\it y_1}}\over{720\,A^3}}
\end{align*}
Puede utilizar la expansión de la serie de $y(x)$ a huir de la singularidad y dejar que el solucionador numérico patada en algunos suficientemente grande $x$.
También se puede jugar con el orden de la expansión de Taylor para obtener más soluciones exactas o para estimar la calidad de la solución para el escogido $x$.
El cálculo de $\frac{\partial y(x)}{\partial y_1}$ para el compuation de la matriz de un sistema de variacional del sistema que usted necesita para el total-método del disparo debe ser ningún problema.
La expansión de la orden es un parámetro ajustable en la siguiente variante de la anterior secuencia de comandos de maxima. Este se degrada un poco la claridad de la secuencia de comandos, pero se simplifica enormemente jugando con la expansión de la orden.
declare(x,mainvar);
order : 4;
y : sum(concat('y,i)*x^i,i,1,order);
fDiff : ratsimp(x^2 * diff(y,x,2) + x*diff(y,x,1));
fRHS : sin(2*y)/2 + x^2*K/2/A*sin(2*y) - x*D/A*sin(y) + x^2*mu*H*M/(2*A)*sin(y);
eq : factorout(taylor(fRHS,x,0,order) - fDiff,x);
for i:1 thru order do concat('eq,i) :: coeff(eq,x,i);
sol : solve(makelist(concat('eq,i),i,2,order),makelist(concat('y,i),i,2,order));
tex(sol);