Mathc initiation/Fichiers h : c52a5

Sommaire

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

	c00b.c

/* --------------------------------- */
/* save as c00b.c                    */
/* --------------------------------- */
#include "x_afile.h"
#include      "fb.h"
/* --------------------------------- */
int main(void)
{
 clrscrn();

 printf(" Find the surface area for the given functions\n");
  
 printf(" g : (r,k)-> %s\n\n", geq);
 printf(" v :   (k)-> %s  \n", veq);
 printf(" u :   (k)-> %s\n\n", ueq); 
 
 printf(" b =    %+.1f\n a =    %+.1f\n\n\n",b,a);

 printf(" Polar form : (* r)\n\n\n");
 
 printf("    (b   (v(k)\n");
 printf(" int( int( sqrt(g_r()**2 + g_k()**2 + 1) (* r) drdk = %.6f\n", 
                                         S_drdk(g, u,v,LOOP, a,b,LOOP));
 printf("    (a   (u(k)\n\n\n");

 stop();

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

Exemple de sortie écran :

 Find the surface area for the given functions
 g : (r,k)-> 7 - 7./25 * r**2

 v :   (k)-> 5  
 u :   (k)-> 0

 b =    +6.3
 a =    +0.0


 Polar form : (* r)


    (b   (v(k)
 int( int( sqrt(g_r()**2 + g_k()**2 + 1) (* r) drdk = 168.855326
    (a   (u(k)


 Press return to continue.

Exemple de sortie écran :

Verify with maple

> restart:
> 
> g := (r,k)-> 7-7/25*r^2:
> Int(
> Int(
> 
> sqrt( (diff(g(r,k),r)^2 + diff(g(r,k),k)^2 + 1) ) * r,
> 
> r = 0 .. 5),
> k = 0 .. 2*Pi);

                2 Pi    5
               /       /
              |       |                  2
              |       |   1/25 sqrt(196 r  + 625) r dr dk
              |       |
             /       /
               0       0

> evalf(value(%));
> 

                             168.8553261

>

---