www.pudn.com > cghost.rar > ACHOL0.C

 
  #include "stdio.h" 
  #include "achol.c" 
  main() 
  { int i; 
    static double a[4][4]={ {5.0,7.0,6.0,5.0}, 
    {7.0,10.0,8.0,7.0},{6.0,8.0,10.0,9.0},{5.0,7.0,9.0,10.0}}; 
    static double d[4][2]={ {23.0,92.0},{32.0,128.0}, 
                            {33.0,132.0},{31.0,124.0}}; 
    if (achol(a,4,2,d)>0) 
      for (i=0; i<=3; i++) 
        printf("x(%d)=%13.7e,   %13.7e\n",i,d[i][0],d[i][1]); 
  }