dsolve(diff(diff(diff(diff(y(x),x),x),x),x)+a*WeierstrassP(x,g2,g3)*diff(diff(y(x),x),x)+b*WeierstrassPPrime(x,g2,g3)*diff(y(x),x)+(c*(6*WeierstrassP(x,g2,g3)^2-1/2*g2)+d)*y(x)=0,y(x))