Linear Algebra and the C Language/a0iz

Install and compile this file in your working directory.

/* ------------------------------------ */
/*  Save as :   c00d.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r,int c)
{
double **A     = rE_mR(i_mR(r,c),9999,1E-2);
double **B     = rE_mR(i_mR(r,c),9999,1E-3);

  clrscrn();

  printf(" See the files \"a0000.c\" and \"b0000.c\" \n\n");
  
  fPE_mR(A,"a0000.c","\n\n\nA:", S5,P4, C6);
  fPE_mR(B,"b0000.c",      "B:", S5,P4, C6);
  
  
  f_mR(A);
  f_mR(B);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

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

Screen output example:

                                                                                       
 See the files "a0000.c" and "b0000.c" 


 Press   return to continue
 Press X return to stop