Linear Algebra and the C Language/a0ap

/* ------------------------------------ */
/*  Save as :   c00c.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **u  = r_mR(i_mR(r,C1),9.);
double **v  = r_mR(i_mR(r,C1),9.);

double **ku  =     i_mR(r,C1);

double k = r_I(9);

  clrscrn();
  printf(" u :");
  p_mR(u,S3,P0,C6);
  printf(" v :");
  p_mR(v,S3,P0,C6);
  printf(" k*u :");
  p_mR(smul_mR(k,u,ku),S3,P0,C6);
  stop();
    
  clrscrn();  
  printf("      <ku,v> = k<u,v>     [Homogeneity axiom] \n\n");
  
  printf("  <ku,v>  = %.0f    \n",   dot_R(ku,v));
  printf("  k<u,v>  = %.0f  \n\n", k*dot_R( u,v));
  
  f_mR(u);
  f_mR(v);
  f_mR(ku);  
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun(rp_I(R3)+R2);


} while(stop_w());

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

                                                                                       
 u :
 +1 
 +9 
 +2 
 +6 
 +1 

 v :
 +6 
 +2 
 +7 
 +7 
 -8 

 k*u :
 -5 
-45 
-10 
-30 
 -5 

 Press return to continue. 


      <ku,v> = k<u,v>     [Homogeneity axiom] 

  <ku,v>  = -360    
  k<u,v>  = -360  


 Press   return to continue
 Press X return to stop