Mathc matrices/c11b4

Application

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

	c00f.c

/* ------------------------------------ */
/*  Save as :   c00f.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
/* ------------------------------------ */
double  **X_c_c_r_mR(
double **A,
int cA,
double **B,
int rB
)
{
int rc;

    for(rc=RC1; rc<A[R_SIZE][C0]; rc++)

            B[rB][rc] = A[rc][cA];
return(B);
}
/* ------------------------------------ */
/* ------------------------------------ */
void fun(int r)
{
double **A     = r_mR(i_mR(r,r),99.);
double **B     =      i_mR(r,r);

  clrscrn(); 
  
  printf(" A:");
  p_mR(A, S5,P0,C10);   
    
  printf(" B: c_c_r_mR(A,C1,B,R2);");
  c_c_r_mR(A,C1,B,R2);
  p_mR(B, S5,P0,C10);
  
  f_mR(A);
  f_mR(B); 
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

int i;

do
{
  i = rp_I(R3)+R1;
  
  fun(i);

} while(stop_w());

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

 Copier une colonne de la matrice A dans une ligne de la matrice B :

Exemple de sortie écran :

/* ------------------------------------ */

 A :
  -95   -83   +29    -8 
  +67   -53   +37   +99 
  -87   +56   +66   -15 
  -80    +9   -59   -21 

 B : c_c_r_mR(A,C1,B,R2);
   +0    +0    +0    +0 
  -95   +67   -87   -80 
   +0    +0    +0    +0 
   +0    +0    +0    +0 


 Press return to continue
 Press X      to stop