艾特肯加速法(steffensen方法).docVIP

#includeiostream #includecmath #include iomanip using namespace std; double f(double); main() { /*double x1=double(0.000000000); double x2=double(0.000000000); double x3=double(0.000000000); double x4=double(0.000000000); double c=double(0.000000000); double b=double(0.000000000); double e=double(0.000001); //coutEnter the x1:endl; //cinx1; //coutEnter the e:endl; //cine; x1=0;//两端点之一 x2=1;//两端点之一 x3=x2-F(x2)/((F(x2)-F(x1))/(x2-x1)); if(x2x3) x4=x2-x3; else x4=x3-x2; coutx1endl; coutx2endl; coutx3endl; while(x4e) { x1=x2; x2=x3; x3=x2-F(x2)/((F(x2)-F(x1))/(x2-x1)); coutx1endl; coutx2endl; coutx3endl; if(x2x3) x4=x2-x3; else x4=x3-x2; }*/ double x1=double(0.000000000); double x2=double(0.000000000); double x3=double(0.000000000); double y=double(0.000000000); double z=double(0.000000000); double e=double(0.000000001); coutEnter the x1:endl; cinx1; y=f(x1); z=f(y); x2=x1-(pow((y-x1),2)/(z-2*y+x1)); if(x1x2) x3=x1-x2; else x3=x2-x1; coutsetprecision(15)x2endl; while(x3e) { x1=x2; coutsetprecision(15)x1endl; y=f(x1); z=f(y); x2=x1-(pow((y-x1),2)/(z-2*y+x1)); if(x1x2) x3=x1-x2; else x3=x2-x1; coutsetprecision(15)x2endl; } coutThe result is:setprecision(15)x2endl; return 0; } double f(double c) { c=20/(pow(c,2)+10); //coutThe c=:cendl; return c; }