<p> Pad(M,nc,nr), Scale(M,lo,hi) </p>

4cd13412-8fd1-4fad-a8cf-f777775068a8 10 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

A robust construct of the Matrix Scale function M Low High Scale min M Min : max M Max : maxmin max min - (1012 -^+ : HighLow High Low - (: i 1 M rows range j 1 M cols range N i j el M i j el min - maxmin / eval : for for HighLow N * Low + 61 line :

s mwfix

s mwround

M mwfft2 eval

M nc nr Pad A M mwfft2 : insert 'nc' cols in 'A' i 1 A rows range j 1 nc range vert i j el 0 : for for a A 1 A rows 1 A cols 2 / mwfloor submatrix : b A 1 A rows A cols 2 / mwfloor 1 + A cols submatrix : S a vert b augment transpose : insert 'nr' rows in the transpose 'S' i 1 S rows range j 1 nr range horiz i j el 0 : for for a S 1 S rows 1 S cols 2 / mwfloor submatrix : b S 1 S rows S cols 2 / mwfloor 1 + S cols submatrix : S a horiz b augment transpose : 111 line :