Mathc matrices/Fichiers c : pzero

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

	`pzero.c`

/* ------------------------------------ */
/*  Save as :   pzero.c                 */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A         = r_mR(i_mR(r,r),99.);

  clrscrn();
  printf(" A :");
  p_mR(A,S5,P0,C6); 

  pivotbest_mR(A,RC1);
  printf(" A :");
  p_mR(A,S5,P0,C6);
  
  zero_under_pivot_mR(A,RC1);
  printf(" A :");
  p_mR(A,S8,P2,C6); 
  
  f_mR(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun(rp_I(R3)+R2);

} while(stop_w());

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

On selection le bon pivot, puis on met les zéros sous le pivot.



Exemple de sortie écran :

 A :
  +10   +48   -27 
  +48   +98   +26 
   +4   +90   +70 

 A :
  +98   +48   +26 
  +48   +10   -27 
  +90    +4   +70 

 A :
   +1.00    +0.49    +0.27 
   +0.00   -13.51   -39.73 
   +0.00   -40.08   +46.12 


 Press return to continue
 Press X      to stop