Modelowanie

rows = List[];
n = 1;
While[n <= 500,
 r0 = points[[n, 1]]^2 + points[[n, 2]]^2 + points[[n, 3]]^2;
 rows = Append[rows, {r0, n, r0/n}];
 n = n + 1]

srednia = Mean[rows[[All, 3]]];
odchylenie = StandardDeviation[rows[[All, 3]]];

Print["Średnia:", srednia];
Print["Odchylenie standardowe:", odchylenie];

rows = Insert[rows, {"r^2", "t", "r^2/t"}, 1];
Grid[rows[[;; ;; 10]], Frame -> All]