gg[x_] := Abs[(MakeContinuousResonance[1000,5] *
				MakeContinuousAntiResonance[1000,2])
					/.s->x]