GraphingShow2D[PlotEq2D[Equal[Product[f,Aggregate[x]],Aggregate[Sum[Product[2,Sin[Product[y,f]]],x]]],Options[Option[RangeX,-6.763,4.55],Option[RangeY,-4.656,6.658]]],PlotEq2D[Equal[Product[f,Aggregate[x]],Aggregate[Minus[Product[Negative[2],Sin[Divide[y,f]]],x]]],Options[Option[RangeX,-6.763,4.55],Option[RangeY,-4.656,6.658]]],Options[Option[ArgRangeValue,f,0,0.5,2],Option[RangeX,-6.763,4.55],Option[RangeY,-4.656,6.658]]]