discriminant((-s^2y+x^2y+y^3)Cos[A]+(-s^2x+2sx^2-x^3+2sy^2-xy^2)Sin[A], x)