Mathc gnuplot/0030

Sommaire

Installer ce fichier dans votre répertoire de travail.

	fd.h

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

double T = .10;

         for(n=0,r=0;n<100;++n)   /* xmax = 10 = 100 * .10 */
         
            if(sin(t)>0)
         
              r += sin(t)* pow(-1,n)*H(t- T * n);

      return(r);
}
char  Yeq[] = "if(sin(t)>0)\n\n"
              "            sin(t) * Sum((-1)^n*H(t-.10*n),n=0..10)";
/* --------------------------------- */
/* --------------------------------- */

---