EquationSymbolicSolveRequest[List[Equal[Divide[y,2],Divide[1,x]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[2,y],NotEqual[y,0]],False,ReservedReal]}]GraphingPlotEq2D[Equal[Divide[y,2],Divide[1,x]]]GraphingShow2D[PlotEq2D[Equal[Divide[y,2],Negative[Divide[1,x]]]]]GraphingShow2D[PlotEq2D[Equal[y,Exponent[b,x]],Options[Option[RangeX,-8,8],Option[RangeY,-3,5]]],Options[Option[ArgRangeValue,b,0,2,2],Option[RangeX,-8,8],Option[RangeY,-3,5]]]GraphingShow2D[PlotEq2D[Equal[y,Exponent[4,x]]]]GraphingShow2D[PlotEq2D[Equal[y,IndefiniteIntegral[Exponent[4,x],x]],Options[Option[RangeX,-4,4],Option[RangeY,-16.5,29.5]]],Options[Option[RangeX,-4,4],Option[RangeY,-16.5,29.5]]]GraphingShow2D[PlotEq2D[Equal[y,Negative[Divide[1,x]]]]]EquationSymbolicSolveRequest[List[Equal[y,IndefiniteIntegral[Negative[Divide[1,x]],x]]],List[x]]Solution[{x,ExpressionSetPoint[Exponent[ConstE,Sum[&c,Negative[y]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[Negative[Exponent[ConstE,Sum[&c,Negative[y]]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[y,IndefiniteIntegral[Negative[Divide[1,x]],x]]],List[y]]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Sum[Negative[LogE[Abs[x]]],&c],NotEqual[x,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[x,SeriesSum[Divide[1,Factorial[n]],n,0,50]]],List[x]]Solution[{x,ExpressionSetPoint[2666905705783137373306341322880702364612402788688346977445977371/981099780700431549793955102131121575625085211901952000000000000,False,ReservedReal],2.718281828459}]EquationSymbolicSolve[Equal[x,Aggregate[SeriesSum[Negative[Divide[1,Factorial[n]]],n,0,50]]],x]Solution[{x,ExpressionSetPoint[-2666905705783137373306341322880702364612402788688346977445977371/981099780700431549793955102131121575625085211901952000000000000,False,ReservedReal],-2.718281828459}]EquationSymbolicSolveRequest[List[Equal[Product[δ,Negative[ConstE]],r]],List[δ]]Solution[{δ,ExpressionSetPoint[Negative[Divide[r,ConstE]],False,ReservedReal]}]GraphingShow3D[PlotCylR3D[Product[δ,Negative[ConstE]]],PlotCylR3D[r],Options[Option[ArgRangeValue,δ,0,0.32,2],Option[ShowWireframe,false],Option[ViewAngle,59.682,-144.775,41.43],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-3.218,3]]]WorksheetProduct[δ,Negative[ConstE]]Negative[Product[ConstE,δ]]WorksheetDeriv[Product[δ,Negative[ConstE]],δ]Negative[ConstE]-2.718281828459WorksheetIndefiniteIntegral[Product[δ,Negative[ConstE]],δ]Sum[Negative[Divide[Product[ConstE,Exponent[δ,2]],2]],&c]