74 return( m * ( bigL + 1 ) - ( ( m * (m - 1) ) /2 ) + ( l - m ) );
76 return( ( ( bigL * ( bigL + 3 ) ) /2 ) + 1 +
77 ( ( bigL + m ) * ( bigL + m + 1 ) / 2 ) + ( l -
std::abs( m ) ) );
103 loc[0] = m * ( bigL + 1 ) - ( ( m * (m - 1) ) /2 ) + ( l - m );
106 loc[1] = ( ( bigL * ( bigL + 3 ) ) /2 ) + 1 +
107 ( ( bigL - m ) * ( bigL - m + 1 ) / 2 ) + ( l -
m ) ;
125 double t1, t2, t3, t4;
127 for(i = 0; i < size; i += 2)
129 t1 = array[(i * size) + i + 1];
130 array[(i * size) + i + 1] = array[((i + 1) * size) + i];
131 array[((i + 1) * size) +
i] = t1;
132 for(j = (i + 2); j < size; j += 2)
134 t1 = array[(i*size)+j]; t2 = array[(i*size)+j+1];
135 t3 = array[((i+1)*size)+
j]; t4 = array[((i+1)*size)+j+1];
136 array[(i*size)+j] = array[(j*size)+
i];
137 array[(i*size)+j+1] = array[((j+1)*size)+i];
138 array[((i+1)*size)+
j] = array[(j*size)+i+1];
139 array[((i+1)*size)+j+1] = array[((j+1)*size)+i+1];
140 array[(j*size)+i] = t1;
141 array[((j+1)*size)+
i] = t2;
142 array[(j*size)+i+1] = t3;
143 array[((j+1)*size)+i+1] = t4;
void abs(Image< double > &op)
void transpose(double *array, int size)
int seanindex(int m, int l, int bw)
void seanindex2(int m, int l, int bw, int *loc)