7srrt0.c

常用算法程序集(c语言描述) 第三版.rar

  #include "math.h"
  #include "stdio.h"
  #include "7srrt.c"
  main()
  { int i;
    static double xr[6],xi[6];
    static double a[7]={ -20.0,7.0,-7.0,1.0,3.0,-5.0,1.0};
    i=srrt(a,6,xr,xi);
    printf("\n");
    if (i>0)
      { for (i=0; i<=5; i++)
          printf("x(%d)=%13.7e j %13.7e\n",i,xr[i],xi[i]);
        printf("\n");
      }
  }