Mathc initiation/Fichiers c : c60cf

Un livre de Wikilivres.
Aller à la navigation Aller à la recherche


Sommaire


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

Crystal Clear mimetype source c.png c18f.c
/* ---------------------------------- */
/* save as c18f.c                     */
/* ---------------------------------- */
#include "x_hfile.h"
#include       "ff.h"
/* ---------------------------------- */
int main(void)
{
double ay =  0;
double by =  4.;
int    ny = 2*50;

int    nz = 2*50;

double  m = 0;	

 clrscrn();
 
  m = surface_dzdy( g,k,
                            u,v,
                            nz,   
                            ay,by,ny,
                            H);


 printf(" Evaluate this surface integrals equation.\n\n");
 printf("     //                  \n");
 printf("    ||                   \n");
 printf("    || g(k(y,z),y,z)* sqrt[ k_y(y,z)^2 + k_z(y,z)^2 + 1 ] dA = %.3f\n",m);
 printf("    ||                   \n");
 printf("   //                    \n");
 printf("   Rzy               \n\n\n");
 printf(" With.\n\n\n");
 printf(" g : (x,y,z)-> %s\n\n", geq);
 printf(" k :   (y,z)-> %s\n\n", feq);
 printf(" u :     (y)-> %s  \n", ueq);
 printf(" v :     (y)-> %s\n\n", veq);
 printf(" a = %+.1f   b = %+.1f \n",ay,by);
 stop();

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


L'algorithme consiste à adapter la fonction qui calcule les intégrales doubles au calcul des surfaces en 3d.


Exemple de sortie écran :
 Evaluate this surface integrals equation.

     //                  
    ||                   
    || g(k(y,z),y,z)* sqrt[ k_y(y,z)^2 + k_z(y,z)^2 + 1 ] dA = 24.926
    ||                   
   //                    
   Rzy               


 With.


 g : (x,y,z)-> x*y**2*z**3

 k :   (y,z)-> 1./2.(12-3*y-4*z)

 u :     (y)-> 0  
 v :     (y)-> (12-3*y)/4

 a = +0.0   b = +4.0 
 Press return to continue.


Sortie écran d'un CAS :
> restart:
> g := (x,y,z)->x*y**2*z**3:
> k := (y,z)-> 1./2.*(12-3*y-4*z):
> Int(
> Int(
>       g(k(y,z),y,z)*
>    sqrt( diff(k(y,z),y)^2 + diff(k(y,z),z)^2 + 1),
> 
> z = 0 .. (12-3*y)/4),
> y = 0 .. 4);

     4    3 - 3/4 y
    /    /
   |    |
   |    |           2.692582404
   |    |
  /    /
    0    0

                                                       2  3
        (6.000000000 - 1.500000000 y - 2.000000000 z) y  z  dz dy

> evalf(value(%));
> 

                             24.92561993

>