EquationSymbolicSolveRequest[List[Equal[Root[d,Root[c,Root[b,a]]],x]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Exponent[d,Divide[1,Exponent[c,Exponent[b,Negative[Divide[1,a]]]]]],NotEqual[a,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Root[d,Root[c,Root[b,a]]],x]],List[d]]Solution[{d,ExpressionSetPoint[ExpressionWithCondition[Exponent[x,Exponent[c,Exponent[b,Negative[Divide[1,a]]]]],NotEqual[a,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Root[d,Root[c,Root[b,a]]],x]],List[c]]Solution[{c,ExpressionSetPoint[ExpressionWithCondition[Divide[1,Exponent[LogB[d,x],Exponent[b,Divide[1,a]]]],NotEqual[a,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Root[d,Root[c,Root[b,a]]],x]],List[b]]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[Divide[1,Exponent[Negative[LogB[c,LogB[d,x]]],a]],NotEqual[a,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Root[d,Root[c,Root[b,a]]],x]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Negative[LogB[Negative[LogB[c,LogB[d,x]]],b]],And[NotEqual[Negative[LogB[b,Negative[LogB[c,LogB[d,x]]]]],0],NotEqual[Negative[LogB[Negative[LogB[c,LogB[d,x]]],b]],0]]],False,ReservedReal]}]GraphingShow2D[Plot2D[Root[d,Root[c,Root[b,a]]]],Plot2D[x],Options[Option[ArgRangeValue,d,0,1.78,2],Option[ArgRangeValue,c,0,1.38,2],Option[ArgRangeValue,b,0,0.9,2],Option[ArgRangeValue,a,0,0.86,2],Option[RangeX,-2,2],Option[RangeY,-4,4]]]GraphingPlotEq2D[Equal[Root[d,Root[c,Root[b,a]]],x]]