How do i find the coeff? It is not working! > restart: > alias(epsilon=ep); epsilon > eqn := ep*x^4 - 3*x^2 -2*x + 1; 4 2 eqn := epsilon x - 3 x - 2 x + 1 > eqn1 := simplify(subs(x=ep^(n)*y,eqn)/epsilon^(1+4*n)); 4 (-1 - 2 n) 2 (-1 - 3 n) (-1 - 4 n) eqn1 := y - 3 epsilon y - 2 epsilon y + epsilon > asym1 := sum(y[n]*ep^(n), n=0..3); 2 3