EquationSymbolicSolveRequest[List[Equal[Product[a,w],Product[Divide[1,w],φ]]],List[φ]]Solution[{φ,ExpressionSetPoint[ExpressionWithCondition[Product[a,Exponent[w,2]],NotEqual[w,0]],False,ReservedReal]}]GraphingShow3D[PlotPolar3D[Product[a,w]],PlotPolar3D[Product[Divide[1,w],φ]]]