# Tracing – Generates plot coordinates for the TikZ draw command Is there a clever way to generate a TikZ drawing coordinate sequence in Mathematica? The following commands work pretty well

``````there[x_] : = Log[2, (2 x - 200)/(x - 200)]
Table[{i, y[i]}, {i, 201, 2000, 10}]// NOT
``````

but ends at the exit

``````{{201., 7.65821}, {211., 4.33498}, ...
``````

I can post-process it in a text editor, but it would be better to take it out in Mathematica as

``````(201., 7.65821) -
(211., 4.33498) -
(221., 3.52655) -
(231., 3.07923) -
(241., 2.78200) -
...
``````

or something similar, to easily use with the draw command TikZ. I could go through the list and the "format";

``````Clear[i, y];
there[x_] : = Log[2, (2 x - 200)/(x - 200)];
coordinates = Table[{i, y[i]}, {i, 201, 2000, 10}]// NOT;
tikzlist = {};
For[i = 1, i <= Length[coordinates], i ++,
x = coordinates[[i]][];
y = coordinates[[i]][];
tikzlist =
tikzlist <> "(" <> ToString[x] <> "," <> ToString[y] <> ") -";
]tikzlist = StringTake[tikzlist, StringLength[tikzlist] - 2]<> ";"
``````

but maybe there is a shorter command of a line that does the job better and more efficiently. TIA. Posted on