DSolve[(d + c*(-g2/2 + 6*WeierstrassP[x, {g2, g3}]^2))*y[x] + b*WeierstrassPPrime[x, {g2, g3}]*Derivative[1][y][x] + a*WeierstrassP[x, {g2, g3}]*Derivative[2][y][x] + Derivative[4][y][x] == 0,y[x],x]