EquationSymbolicSolveRequest[List[Equal[Sum[x,y],Divide[z,2]]],List[x]]Solution[{x,ExpressionSetPoint[Sum[Divide[z,2],Negative[y]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Sum[x,y],Divide[z,2]]],List[z]]Solution[{z,ExpressionSetPoint[Sum[Product[2,x],Product[2,y]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Sum[x,y],Divide[z,2]]],List[y]]Solution[{y,ExpressionSetPoint[Sum[Divide[z,2],Negative[x]],False,ReservedReal]}]GraphingShow3D[PlotEq3D[Equal[Sum[x,y],Divide[z,2]]],Options[Option[ShowWireframe,false],Option[ViewAngle,2.951,-102.096,106.543]]]EquationSymbolicSolveRequest[List[Equal[Divide[50,2],Sum[40,y]]],List[y]]Solution[{y,ExpressionSetPoint[-15,False,ReservedReal],-15}]EquationSymbolicSolveRequest[List[Equal[Divide[20,2],Sum[15,y]]],List[y]]Solution[{y,ExpressionSetPoint[-5,False,ReservedReal],-5}]EquationSymbolicSolveRequest[List[Equal[Divide[40,2],Sum[x,60]]],List[x]]Solution[{x,ExpressionSetPoint[-40,False,ReservedReal],-40}]EquationSymbolicSolveRequest[List[Equal[Divide[70,2],Sum[x,15]]],List[x]]Solution[{x,ExpressionSetPoint[20,False,ReservedReal],20}]