<p>Examples</p>

8c842277-4a31-461b-8ccd-1d1ab42707c7 86 4 5 decimal

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

3 appVersion 0.98.6179.21440 ≡

Pad a Matrix

floccinaucinihilipilification The longest English idiotic word !

As inspired by Jean's code!

Adds a row AFTER the first row (e.g. insert row has to be whole number >0 #M #numrows.toinsert #inert.afterrow Pad.rows insert 'number of (#numrow)' rows in the transpose #inert.afterrow 1 < Can't use this function i 1 #M transpose rows range j #numrows.toinsert #horiz i j el 0 : for for #a #M transpose 1 #M transpose rows 1 #inert.afterrow submatrix : #b #M transpose 1 #M transpose rows #inert.afterrow 1 + #M transpose cols submatrix : #M #a #horiz #b augment transpose : 41 line if 21 line :

Adds a column AFTER the first column (e.g. insert column has to be whole number >0 #M #numcols.toinsert #inert.aftercol Pad.col insert 'number of (#numcol)' columns in the Matrix #inert.aftercol 1 < Can't use this function i 1 #M rows range j #numcols.toinsert #vert i j el 0 : for for #a #M 1 #M rows 1 #inert.aftercol submatrix : #b #M 1 #M rows #inert.aftercol 1 + #M cols submatrix : #M #a #vert #b augment : 41 line if 21 line :

Adds a row AFTER the first row and a column AFTER the first column (e.g. insert row AND insert column has to be whole number >0 #M #numcols.toinsert #inert.aftercol #numrows.toinsert #inert.afterrow Pad.matrix insert 'number of (#numcol)' columns in the Matrix #inert.aftercol 1 < (#inert.afterrow 1 < (| Can't use this function i 1 #M rows range j #numcols.toinsert #vert i j el 0 : for for #a #M 1 #M rows 1 #inert.aftercol submatrix : #b #M 1 #M rows #inert.aftercol 1 + #M cols submatrix : #M #a #vert #b augment : i 1 #M transpose rows range j #numrows.toinsert #horiz i j el 0 : for for #a #M transpose 1 #M transpose rows 1 #inert.afterrow submatrix : #b #M transpose 1 #M transpose rows #inert.afterrow 1 + #M transpose cols submatrix : #M #a #horiz #b augment transpose : 81 line if 21 line :

<p>Examples</p>

This now allows me to redefine a table and insert values where needed with copy and paste. Brute force but should not be used that often. Just need to "delete the zeros"

Data dia (nominal) outer (in) inner 40 (in) inner 80 (in) 1 1.1 1.049 .95 2 2.2 2.067 1.95 3 3.3 3.068 2.95 4 4.4 4.026 3.95 54 mat :

<==insert 2.5

Data 12 Pad.rows dia (nominal) outer (in) inner 40 (in) inner 80 (in) 1 1.1 1.049 0.95 00002 2.2 2.067 1.95 3 3.3 3.068 2.95 4 4.4 4.026 3.95 64 mat

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

]]>

Data dia (nominal) outer (in) inner 40 (in) inner 80 (in) 1 1.1 1.049 .95 2 2.2 2.067 1.95 3 3.3 3.068 2.95 4 4.4 4.026 3.95 54 mat :

^ Insert Sch 5 column

Data 32 Pad.col dia (nominal) outer (in) 000 inner 40 (in) 1 1.1 000 1.049 2 2.2 000 2.067 3 3.3 000 3.068 4 4.4 000 4.026 56 mat

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

]]>

Data dia (nominal) outer (in) inner 40 (in) inner 80 (in) 1 1.1 1.049 .95 2 2.2 2.067 1.95 3 3.3 3.068 2.95 4 4.4 4.026 3.95 54 mat :

<==insert 2.5

^ Insert Sch 5 column

Data 1213 Pad.matrix dia (nominal) outer (in) 0 inner 40 (in) inner 80 (in) 1 1.1 0 1.049 0.95 2 2.2 0 2.067 1.95 000003 3.3 0 3.068 2.95 4 4.4 0 4.026 3.95 65 mat

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

]]>

copy and paste Pad.matrix and add values that I am looking for to re-define Data Just need to "delete the zeros"

Data dia (nominal) outer (in) XXXX inner 40 (in) inner 80 (in) 1 1.1 0 1.049 0.95 2 2.2 0 2.067 1.95 2.5 00003 3.3 0 3.068 2.95 4 4.4 0 4.026 3.95 65 mat :

M 05204580125520458012518020458012518024545801251802453208012518024532040512518024532040550066 mat :

v 0000 00000062 mat :

M B c InsertCol a M 1 M rows 1 c submatrix : c M 1 M rows c 1 + M cols submatrix : a B c augment 31 line :

M B r InsertRow a M 1 r 1 M cols submatrix : c M r 1 + M rows 1 M cols submatrix : a B c stack 31 line :

ROW M v 3 InsertCol : COL M v transpose 2 InsertRow : 21 line

ROW COL 12 mat 0520004580125520450080125180204580 12518024545801250018024532080125180002453204051251802450032040550068 mat 05204580125520458012518000 00000 00020458012518024545801251802453208012518024532040512518024532040550086 mat 12 mat

Fourier  center padding M nc nr Pad A M : 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 / Floor submatrix : b A 1 A rows A cols 2 / Floor 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 / Floor submatrix : b S 1 S rows S cols 2 / Floor 1 + S cols submatrix : S a horiz b augment transpose : 111 line :

P M 33 Pad :

P 05200004580125520450008012518020458000012518024500000000000000000000000000045801250001802453208012518000024532040512518024500032040550099 mat