1

How would I create a table of values from a transformation? eg:

r1 = 1; r2 = 1000; primorial[n_] := Times @@ Prime[Range[n]];
plot = ListLinePlot[Table[N[Log[primorial[n]]], {n, r1, r2}]];
plot /. L_Line :> {GeometricTransformation[L, ReflectionTransform[{-1, 1}]]}

How could I convert the transform of 'plot' into a list of numeric values?

martin
  • 8,678
  • 4
  • 23
  • 70

1 Answers1

1

Is this what you are after?

Cases[ plot, Line[x_] :> ReflectionTransform[{-1, 1}] /@ x, ∞]


% // Line // Graphics

enter image description here

Kuba
  • 136,707
  • 13
  • 279
  • 740