EquationSymbolicSolveRequest[List[Equal[Divide[a,b],1]],List[b]]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[a,NotEqual[a,0]],False,ReservedReal]}]1Eq.1Var.1Inst.PowerNeg1.1.NewEquationSymbolicSolveRequest[List[Equal[Divide[a,b],1]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[b,NotEqual[b,0]],False,ReservedReal]}]1Eq.1Var.1Inst.19GraphingShow2D[PlotEq2D[Equal[Divide[x,y],1]]]