diff general/arrutils/pad.m @ 4:e44f49929e56

Adding reorganised general toolbox, now in several subdirectories.
author samer
date Sat, 12 Jan 2013 19:21:22 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/arrutils/pad.m	Sat Jan 12 19:21:22 2013 +0000
@@ -0,0 +1,8 @@
+function b=pad(x,sz,a), 
+% pad - pad out an array to given size with given elements
+%
+% pad :: A, D:[[2]], [[S]->A] -> [D->A].
+
+[N,M]=size(a);
+b=repmat_to(x,max(sz,[N,M]));
+b(1:N,1:M)=a;