Linear Algebra and the C Language/a0hg

/* ------------------------------------ */
/*  Save as :   c00b.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
#define   RC  RC6
/* ------------------------------------ */
int main(void)
{
/* Toeplitz Matrix 
   
        V
 
   U    1 5 6 7 8 9
        2 
        3         
        4
        5
        6
     
  */
  
double u[R1*RC]={ 1,5,6,7,8,9};
double v[RC*C1]={ 1,
	              2,
	              3,
	              4,
	              5,
	              6};
	              	                 
double **V   = ca_A_mR(v,i_mR(RC,C1));	
double **U   = ca_A_mR(u,i_mR(R1,RC));
double **A   =           i_mR(RC,RC);

  clrscrn();
  
  rToeplitz_mR(U,V,A);
  
  printf(" A: Toeplitz matrix");
  p_mR(A, S4,P0,C10);
  stop();

  f_mR(U);
  f_mR(V);   
  f_mR(A);
  
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

                                                                                       
 A: Toeplitz matrix
  +1   +5   +6   +7   +8   +9 
  +2   +1   +5   +6   +7   +8 
  +3   +2   +1   +5   +6   +7 
  +4   +3   +2   +1   +5   +6 
  +5   +4   +3   +2   +1   +5 
  +6   +5   +4   +3   +2   +1 

 Press return to continue.