Aller au contenu

Mathc initiation/a449

Un livre de Wikilivres.


Sommaire


Installer ce fichier dans votre répertoire de travail.

x_nrsxrt.h
/* ---------------------------------- */
/* save as x_nrsxrt.h                 */
/* ---------------------------------- */
double N_Rs_x_Rt(

double (*P_Rx)(double s, double t),
double (*P_Ry)(double s, double t),
double (*P_Rz)(double s, double t),

pt2d p
)
{
v3d  a;

 a.i = fxy_x((*P_Ry),H,p)*fxy_y((*P_Rz),H,p) -
       fxy_y((*P_Ry),H,p)*fxy_x((*P_Rz),H,p);
       
 a.j = (-(fxy_x((*P_Rx),H,p)*fxy_y((*P_Rz),H,p) -
          fxy_y((*P_Rx),H,p)*fxy_x((*P_Rz),H,p) ));
 
 a.k = fxy_x((*P_Rx),H,p)*fxy_y((*P_Ry),H,p) -
       fxy_y((*P_Rx),H,p)*fxy_x((*P_Ry),H,p);    

 return( sqrt(pow(a.i,2) + pow(a.j,2) + pow(a.k,2)) );
}
/* ---------------------------------- */
/* ---------------------------------- */