matlab 梯形 逐次分半,梯形求积公式的逐次分半法(C语言实现)

#if0

在好几个网友的要求下，先给出一个简单的逐次分半法梯形求积公式的C语言直接实现

。不过还是提醒一下如果学习算法的话，最好还是自己实际进行编码的好。

#endif

#ifdef CODE1//g++ -DCODE1 thisfile.cpp

#include

#include

// 梯形公式的逐次分半法求积函数

double integral(

double a,//积分区间起始值

double b,//积分区间终止值

double(*f)(double),//被积函数

double eps//积分允许误差

)

{

double n = 1;

double h = (b-a)/2;

double Tn = h*(f(a)+f(b));

double T2n = 0;

while(true)

{

double sumf = 0;

for(int i=1;i<=n;++i)

{

sumf += f(a+(2*i-1)*h);

}

T2n = Tn/2+h*sumf;

if(fabs(T2n-Tn)<3*eps)break;

Tn = T2n;

n *= 2;

h /= 2;

}

return T2n;

}

// 自定义的被积函数，只要满足下面的形式的函数就可以了:)

double func(double x)

{

return sin(x)*cos(x);

}

int main()

{

const double PI = 3.1415926535;

printf("%s%.8f/n","sin(x)在[0,PI/2]的积分值为:",integral(0,PI/2,sin,1e-8));

printf("%s%.8f/n","func(x)在[0,PI/2]的积分值为:",integral(0,PI/2,func,1e-8));

return 0;

}

#endif// CODE1

//该程序的运行结果如下：

/*******************************************************************************

sin(x)在[0,PI/2]的积分值为:1.00000000

func(x)在[0,PI/2]的积分值为:0.49999999

*******************************************************************************/

#if0

下面是能够输入参数的程序：

#endif

#ifdef CODE2//g++ -DCODE2 thisfile.cpp

#include

#include

// 梯形公式的逐次分半法求积函数

double integral(

double a,//积分区间起始值

double b,//积分区间终止值

double(*f)(double),//被积函数

double eps//积分允许误差

)

{

double n = 1;

double h = (b-a)/2;

double Tn = h*(f(a)+f(b));

double T2n = 0;

while(true)

{

double sumf = 0;

for(int i=1;i<=n;++i)

{

sumf += f(a+(2*i-1)*h);

}

T2n = Tn/2+h*sumf;

if(fabs(T2n-Tn)<3*eps)break;

Tn = T2n;

n *= 2;

h /= 2;

}

return T2n;

}

// 自定义的被积函数，只要满足下面的形式的函数就可以了:)

double func(double x)

{

return sqrt(x);//在这里修改你的被积函数

}

int main()

{

const double PI = 3.1415926535;

double a,b,eps;//输入的参数保存在此

scanf("%lf%lf%lf",&a,&b,&eps);//输入参数

printf("积分下界=%f,积分上界=%f,误差=%f/n",a,b,eps);//显示输入的数据

printf("%s%f%s%f%s%.8f/n","sqrt(x)在[",a,",",b,"]的积分值为:",integral(a,b,func,eps));

return 0;

}

#endif// CODE1

//该程序的输入：

/*******************************************************************************

E:/>a

0 0.5 1e-6

*******************************************************************************/

//相应的输出为：

/*******************************************************************************

积分下界=0.000000,积分上界=0.500000,误差=0.000001

sqrt(x)在[0.000000,0.500000]的积分值为:0.23570147

*******************************************************************************/