ix2pkt.sci

小波分解源代码

function [d,b,k] = ix2pkt(ix,D,n)
// ix2pkt -- Convert linear index to packet table index
//  Usage
//    [d,b,k] = ix2pkt(ix,D,n)
//  Inputs
//    ix     linear position in packet table array
//    D,n    shape of packet table
//  Outputs
//    d,b,k  1-d packet table index
//
//  See Also
//    pkt2ix, packet
//
//  Copyright Aldo I Maalouf

	d =  floor((ix-1)/n); 
	row = rem(ix-1,n);
	nc = n/2^d;
	b =  floor(row/nc);
	k = row - b*nc ;
	endfunction