Gostaria de saber uma forma para isolar o x para que a derivada da expressão abaixo ficasse assim:

x=b4*id1-b3*id1*log(ab1)-b2+b5*id1*s

eqimm=expression(exp(b0+b1/s+b2/x+b3*(id1/x)*log(ab1)+b4*(1-id1/x)+b5*(1-id1/x)*s)/x);

der.eqimm=expression(exp(b0 + b1/s + b2/x + b3 * (id1/x) * log(ab1) + b4 * (1 - id1/x) +
                     b5 * (1 - id1/x) * s) * (b4 * (id1/x^2) - (b3 * (id1/x^2) *
                    log(ab1) + b2/x^2) + b5 * (id1/x^2) * s)/x - exp(b0 + b1/s +
                    b2/x + b3 * (id1/x) * log(ab1) + b4 * (1 - id1/x) + b5 *
                    (1 - id1/x) * s)/x^2)

Desde já agradeço!