Linear Algebra and the C Language/a0fs

Install and compile this file in your working directory.

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "v_a.h" 
/* ------------------------------------ */
/* ------------------------------------ */
#define  ARRAY  A3
/* ------------------------------------ */
#define     RA  R5
#define     CA  C1
#define     CB  C3
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
{
double **A[ARRAY];
double **B = i_mR(RA,CB);
int i;           
 
  clrscrn();

  printf(" The problem:\n\n");
  
  for(i=A0; i<ARRAY; i++)
     {
	  A[i] = r_mR(i_mR(RA,CA),99); 
	  
	  printf(" A[%d] :",i);      
      p_mR(A[i], S5,P0,C6); 
     }  
	  
  stop();
  
  clrscrn();
  
    for(i=A0; i<ARRAY; i++)
  
	  c_c_mR(A[i],C1, B,i+C1);
	  
  printf(" A solution:\n\n");  
  
  printf("    A[0]   A[1]   A[2] :");	     
  p_mR(B, S6,P0,C10);

  for(i=A0; i<ARRAY; i++)
  
       f_mR(A[i]); 
       
  f_mR(B);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun();

} while(stop_w());

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

The problem with the solution:

Screen output example:

                                                                                       
 The problem:

 A[0] :
  +18 
  -23 
  -91 
  +12 
  -31 

 A[1] :
  -83 
  -95 
  +64 
  +88 
  +94 

 A[2] :
  +28 
  -94 
  -94 
  -87 
  +89 

 Press return to continue. 


 A solution:

    A[0]   A[1]   A[2] :
   +18    -83    +28 
   -23    -95    -94 
   -91    +64    -94 
   +12    +88    -87 
   -31    +94    +89 


 Press   return to continue
 Press X return to stop