x[T_] := (100000 T)/(47 Log[18/(-7 + 25 Abs[Cos[100 [Pi] T]])])
y[T_] := 100 (-(7/500) + (7 T)/5 - (5 T (-1 + Abs[Cos[100 [Pi] T]]))/Log[18/(-7 + 25 Abs[Cos[100 [Pi] T]])] + Sin[100 [Pi] T]/(20 [Pi]))

Plot[{x[u], y[u]}, {u, .006, .01}]

ParametricPlot[{x[u], y[u]}, {u, .006, .01},PlotRange -> {{0, 1500}, {0, 5}}, AspectRatio -> 1]