Mathc complexes/Fichiers c : smul r r

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

	`smul.c`

/* ------------------------------------ */
/*  Save as :   smul.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r,int c)
{
double  **A = i_mZ(r,c);
double **sA = i_mZ(r,c);
double    s = r_I(9);

  clrscrn();

  printf("\n s = %+.2f \n\n",s);

  printf(" A : ");
  p_mZ(r_mZ(A,9), S5,P0, S4,P0,C6);

  printf(" sA : ");
  p_mZ(smul_mZ(s,A,sA), S5,P0, S4,P0,C6);

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

  srand(time(&t));
  
   do 
        fun(rp_I(R4),rp_I(C6));
        
    while(stop_w());
        
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Ici on multiplie chaque coefficient par s.

Exemple de sortie écran :

 s = -3.00 

 A : 
   -9  -3i    +4  -5i 
   -1  -3i    +8  +4i 
   -7  -5i    -1  -5i 

 sA : 
  +27  +9i   -12 +15i 
   +3  +9i   -24 -12i 
  +21 +15i    +3 +15i 


 Press return to continue
 Press X      to stop