GraphingShow2D[PlotEq2D[Equal[x,Product[Negative[y],Sqrt[z]]]],Options[Option[ArgRangeValue,z,0,2,2],Option[RangeX,-4,4],Option[RangeY,-2,2]]]GraphingShow3D[PlotEq3D[Equal[x,Product[Negative[y],Sqrt[z]]]],Options[Option[ShowWireframe,false],Option[ViewAngle,-45.291,-80.821,37.119]]]EquationSymbolicSolveRequest[List[Equal[w,Product[Negative[E],Sqrt[h]]]],List[w]]Solution[{w,ExpressionSetPoint[ExpressionWithCondition[Negative[Product[Sqrt[h],E]],GreaterOrEqual[h,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[w,Product[Negative[E],Sqrt[h]]]],List[h]]Solution[{h,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[w,2],Exponent[E,2]],NotEqual[E,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[w,Product[Negative[E],Sqrt[h]]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[w,Sqrt[h]]],GreaterThan[h,0]],False,ReservedReal]}]WorksheetAssign[w,Product[Negative[E],Sqrt[h]]]Negative[Product[Sqrt[h],E]]Assign[w,Product[-1,E,Exponent[h,1/2]]]Assign[W,Product[E,Exponent[h,2]]]Assign[x,Product[y,Exponent[z,2]]]