Mathc complexes/a278

Application

Installer ce fichier dans votre répertoire de travail.

	dft.h

/* ------------------------------------ */
/*  Save as :  dft.h                    */
/* ------------------------------------ */
double **dft(
double **M,
double   SizeM)
{	
int c,r,
    IncPower, 
       Power;

 m1_mZ(M);
 	
 for(c=C2; c<=SizeM; c++)
    {
	    Power=c-1;
	 IncPower=c-1;	

	 for(r=R2; r<=SizeM; r++,Power+=IncPower)

		 c_z_mZ(f(Power,SizeM), M,r,c);		          
     }
	 
	return(M); }
/* ------------------------------------ */
/* ------------------------------------ */

---