?? 7.3 求解非線性方程一個實根的埃特金迭代法 atkn.c
字號:
#include "math.h"
int atkn(x,eps,js,f)
int js;
double eps,*x,(*f)();
{
int flag,l;
double u,v,x0;
l=0; x0=*x; flag=0;
while ((flag==0)&&(l!=js))
{
l=l+1;
u=(*f)(x0); v=(*f)(u);
if (fabs(u-v)<eps)
{
x0=v; flag=1;
}
else x0=v-(v-u)*(v-u)/(v-2.0*u+x0);
}
*x=x0; l=js-l;
return(l);
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -