Mathc initiation/a360

Sommaire

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

	c00a.c

/* --------------------------------- */
/* save as c00a.c                    */
/* --------------------------------- */
#include  "x_hfile.h"
#include       "fa.h"
/* --------------------------------- */
int main(void)
{
double m = simpson_dxdy(f, u,v,LOOP, ay,by,LOOP);

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

 printf("    (%.3f    (%s              \n", by, veq);
 printf(" int(      int( %s dxdy = %.3f \n", feq, m);
 printf("    (%.3f   (%s          \n\n\n", ay, ueq);
 stop();

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

 printf("    (%.3f   (%s                    \n", bk, teq);
 printf(" int(     int( %s * (r) drdk = %.3f \n", heq, m);
 printf("    (%.3f   (%s              \n\n\n\n", ak, seq);

 printf(" Code Mathematica : \n\n"
        " integral r**3 * r dr dk  from 0 to PI  from 0 to 1\n\n");  
 stop();
 return 0;
}
/* --------------------------------- */
/* --------------------------------- */

Exemple de sortie écran :

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

 by = +1.00           v : (y)-> (1-y**2)**(1/2)    
 ay = -1.00           u : (y)-> 0  

    (1.000    ((1-y**2)**(1/2)              
 int(      int( (x**2 + y**2)**(3/2) dxdy = 0.628 
    (-1.000   (0          




 h : (r,k)-> (r**3)  			The polar form 

 bk = +3.14          t : (k)-> 1   
 ak = +0.00          s : (k)-> 0 

    (3.142   (1                    
 int(     int( (r**3) * (r) drdk = 0.628 
    (0.000   (0              



 Code Mathematica : 

 integral r**3 * r dr dk  from 0 to PI  from 0 to 1

 Press return to continue.