Simpson公式

设\(f(x)\)为原函数，$g(x)=Ax2+Bx+C $ 为拟合后的函数，则有:

\[ \int_{a}^{b}f(x)dx \approx \int_{a}^{b}Ax^2+Bx+C = \frac{A}{3}(b^3-a^3)+\frac{B}{2}(b^2-a^2)+C(a-b) =\frac{(b-a)}{6}(f(a)+f(b)+4f(\frac{a+b}{2})) \]

然后就得到了Simpson公式

\[ \int_{a}^{b}f(x)dx \approx \frac{(b-a)}{6}(f(a)+f(b)+4f(\frac{a+b}{2})) \]

所以

inline double simpson(double l,double r){    double mid=(l+r)/2.;    return (r-l)*(f(l)+f(r)+4.*f(mid))/6.;}

洛谷P4525 【模板】自适应辛普森法1

Solution

考虑二分区间，当精度满足时，终止递归

Code 

#include
    
     #define max(a,b) ((a)>(b)?(a):(b))#define min(a,b) ((a)<(b)?(a):(b))#define db doubledb a,b,c,d;inline db f(db x){return (c*x+d)/(a*x+b);}inline db simpson(db l,db r){return (f(l)+4.*f((l+r)/2.)+f(r))*(r-l)/6.;}inline db asr(db l,db r,db ans,db eps){    db mid=(l+r)/2,L=simpson(l,mid),R=simpson(mid,r);    if(std::fabs(L+R-ans)<=14*eps) return L+R+(L+R-ans)/14;    return asr(l,mid,L,eps/2)+asr(mid,r,R,eps/2);}int main(){    db L,R;    scanf("%lf%lf%lf%lf%lf%lf",&a,&b,&c,&d,&L,&R);    printf("%.6lf",asr(L,R,simpson(L,R),1e-6));    return 0;}
    

洛谷P4526 【模板】自适应辛普森法2

Solution

• \(a<0\)时原积分发散

  \[ f(x)=x^{\frac{a-x^2}{x}}=\frac{1}{x^{\frac{x^2-a}{x}}} \]
  当\(x\)趋近于0时，\(\frac{x^2-a}{x}\) 趋近于\(\infty\),\(f(x)\)趋近于\(\infty\)

• \(a>0\)时原积分收敛

不再赘述。。。

然后我们假装是\(( eps , 20 )\)的定积分

Code 

#include
    
     #define db doubledb a;inline db f(db x){return pow(x,a/x-x);}inline db simpson(db l,db r){return (f(l)+f(r)+4.0*f((l+r)/2.))*(r-l)/6.0;}inline db asr(db l,db r,db eps,db ans){    db mid=(l+r)/2.0,left=simpson(l,mid),right=simpson(mid,r);    if(std::fabs(left+right-ans)
    

---

Blog来自PaperCloud，未经允许，请勿转载，TKS！