Mathc complexes/a68

Application

Installer et compiler ce fichier dans votre répertoire de travail.

	c00d.c

/* ------------------------------------ */
/*  Save as :   c00c.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int rc)
{
double **D   = rdiag_mZ(i_mZ(rc,rc),9);
double **U   =          i_mZ(rc,C1)   ;

  clrscrn();

  printf(" D :");
  p_mZ(D, S5,P0, S3,P0,C6);
  printf(" U : c_D_U_mZ(D,U);");
  p_mZ(c_D_U_mZ(D,U), S5,P0, S3,P0,C6);  
   
  f_mZ(D);
  f_mZ(U);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
  do
        fun(rp_I(RC4));

  while(stop_w());       

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

Copier une matrice diagonale dans une matrice d'une colonne :

Exemple de sortie écran :

 ----------------------------------
 D :
   -1 +8i    +0 +0i    +0 +0i    +0 +0i 
   +0 +0i    +5 -2i    +0 +0i    +0 +0i 
   +0 +0i    +0 +0i    -4 +9i    +0 +0i 
   +0 +0i    +0 +0i    +0 +0i    +7 -4i 

 U : c_D_U_mZ(D,U);
   -1 +8i 
   +5 -2i 
   -4 +9i 
   +7 -4i 


 Press   return to continue
 Press X return to stop