EquationSymbolicSolveRequest[List[Equal[y,Product[a,Sin[Divide[x,Exponent[b,2]]]]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[Product[Sum[Product[360,PI,&N_1],Product[180,Divide[Product[PI,ASin[Divide[y,a]]],180]]],Exponent[b,2]],PI],And[LessOrEqual[Divide[y,a],1],GreaterOrEqual[Divide[y,a],-1],NotEqual[a,0],NotEqual[b,0]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[Product[180,Sum[Negative[Product[2,PI,&N_2]],Divide[Product[PI,ASin[Divide[y,a]]],180],Negative[PI]],Exponent[b,2]],PI]],And[LessOrEqual[Divide[y,a],1],GreaterOrEqual[Divide[y,a],-1],NotEqual[a,0],NotEqual[b,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[y,Product[a,Sin[Divide[x,Exponent[b,2]]]]]],List[y]]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Product[a,Sin[Divide[x,Exponent[b,2]]]],NotEqual[b,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[y,Product[a,Sin[Divide[x,Exponent[b,2]]]]]],List[b]]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[0,And[Equal[x,0],LessOrEqual[Divide[y,a],1],GreaterOrEqual[Divide[y,a],-1],NotEqual[a,0]]],True,ReservedReal]}]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[0,And[Equal[x,0],LessOrEqual[Divide[y,a],1],GreaterOrEqual[Divide[y,a],-1],NotEqual[a,0]]],True,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[y,Product[a,Sin[Divide[x,Exponent[b,2]]]]]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Divide[y,Sin[Divide[x,Exponent[b,2]]]],And[NotEqual[b,0],NotEqual[Negative[Sin[Divide[x,Exponent[b,2]]]],0]]],False,ReservedReal]}]GraphingShow2D[Plot2D[Product[a,Sin[Divide[x,Exponent[b,2]]]]],Options[Option[ArgRangeValue,b,0,0.8,2],Option[RangeX,-180,180],Option[RangeY,-2,2]]]WorksheetAssign[y,Product[a,Sin[Divide[x,Exponent[b,2]]]]]Product[a,Sin[Divide[x,Exponent[b,2]]]]Assign[y,Product[a,Sin[Product[x,Exponent[b,-2]]]]]