Mathc complexes/a203

Application

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

	c00a.c

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A    =   r_mZ(  i_mZ(r,r),9.);
double **InvA = inv_mZ(A,i_mZ(r,r)   );

  clrscrn();
  printf(" A   :            det(A)      = ");
  p_Z(det_Z(A), S4,P0, S5,P0);
  p_mZ(A, S3,P0, S3,P0, C3);

  printf(" InvA :         1/det_R(InvA) = ");
  p_Z(inv_Z(det_Z(InvA)), S4,P0, S5,P0);
  pE_mZ(InvA, S1,P4, S1,P4, C3);

  f_mZ(InvA);
  f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
   fun(RC3);

} while(stop_w());

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

Exemple de sortie écran :

 A   :            det(A)      = +390-1206i 
 -7 -9i  +6 +2i  +8 +2i 
 +1 +5i  -5 +1i  +8 +9i 
 -5 +2i  -7 -3i  +4 +3i 

 InvA :         1/det_R(InvA) = +390-1206i 

-5.5595e-02+2.2954e-02i +3.1536e-02-6.6583e-02i -3.6571e-02+7.1528e-02i 
+2.7626e-02-4.7906e-02i +5.7732e-02+1.6986e-02i -1.3943e-01+2.2700e-02i 
+1.3624e-02-1.6844e-02i +4.7962e-02-6.1944e-02i +7.1483e-03+3.7489e-02i 


 Press   return to continue
 Press X return to stop