Mathc gnuplot/002i

Sommaire

Installer ce fichier dans votre répertoire de travail.

	fe.h

/* --------------------------------- */
/* save as fe.h                      */
/* --------------------------------- */
double Y(
double t)
{
int    n;
double r;

double A[15]={1.,1.,2.,2.,4.,4.,2.,2.,5.,5.,1.,1.,2.,2.,1.};

         for(n=0,r=0;n<15;++n)
         
              r += A[n] * pow(-1,n)*H(t-n);

      return(r);
}
char  Yeq[] = "Sum(A[n] * (-1)^n*H(t-n),n=0..15)";
/* --------------------------------- */
/* --------------------------------- */

---