Mathc complexes/a194

Application

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

	c00a.c

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
#define   RCA RC2
#define   Cb   C1
/* ------------------------------------ */
int main(void)
{
double ta[RCA*(RCA*C2)] ={ 1,2,  3,4,  
	                       1,2,  3,4};

double tb[RCA*(Cb*C2)] ={ 1,4, 
	                      1,4   }; 

double **A = ca_A_mZ(ta, i_mZ(RCA,RCA));                        
double **b = ca_A_mZ(tb, i_mZ(RCA,Cb)); 

double **Ab =            i_Abr_Ac_bc_mZ(RCA,RCA,Cb);                         

  c_A_b_Ab_mZ(A,b,Ab);  	
	
  clrscrn();
  printf(" A :");
  p_mZ(A, S5,P0, S4,P0, C6);
  printf(" b :");
  p_mZ(b, S5,P0, S4,P0, C6);
  stop();

  clrscrn();
  printf(" Copy/Past into the octave window.\n\n");
  p_Octave_mZ(Ab,"Ab",P0, P0);
  printf(" rref(Ab,.00000000001)\n\n");
  
  printf(" gj_mZ(Ab) :");
  p_mZ(gj_mZ(Ab), S8,P4, S8,P4, C4);
  
  f_mZ(Ab);
  f_mZ(b);
  f_mZ(A);

  stop();

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

Exemple de sortie écran :

 ------------------------------------ 
 A :
   +1  +2i    +3  +4i 
   +1  +2i    +3  +4i 

 b :
   +1  +4i 
   +1  +4i 

 Press return to continue. 


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

 Ab=[
+1+2*i,+3+4*i,+1+4*i;
+1+2*i,+3+4*i,+1+4*i]

 rref(Ab,.00000000001)

 gj4_mZ(Ab) : The system has only an equation !!


 +1.0000 +2.0000i  +3.0000 +4.0000i  +1.0000 +4.0000i 
 +0.0000 +0.0000i  +0.0000 +0.0000i  +0.0000 +0.0000i 

 Press return to continue.