Mathc complexes/c101i

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 **Ab = r_singular_Ab_mZ(    i_Abr_Ac_bc_mZ(r,r,C1),999);
double **A  =        c_Ab_A_mZ(Ab, i_mZ(r,r));
double **b  =        c_Ab_b_mZ(Ab, i_mZ(r,C1));	
	
  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,P2,S8,P2,C6);

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

  srand(time(&t));

do
{
  fun(R2);

} while(stop_w());

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

Système de deux équations identiques.

Exemple de sortie écran :

 A :
 +805 +99i  -124+500i 
 +805 +99i  -124+500i 

 b :
 -137-617i 
 -137-617i 

 Press return to continue. 


 Copy/Past into the octave window.

 Ab=[
+805+99*i,-124+500*i,-137-617*i;
+805+99*i,-124+500*i,-137-617*i]

 rref(Ab,.00000000001)

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


 +805.00  +99.00i  -124.00 +500.00i  -137.00 -617.00i 
   +0.00   +0.00i    +0.00   +0.00i    +0.00   +0.00i 


 Press return to continue
 Press X      to stop