GraphingShow2D[PlotEq2D[Equal[x,Aggregate[Product[Aggregate[Negative[r]],Sin[Divide[y,z]]]]]],PlotEq2D[Equal[x,Aggregate[Product[r,Sin[Divide[y,z]]]]]]]GraphingShow2D[PlotEq2D[Equal[x,Aggregate[Product[Aggregate[Negative[r]],Sin[Divide[y,z]]]]]],PlotEq2D[Equal[x,Aggregate[Product[r,Sin[Divide[y,z]]]]]]]GraphingShow2D[PlotEq2D[Equal[x,Aggregate[Product[Aggregate[Negative[r]],Sin[Divide[y,z]]]]],Options[Option[RangeX,-8,8],Option[RangeY,-8,8]]],PlotEq2D[Equal[x,Aggregate[Product[r,Sin[Divide[y,4]]]]],Options[Option[RangeX,-8,8],Option[RangeY,-8,8]]],Options[Option[ArgRangeValue,r,0,2,2],Option[RangeX,-8,8],Option[RangeY,-8,8]]]GraphingShow2D[PlotEq2D[Equal[x,Aggregate[Product[Aggregate[Negative[r]],Exponent[Sin[Divide[y,z]],2]]]],Options[Option[RangeX,-4.743,3.743],Option[RangeY,-5.657,5.657]]],PlotEq2D[Equal[x,Aggregate[Product[r,Sin[Exponent[Aggregate[Divide[y,4]],2]]]]],Options[Option[RangeX,-4.743,3.743],Option[RangeY,-5.657,5.657]]],Options[Option[ArgRangeValue,r,0,2,2],Option[ArgRangeValue,z,0,1.64,2],Option[RangeX,-4.743,3.743],Option[RangeY,-5.657,5.657]]]GraphingShow2D[PlotEq2D[Equal[x,Aggregate[Product[Aggregate[Negative[r]],Exponent[Sin[Divide[y,z]],2]]]],Options[Option[RangeX,-8,8],Option[RangeY,-8,8]]],PlotEq2D[Equal[x,Aggregate[Product[r,Sin[Exponent[Aggregate[Divide[y,z]],2]]]]],Options[Option[RangeX,-8,8],Option[RangeY,-8,8]]],Options[Option[ArgRangeValue,r,0,2,2],Option[RangeX,-8,8],Option[RangeY,-8,8]]]GraphingShow2D[PlotEq2D[Equal[x,Aggregate[Product[Aggregate[Negative[r]],Exponent[Sin[Divide[y,z]],2]]]]],PlotEq2D[Equal[x,Aggregate[Product[Aggregate[r],Exponent[Aggregate[Sin[Divide[y,z]]],2]]]]]]