Aller au contenu

Mathc initiation/Fichiers c : c78hb2

Un livre de Wikilivres.



Sommaire


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

c01b.c
/* --------------------------------- */
/* save as c1b.c                     */
/* --------------------------------- */
#include "x_hfile.h"
#include      "fb.h"
/* --------------------------------- */
int main(void)
{
double x  = 1.2;
double y  = 1.5;

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

 stop();

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


Vérifions par le calcul :
  (x,y) = (1.2,1.5)   


  sinh(x) - sinh(y) 			    = -0.61981810
  2 cosh((x+y)/2) sinh((x-y)/2) 	= -0.61981810  


 Press return to continue.


Vérifions les égalités : 
     sinh(x) - sinh(y) = 2 cosh( (x+y)/2 ) sinh( (x-y)/2 )    
     

                                                         sinh(   X  )  =  [e**X         - e**(-X)      ] / 2
                                                         sinh((x-y)/2) =  [e**((x-y)/2) - e**(-(x-y)/2)] / 2      
                                                         
                                                         cosh(   X  )  =  [e**X         + e**(-X)      ] / 2
                                                         cosh((x+y)/2) =  [e**((x+y)/2) + e**(-(x+y)/2)] / 2

                                                         
     
     sinh(x) - sinh(y)  = 2       cosh( (x+y)/2 )                 sinh( (x-y)/2 )    
     
     sinh(x) - sinh(y)  = 2 [e**((x+y)/2) + e**(-(x+y)/2)]/2   [e**((x-y)/2) - e**(-(x-y)/2)]/2
     
   2[sinh(x) - sinh(y)] =   [e**((x+y)/2) + e**(-(x+y)/2)]     [e**((x-y)/2) - e**(-(x-y)/2)] 
          
      
  
                                                         
                                                         (x+y)/2  +   (x-y)/2   =  x
                                                         (x+y)/2  + (-(x-y)/2)) =  y
                                                        -(x+y)/2) +   (x-y)/2   = -y
                                                        -(x+y)/2) + (-(x-y)/2)  = -x
                                                        
  
  2[sinh(x) - sinh(y)] =    e**x-e**y+e**(-y)-e**(-x)      
     
  2[sinh(x) - sinh(y)] =    e**x-e**(-x)    -  e**y+e**(-y) 
  
  2[sinh(x) - sinh(y)] =    e**x-e**(-x)    - [e**y-e**(-y)]
       
    sinh(x) - sinh(y)  =   [e**x-e**(-x)]/2 - [e**y-e**(-y)]/2    
    
    sinh(x) - sinh(y)  =      sinh(x)       -    sinh(y)