Mathc complexes/c103c

Application

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

	inv_z_a.c

/* ------------------------------------ */
/*  Save as :   inv_z_a.c                 */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(void)
{
double a[R3*(C3*C2)] ={ 1,2,  3,4,  5,6,
                        5,4,  1,3,  6,8,
                        7,2,  5,1,  1,1};
                        
double **A = ca_A_mZ(a,i_mZ(R3,C3));
double **Inv = i_mZ(R3,C3);

  clrscrn();
  printf(" A\n");
  p_mZ(r_mZ(A,99.), S4,P0, S4,P0, C6);
  stop();

  clrscrn();
  printf(" invgj_mZ(A,invA);");
  pE_mZ(invgj_mZ(A,Inv), S1,P4, S1,P4, C3);
  printf(" inv_mZ(A,Inv); :");
  pE_mZ(inv_mZ(A,Inv), S1,P4, S1,P4, C3);
  stop();

  clrscrn();
  printf(" Copy/Past into the octave window.\n\n");
  p_Octave_mZ(A,"A",P0, P0);
  printf(" inv(A)\n");
  pE_mZ(Inv, S1,P4, S1,P4, C3);
  
  stop();
  
  f_mZ(Inv);
  f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
  fun();

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

.

Exemple de sortie écran :

 ------------------------------------ 
 A

 -29 +44i  -73 +80i  +24 -71i 
 +56 +40i  +70  +2i  +42 -41i 
  +6 +26i  +96  -5i  -43 -55i 

 Press return to continue. 
 
 ------------------------------------
 invgj_mZ(A,invA);
+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i 
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i 
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i 

 inv_mZ(A,Inv); :
+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i 
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i 
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i 

 Press return to continue. 


 ------------------------------------ 
 Copy/Past into the octave window.

 A=[
-29+44*i,-73+80*i,+24-71*i;
+56+40*i,+70+2*i,+42-41*i;
+6+26*i,+96-5*i,-43-55*i]

 inv(A)

+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i 
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i 
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i 

 Press return to continue.