File mttroot/mtt/bin/trans/m/add_row.m artifact 8618dcbf0d part of check-in 2cf4cfb11d
function New=add_row(Old,Row); # Adds a row to end of matrix [N,M]=size(Old); [n,m] = size(Row); if m>M Old = [Old, zeros(N,m-M)]; # Pad with zeros elseif M>m Row = [Row, zeros(n,M-m)]; endif New = [Old;Row]; endfunction