Mathc initiation/Fichiers c : c77cl

Un livre de Wikilivres.


Sommaire


Installer et compiler ces fichiers dans votre répertoire de travail.

c1l.c
/* --------------------------------- */
/* save as c1l.c                     */
/* --------------------------------- */
#include "x_hfile.h"
#include      "fl.h"
/* --------------------------------- */
int main(void)
{
double x  = 1.8;

 clrscrn();
 
 printf("  x =  %0.1f   \n\n\n",x);
 
 printf("  %s \t\t\t\t\t\t= %0.8f\n", f1eq, f1(x));
 printf("  %s \t= %0.8f\n\n\n",       f2eq, f2(x));
 

 stop();

 return 0;
}
/* ---------------------------------- */
/* ---------------------------------- */


Vérifions par le calcul :
  x =  1.8   


  cos(x)**4 					                	= 0.00266471
  3./8. + 1./2. * cos(2.*x) + 1./8. * cos(4.*x) 	= 0.00266471


 Press return to continue.


Vérifions les égalités :
    Nous avons vu que :
    
    cos(4x) = 8 cos(x)**4 - 8 cos(x)**2 + 1
                                                        cos(x)**2 = [1/2 + 1/2 cos(2x)]
                                                   
    cos(4x) = 8 cos(x)**4 - 8 [1/2 + 1/2 cos(2x)] + 1
    
    cos(4x) = 8 cos(x)**4 - 4 - 4 cos(2x) + 1    
    
    cos(4x) = 8 cos(x)**4 - 3 - 4 cos(2x) 


    cos(4x) + 3 + 4 cos(2x) = 8 cos(x)**4    


    8 cos(x)**4 = cos(4x) + 3 + 4 cos(2x) 


    8 cos(x)**4 = 3  +    4 cos(2x) +     cos(4x)
    
    soit :
    
      cos(x)**4 = 3/8 + 1/2 cos(2x) + 1/8 cos(4x)