Mathc initiation/a452

Sommaire

Installer ce fichier dans votre répertoire de travail.

	x_rsxrt.h

/* ---------------------------------- */
/* save as x_rsxrt.h                  */
/* ---------------------------------- */
v3d 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  v;

 v.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);
       
 v.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) ));
 
 v.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( v );
}
/* ---------------------------------- */
/* ---------------------------------- */