EquationSymbolicSolveRequest[List[Equal[Exponent[x,y],1]],List[x]]Solution[{x,ExpressionSetPoint[1,False,ReservedReal],1}]EquationSymbolicSolveRequest[List[Equal[Exponent[x,y],1]],List[y]]Solution[{y,ExpressionSetPoint[0,False,ReservedReal],0}]GraphingPlotEq2D[Equal[Exponent[x,y],1]]GraphingShow3D[PlotEq3D[Equal[Exponent[x,y],1]],Options[Option[ShowWireframe,false],Option[ViewAngle,58.618,-158.251,138.085]]]