Mathc initiation/Fichiers h : x 16e

Installer ce fichier dans votre répertoire de travail.
	`zomax.h` utilitaire
/* ---------------------------------- */
/*  Save as :   zomax.h               */
/* ---------------------------------- */
fraction max_f(
fraction f1,
fraction f2)
{
         f1 = mini_f(f1);
         f2 = mini_f(f2);

      if(sub_f(f1,f2).n>0) return(f1);
      else                 return(f2);
}
/* ------------------------------------ */
fraction min_f(
fraction f1,
fraction f2)
{
         f1 = mini_f(f1);
         f2 = mini_f(f2);

      if(sub_f(f1,f2).n>0) return(f2);
      else                 return(f1);
}
/* ------------------------------------ */
fraction min_abs_f(
fraction f1,
fraction f2)
{
         f1 = mini_f(f1);
         f2 = mini_f(f2);

         f1.n = fabs(f1.n);
         f2.n = fabs(f2.n);

      if(sub_f(f1,f2).n>0) return(f2);
      else                 return(f1);
}
/* ---------------------------------- */
/* ---------------------------------- */
int is_equal_f(
fraction f1,
fraction f2)
{
         f1 = mini_f(f1);
         f2 = mini_f(f2);

      if(f1.n==f2.n &&
         f1.d==f2.d   )    return 1;
      else                 return 0;
}
/* ------------------------------------ */
int is_diff_f(
fraction f1,
fraction f2)
{
         f1 = mini_f(f1);
         f2 = mini_f(f2);

      if(f1.n==f2.n &&
         f1.d==f2.d   )    return 0;
      else                 return 1;
}
/* ------------------------------------ */
int is_zero_f(
fraction f1
)
{
         f1 = mini_f(f1);

      if(f1.n==0) return 1;
      else        return 0;
}
/* ------------------------------------ */
int is_not_zero_f(
fraction f1
)
{
         f1 = mini_f(f1);

      if(f1.n!=0) return 1;
      else        return 0;
}
/* ------------------------------------ */
int is_pos_f(
fraction f1
)
{
         f1 = mini_f(f1);

      if(f1.n>0) return 1;
      else       return 0;
}
/* ------------------------------------ */
int is_neg_f(
fraction f1
)
{
         f1 = mini_f(f1);

      if(f1.n<0) return 1;
      else       return 0;
}
/* ---------------------------------- */
/* ---------------------------------- */
Ce fichier contient les fonctions pour contrôler les fractions.