ikronfki.c

java-fft-demo,用java开发的实现fft的平台

/********************************************************/
/* This function performe IkronFkI                      */
/********************************************************/
COMPLEX **IkronFkI(int M,int R,int S)
{
   COMPLEX **FkronI_VAR,**IkronFkI_VAR;
   int temp,l=0,m,k,i,j;

   IkronFkI_VAR = getComplexMatrix(M*R*S);
   FkronI_VAR = getComplexMatrix(R*S);
   FkronI_VAR = FkronI(R,S);

   l=0;
   for(m = 0; m < (M*R*S); ++m) /* este es el valor de filas *columnas*/
   {
    k=0;
	  if (m %(R*S) ==0 & m!=0 ) /* el valor para comparar m debe ser el num de columnas de B*/
	     l++;

	temp = M;

    for (i = 0; i < temp; ++i)/* numero de filas o columnas mayor entre A y B*/
    {
	  for ( j = 0; j < R*S; ++j)/* numero de filas o columnas de B*/
      {
        if((l % M) == i){
	       IkronFkI_VAR[m][k].real =  FkronI_VAR[m % (R*S)][j].real; /* m%filas o columnas de B*/
	       IkronFkI_VAR[m][k].imag = FkronI_VAR[m % (R*S)][j].imag;
	 	   k++;
     	}
     	else{
     	    IkronFkI_VAR[m][k].real = 0.0;
	        IkronFkI_VAR[m][k].imag = 0.0;
	 	    k++;
	 	}
      }
    }
   }
    free(FkronI_VAR);
   return IkronFkI_VAR;
}