Mathc matrices/Fichiers c : smul r r

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

	`smul.c`

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

  clrscrn();

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

  printf(" A : ");
  p_mR(r_mR(A,9),S6,P0,C6);

  printf(" sA : ");
  p_mR(smul_mR(s,A,sA),S6,P0,C6);

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

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

Multiplier toute une matrice par un scalaire s:

Exemple de sortie écran :

s = +6.00 

 A : 
    +4     -5     -3     +8     +2     +8 
    +6     +4     +6     -9     +6     +6 
    +2     +4     +4     +2     -9     +6 

 sA : 
   +24    -30    -18    +48    +12    +48 
   +36    +24    +36    -54    +36    +36 
   +12    +24    +24    +12    -54    +36 


 Press return to continue
 Press X      to stop