码迷,mamicode.com
首页 > 其他好文 > 详细

积分:变步长梯形法

时间:2016-04-01 21:53:56      阅读:152      评论:0      收藏:0      [点我收藏+]

标签:

#include <stdio.h>
#include <math.h>
#include <iomanip>
#define e 2.7182818
double f(double x)
{
    return pow(e,-x*x);
}
double Calc(double a,double b,double esp)
{
    int done(0);
    int n=1;
    double h,Tn,T2n,k,temp,x;
    h=b-a;
    Tn=h*(f(a)+f(b))/2.0;
    while(!done){
     temp = 0;
     for(k=0;k<n;k++){
      x=a+(k+0.5)*h;
      temp+=f(x);
     }
     T2n=(Tn+h*temp)/2.0;
     if(fabs(T2n-Tn)<esp) done=1;
     else{
      Tn=T2n;
      n=n*2;
      h=h/2;
     }
    }
    return T2n;
}
int main()
{
    printf("%.50lf\n",Calc(-10000,10000,1e-50));
    return 0;
} 

代码暂不鲁棒,待修改

积分:变步长梯形法

标签:

原文地址:http://www.cnblogs.com/Enceladus/p/5346381.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!