DSolve[Derivative[1][y][x] == (Csc[y[x]/(2*x)]*Sec[y[x]/(2*x)]*Sec[y[x]/x]*(x*Cos[y[x]/(2*x)]*Sin[y[x]/(2*x)]*Sin[y[x]/x] + x^3*Cos[y[x]/(2*x)]*Sin[y[x]/(2*x)]*Sin[y[x]/x] + x^4*Cos[y[x]/(2*x)]*Sin[y[x]/(2*x)]*Sin[y[x]/x] + (Cos[y[x]/(2*x)]*Sin[y[x]/(2*x)]*y[x])/2 - (Sin[y[x]/x]*y[x])/2 + (Cos[y[x]/(2*x)]*Sin[(3*y[x])/(2*x)]*y[x])/2))/x,y[x],x]