EquationSymbolicSolveRequest[List[Equal[Divide[a,b],1]],List[b]]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[a,NotEqual[a,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[a,b],1]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[b,NotEqual[b,0]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Divide[x,y],1]]]