Mercurial > hg > ishara

diff general/numerical/array/diffdims.m @ 16:db7f4afd27c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rearranging numerical toolbox.
author samer
date Thu, 17 Jan 2013 13:20:44 +0000
parents general/numerical/diffdims.m@e44f49929e56
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/numerical/array/diffdims.m	Thu Jan 17 13:20:44 2013 +0000
@@ -0,0 +1,9 @@
+function X=diffdims(X,Dims)
+% diffdims - diff along multiple dimensions
+%
+% diffdims :: 
+%    [D:[[1,E]->natural]]  ~'E dimensional array of size D', 
+%    [[K]->[E]]            ~'K dimensions each from 1 to E'
+% -> [DD].                 ~'array of diffs, smaller by one in each diffed dim'.
+
+for d=Dims, X=diff(X,1,d); end