EquationSymbolicSolveRequest[List[Equal[Product[x,y],Product[Divide[PI,1],List[Exponent[y,2]]]]],List[x]]-8GraphingShow3D[Plot3D[Product[x,y]],Plot3D[Product[Divide[PI,1],List[Exponent[y,2]]]]]