diff options
Diffstat (limited to 'sourcecodes/bnt-master/KPMtools/isvectorBNT.m')
| -rw-r--r-- | sourcecodes/bnt-master/KPMtools/isvectorBNT.m | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/sourcecodes/bnt-master/KPMtools/isvectorBNT.m b/sourcecodes/bnt-master/KPMtools/isvectorBNT.m new file mode 100644 index 00000000..5bb367a6 --- /dev/null +++ b/sourcecodes/bnt-master/KPMtools/isvectorBNT.m @@ -0,0 +1,9 @@ +function p = isvectorBNT(v) +% ISVECTOR Returns 1 if all but one dimension have size 1. +% p = isvector(v) +% +% Example: isvector(rand(1,2,1)) = 1, isvector(rand(2,2)) = 0. + +s=size(v); +p = (ndims(v)<=2) & (s(1) == 1 | s(2) == 1); +%p = sum( size(v) > 1) <= 1; % Peter Acklam's solution |