Reducing into a specific position and
then flooding
works, but it explicitly replicates values
[1..m,1] Max1 :=
max<<[1..m,1..n] A;--Save Col
[1..m,1..n] Maxfill :=
>>[1..m,1] Max1; --Flood
Col
[1..m,1..n] A := A/Maxfill; --Div by col
array
Flood
logically replicates values...and its easier
[1..m,*] MaxCol := max<< [1..m,1..n] A;
[1..m,1..n] A := A / MaxCol; --Scale A;
-- or
--
[1..m,1..n] A :=
A/(>>[1..m,*] max<<
[1..m,1..n] A);