I wrote code to keep track of the effect of a function f on the individual points of a curve. It assigns a color to a point of the input curve and the same color to that point's image under f. The code works in release 7, but not in later releases. Is there a workaround for later releases? Here's an example of the code:
startTime = SessionTime[];
fineness = 500;
repart = 1/2;
fullSource = {};
fullTarget = {};
sourcePointSet = {};
targetPointSet = {};
For[n = 0, n < fineness, n++;
s[n] = repart + I*n/100;
t[n] = N[Zeta[s[n]]];
sourcePointSet = Append[sourcePointSet, s[n]];
targetPointSet = Append[targetPointSet, t[n]]];
reSource = Re[sourcePointSet];
imSource = Im[sourcePointSet];
reTarget = Re[targetPointSet];
imTarget = Im[targetPointSet];
scale = 1;
For[n = 0, n < fineness, n++;
sourceLP =
ListPlot[{{reSource[[n]], imSource[[n]]}},
PlotStyle -> {Hue[n/fineness], PointSize[.002]}];
targetLP =
ListPlot[{{reTarget[[n]], imTarget[[n]]}},
PlotStyle -> {Hue[n/fineness], PointSize[.002]}];
fullSource = Append[fullSource, sourceLP];
fullTarget = Append[fullTarget, targetLP];
];
Print[Show[fullSource, PlotLabel -> "critical line"]];
Print[Show[fullTarget, PlotLabel -> " zeta image"]];
endTime = SessionTime[];
Print["execution time ", endTime - startTime]
Here's the output in release 7:

Attachments: