forA52 = -((n*Csc[eps - i]*(C20*(-3/10 - (9*e^2)/20 - (9*e^4)/16)*Sin[2*eps] + C22*((169*e^3*Sin[eps])/16 + (169*e^3*Sin[2*eps])/32) + (C42*R^2*((-1541*e^3*Sin[eps])/256 - (1541*e^3*Sin[2*eps])/64 - (32361*e^3*Sin[3*eps])/256 - (10787*e^3*Sin[4*eps])/128))/a^2 + (C40*R^2*((3/32 + (15*e^2)/32 + (315*e^4)/256)*Sin[2*eps] + (21/64 + (105*e^2)/64 + (2205*e^4)/512)*Sin[4*eps]))/a^2))/(Omd*(1 + (2*omd)/(5*n) + (2*Omd*Cos[eps - i])/(5*n))))