Mathc initiation/a361

Sommaire

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

	c00b.c

/* --------------------------------- */
/* save as c00b.c                    */
/* --------------------------------- */
#include  "x_hfile.h"
#include       "fb.h"
/* --------------------------------- */
int main(void)
{
double m = simpson_dydx(f, u,v,LOOP, ax,bx,LOOP);

 clrscrn();
 
 printf(" f : (x,y)-> %s \tThe cartesien form \n\n", feq);
 printf(" bx = %+.2f           v : (x)-> %s      \n",bx, veq); 
 printf(" ax = %+.2f           u : (x)-> %s    \n\n",ax, ueq);

 printf("    (%.3f   (%s              \n", bx, veq);
 printf(" int(     int( %s dydx = %.3f \n", feq,  m);
 printf("    (%.3f  (%s          \n\n\n", ax, ueq);
 stop();

 clrscrn();
 printf(" h : (r,k)-> %s  \t\tThe polar form \n\n",   heq);
 printf(" br = %+.2f          t : (r)-> %s      \n",br, teq);
 printf(" ar = %+.2f          s : (r)-> %s    \n\n",ar, seq);
 
 m = polar_dkdr(h, s,t,LOOP, ar,br,LOOP);

 printf("    (%.3f  (%s                    \n", br, teq);
 printf(" int(    int( %s * (r) dkdr = %.3f \n", heq, m);
 printf("    (%.3f  (%s              \n\n\n\n", ar, seq);
 
 printf(" Code Mathematica : \n\n"
    " integral sqrt(r**6+1) * r dk dr from 0 to 1 from 0 to 2*PI\n\n\n");   
 stop();
 return 0;
}
/* --------------------------------- */
/* --------------------------------- */

Exemple de sortie écran :

 f : (x,y)-> ((x**2 + y**2)**3) + 1)**(1/2) 	The cartesien form 

 bx = +1.00           v : (x)-> +(1-x**2)**(1/2)      
 ax = -1.00           u : (x)-> -(1-x**2)**(1/2)    

    (1.000   (+(1-x**2)**(1/2)              
 int(     int( ((x**2 + y**2)**3) + 1)**(1/2) dydx = 3.492 
    (-1.000  (-(1-x**2)**(1/2)          



 h : (r,k)-> (r**6 + 1)**(1/2)  		The polar form 

 br = +1.00          t : (r)-> 2*Pi      
 ar = +0.00          s : (r)-> 0    

    (1.000  (2*Pi                    
 int(    int( (r**6 + 1)**(1/2) * (r) dkdr = 3.492 
    (0.000  (0              



 Code Mathematica : 

 integral sqrt(r**6+1) * r dk dr from 0 to 1 from 0 to 2*PI


 Press return to continue.