Mathc complexes/h08c

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	we_det3.h

/* ------------------------------------ */
/*  Save as :   we_det3.h               */
/* ------------------------------------ */

/* ------------------------------------ */
double **inv_mZ(
double **A,
double **Adjointe
)
{
nb_Z z = det_Z(A);
int r;

  if(!z.r && !z.i)
    {
     printf("\n inv_mZ error - A determinant is Zero");
     printf("\n Press return to continue.\n");
     fflush(stdout);
     getchar();
     exit(EXIT_FAILURE);
    }

  adjoint_mZ(A,Adjointe);

  z = inv_Z(z);

  for(r=R1; r<A[R_SIZE][C0]; r++)

             mulR_mZ(Adjointe,z,r);
             
return(Adjointe);
}
/* ------------------------------------ */
double **UxV_mZ(
double **U_T,
double **V_T,
double **UxV_T
)
{
double **A = i_mZ(R3, C3);

//     u and v -> A
  c_r_mZ(U_T, R1, A, R2);
  c_r_mZ(V_T, R1, A, R3);
  	
// cofactor(detA) -> (u x v)   
  c_z_mZ(cofactor_Z(A, R1, C1),       UxV_T, R1, C1);
  c_z_mZ(cofactor_Z(A, R1, C2*C2-C1), UxV_T, R1, C2);
  c_z_mZ(cofactor_Z(A, R1, C3*C2-C1), UxV_T, R1, C3);
//                             c*C2    : a number has two columns                              
//                                 -C1 : The real part of the number

  f_mZ(A);
                 
return(UxV_T);
}
/* ------------------------------------ */
/* ------------------------------------ */

Déclaration des fichiers h.