Mathc complexes/03w

Application

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

	c00c.c

/* ------------------------------------ */
/*  Save as :   c00c.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */  
/* ------------------------------------ */
double **xm1_mZ(
double **One
)
{
int r;
int c;

  for  (r=R1; r<One[R_SIZE][C0]; r++)
    for(c=R1; c<One[C_SIZE][C0]; c+=C2)
          {
           One[r][c   ] = 1.;
           One[r][c+C1] = 0.;
          }
          
return(One);
}
/* ------------------------------------ */ 
/* ------------------------------------ */
int main(void)
{  
double **M1 = m1_mZ(i_mZ(R3,C4));

  clrscrn();
  
  printf(" M1:");
  p_mZ(M1, S5,P0, S2,P0, C5);

  stop();
    
  f_mZ(M1);
        
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Cette fonction met tous les coefficients de la matrice à 1. 

Exemple de sortie écran :

 M1:
   +1+0i    +1+0i    +1+0i    +1+0i 
   +1+0i    +1+0i    +1+0i    +1+0i 
   +1+0i    +1+0i    +1+0i    +1+0i 

 Press return to continue.