atkn0.c

来自「数值分析算法描述与习题解答」· C语言 代码 · 共 22 行

  #include "math.h"
  #include "stdio.h"
  #include "atkn.c"
  main()
  { int js,k;
    double x,eps,atknf();
    eps=0.0000001; js=20; x=0.0;
    k=atkn(&x,eps,js,atknf);
    printf("\n");
    printf("k=%d  x=%13.7e\n",k,x);
    printf("\n");
  }

  double atknf(x)
  double x;
  { double y;
    y=6.0-x*x;
    return(y);
  }