数据表中数据归一化处理

Question

lis1 = Flatten[Table[{{x, y}, LCM[x, y]}, {x, 4}, {y, 4}], 1]
{{{1, 1}, 1}, {{1, 2}, 2}, {{1, 3}, 3}, {{1, 4}, 4}, {{2, 1}, 
  2}, {{2, 2}, 2}, {{2, 3}, 6}, {{2, 4}, 4}, {{3, 1}, 3}, {{3, 2}, 
  6}, {{3, 3}, 3}, {{3, 4}, 12}, {{4, 1}, 4}, {{4, 2}, 4}, {{4, 3}, 
  12}, {{4, 4}, 4}}

Last /@ lis1
{1, 2, 3, 4, 2, 2, 6, 4, 3, 6, 3, 12, 4, 4, 12, 4}

我想对这一串数据进行归一化处理，然后再替代掉lis1中它以前的相应位置上的值？

Answer 1

这样？

lis1 = Flatten[Table[{{x, y}, LCM[x, y]}, {x, 4}, {y, 4}], 1];
lis1[[;; , -1]] = Normalize[lis1[[;; , -1]]];
lis1

 

Comments

{1/(4 Sqrt[30]), 1/(2 Sqrt[30]), Sqrt[3/10]/4, 1/Sqrt[30], 1/(
 2 Sqrt[30]), 1/(
 2 Sqrt[30]), Sqrt[3/10]/2, 1/Sqrt[30], Sqrt[3/10]/4, Sqrt[3/10]/2, \
Sqrt[3/10]/4, Sqrt[3/10], 1/Sqrt[30], 1/Sqrt[30], Sqrt[3/10], \
1/Sqrt[30]}最后那个位置上面对应的应该是这些值，不是进行缩放

---

你说的这个应该叫作正规化吧（Normalize）：模长变为1；，类似的还有标准化（Standardize）：减均值除以标准差。
我改一下。

---

对对对，谢谢老大

Answer 2

{1/(4 Sqrt[30]), 1/(2 Sqrt[30]), Sqrt[3/10]/4, 1/Sqrt[30], 1/(
 2 Sqrt[30]), 1/(
 2 Sqrt[30]), Sqrt[3/10]/2, 1/Sqrt[30], Sqrt[3/10]/4, Sqrt[3/10]/2, \
Sqrt[3/10]/4, Sqrt[3/10], 1/Sqrt[30], 1/Sqrt[30], Sqrt[3/10], \
1/Sqrt[30]}

最后那个位置上面对应的应该是这些值，不是进行缩放