EquationSymbolicSolveRequest[List[Equal[x_2,y]],List[y]]Solution[{y,ExpressionSetPoint[x_2,False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[x_2,y]],List[x_2]]Solution[{x_2,ExpressionSetPoint[y,False,ReservedComplex]}]WorksheetAssign[x_2,y]yEquationSymbolicSolveRequest[List[Equal[y,Exponent[y,δ]]],List[δ]]Solution[{δ,ExpressionSetPoint[Sum[Divide[Product[2,PI,&N_1,&i],LogE[y]],1],False,ReservedComplex]}]EquationNumericSolveRequest[List[Equal[y,Exponent[y,δ]]],List[List[y]]]-9GraphingShow2D[PlotEq2D[Equal[x_2,Exponent[y,δ]]],Options[Option[ArgRangeValue,x_2,0,0.5,2],Option[ArgRangeValue,δ,0,2,2],Option[RangeX,-2,2],Option[RangeY,0,2]]]EquationSymbolicSolveRequest[List[Equal[y,Exponent[y,λ]]],List[λ]]Solution[{λ,ExpressionSetPoint[Sum[Divide[Product[2,PI,&N_1,&i],LogE[y]],1],False,ReservedComplex]}]EquationNumericSolveRequest[List[Equal[y,Exponent[y,λ]]],List[List[y]]]-9GraphingShow2D[PlotEq2D[Equal[x_2,Exponent[y,λ]]],Options[Option[ArgRangeValue,x_2,0,0.24,2],Option[ArgRangeValue,λ,0,2,2],Option[RangeX,-2,2],Option[RangeY,0,2]]]EquationSymbolicSolveRequest[List[Equal[y,Sum[y,E]]],List[y]]Solution[{y,ExpressionWithCondition[ReservedComplex,Equal[E,0]]}]EquationSymbolicSolveRequest[List[Equal[y,Sum[y,E]]],List[E]]Solution[{E,ExpressionSetPoint[0,False,ReservedComplex],0}]GraphingShow2D[PlotEq2D[Equal[x_2,Sum[y,ConstE]],Options[Option[RangeX,-0.707,0.707],Option[RangeY,-2.327,-1.591]]],Options[Option[ArgRangeValue,x_2,0,2,2],Option[RangeX,-0.707,0.707],Option[RangeY,-2.327,-1.591]]]EquationSymbolicSolveRequest[List[Equal[y,Exponent[y,Product[δ,E]]]],List[δ]]Solution[{δ,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Divide[Product[2,PI,&N_1,&i],LogE[y]],1],E],NotEqual[E,0]],False,ReservedComplex]}]Solution[{δ,ExpressionWithCondition[ReservedComplex,Equal[E,0]]}]EquationNumericSolveRequest[List[Equal[y,Exponent[y,Product[δ,E]]]],List[List[y]]]-9EquationSymbolicSolveRequest[List[Equal[y,Exponent[y,Product[δ,E]]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Divide[Product[2,PI,&N_1,&i],LogE[y]],1],δ],NotEqual[δ,0]],False,ReservedComplex]}]Solution[{E,ExpressionWithCondition[ReservedComplex,Equal[δ,0]]}]GraphingShow2D[PlotEq2D[Equal[x_2,Exponent[y,Product[δ,E]]]],Options[Option[ArgRangeValue,x_2,0,1.18,2],Option[ArgRangeValue,δ,0,2,2],Option[ArgRangeValue,E,0,2,2],Option[RangeX,-2,2],Option[RangeY,0,2]]]EquationSymbolicSolveRequest[List[Equal[Product[m,a],Product[δ,E]]],List[δ]]Solution[{δ,ExpressionSetPoint[ExpressionWithCondition[Divide[Product[a,m],E],NotEqual[E,0]],False,ReservedComplex]}]Solution[{δ,ExpressionWithCondition[ReservedEmpty,And[Equal[E,0],NotEqual[Product[m,a],0]]]}]Solution[{δ,ExpressionWithCondition[ReservedComplex,And[Equal[E,0],Equal[Product[m,a],0]]]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a],Product[δ,E]]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Divide[Product[E,δ],a],NotEqual[a,0]],False,ReservedComplex]}]Solution[{m,ExpressionWithCondition[ReservedEmpty,And[Equal[a,0],NotEqual[Negative[Product[δ,E]],0]]]}]Solution[{m,ExpressionWithCondition[ReservedComplex,And[Equal[a,0],Equal[Negative[Product[δ,E]],0]]]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a],Product[δ,E]]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Divide[Product[E,δ],m],NotEqual[m,0]],False,ReservedComplex]}]Solution[{a,ExpressionWithCondition[ReservedEmpty,And[Equal[m,0],NotEqual[Negative[Product[δ,E]],0]]]}]Solution[{a,ExpressionWithCondition[ReservedComplex,And[Equal[m,0],Equal[Negative[Product[δ,E]],0]]]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a],Product[δ,E]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Divide[Product[a,m],δ],NotEqual[δ,0]],False,ReservedComplex]}]Solution[{E,ExpressionWithCondition[ReservedEmpty,And[Equal[δ,0],NotEqual[Product[m,a],0]]]}]Solution[{E,ExpressionWithCondition[ReservedComplex,And[Equal[δ,0],Equal[Product[m,a],0]]]}]GraphingShow2D[PlotEq2D[Equal[Product[x,y],Product[δ,E]]],Options[Option[ArgRangeValue,δ,0,2,2],Option[ArgRangeValue,E,0,0.48,2],Option[RangeX,-2,2],Option[RangeY,-20,20]]]EquationSymbolicSolveRequest[List[Equal[Product[m,a],Exponent[δ,ConstE]]],List[δ]]Solution[{δ,ExpressionSetPoint[Exponent[Product[a,m],Divide[1,ConstE]],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a],Exponent[δ,ConstE]]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[δ,ConstE],a],NotEqual[a,0]],False,ReservedComplex]}]Solution[{m,ExpressionWithCondition[ReservedEmpty,And[Equal[a,0],NotEqual[δ,0]]]}]Solution[{m,ExpressionWithCondition[ReservedComplex,And[Equal[δ,0],Equal[a,0]]]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a],Exponent[δ,ConstE]]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[δ,ConstE],m],NotEqual[m,0]],False,ReservedComplex]}]Solution[{a,ExpressionWithCondition[ReservedEmpty,And[Equal[m,0],NotEqual[δ,0]]]}]Solution[{a,ExpressionWithCondition[ReservedComplex,And[Equal[δ,0],Equal[m,0]]]}]GraphingShow2D[PlotEq2D[Equal[Product[x,y],Exponent[δ,ConstE]]],Options[Option[ArgRangeValue,δ,0,2,2],Option[RangeX,-2,2],Option[RangeY,-20,20]]]EquationSymbolicSolveRequest[List[Equal[Product[m,a_2],n]],List[n]]Solution[{n,ExpressionSetPoint[Product[m,a_2],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a_2],n]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Divide[n,a_2],NotEqual[a_2,0]],False,ReservedComplex]}]Solution[{m,ExpressionWithCondition[ReservedEmpty,And[Equal[a_2,0],NotEqual[n,0]]]}]Solution[{m,ExpressionWithCondition[ReservedComplex,And[Equal[a_2,0],Equal[n,0]]]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a_2],n]],List[a_2]]Solution[{a_2,ExpressionSetPoint[ExpressionWithCondition[Divide[n,m],NotEqual[m,0]],False,ReservedComplex]}]Solution[{a_2,ExpressionWithCondition[ReservedEmpty,And[Equal[m,0],NotEqual[n,0]]]}]Solution[{a_2,ExpressionWithCondition[ReservedComplex,And[Equal[m,0],Equal[n,0]]]}]GraphingShow2D[PlotEq2D[Equal[Product[x,y_2],z]],Options[Option[ArgRangeValue,y_2,0,2,2],Option[ArgRangeValue,z,0,2,2],Option[RangeX,0,2],Option[RangeY,-2,2]]]Assign[x_2,y]