Parent Directory
|
Revision Log
|
Revision Graph
Initial revision
| 1 | cnh | 1.1 | function [ijk] = xyzv(N,iii) |
| 2 | % Converts a vector index into an n-dimensional array index. | ||
| 3 | % eg. xyzv( size(a) , find(a < -1) ) | ||
| 4 | |||
| 5 | ijk=[]; | ||
| 6 | for j=1:prod(size(iii)), | ||
| 7 | |||
| 8 | ii=iii(j)-1; | ||
| 9 | ijkk=[]; | ||
| 10 | |||
| 11 | for k=1:prod(size(N)), | ||
| 12 | nn=N(k); | ||
| 13 | ij=rem( ii , nn ); | ||
| 14 | ijkk=[ijkk ij]; | ||
| 15 | ii=ii-ij; | ||
| 16 | ii=ii/nn; | ||
| 17 | end | ||
| 18 | |||
| 19 | ijk=[ijk ijkk']; | ||
| 20 | end |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |