24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

muqiuyan

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 2962
散金: 355
红花: 1
帖子: 162
在线: 64小时
虫号: 829827
注册: 2009-08-18
性别: MM
专业: 能源化工

[交流] 【求助】求积分程序中被积函数问题已有5人参与

我用Simpson方法计算定积分。在程序中有两个地方用到积分，而被积分函数作为子程序调用，在计算积分的程序中该怎么定义被积函数呢？

这是辛普森算法的程序：
double fsimp(a,b,eps) /*辛普森算法*/
double a,b,eps; /*a为积分下限，b为积分上限，eps是希望达到的精度*/
{
int n,k;
double h,t1,t2,s1,s2,ep,p,x;
n=1; h=b-a;
t1=h*(fsimpf(a)+fsimpf(b))/2.0;  /*用梯形公式求出一个大概的估值*/
s1=t1;
printf("s1=%e\n",s1);
ep=eps+1.0;
while (ep>=eps)
{
p=0.0;
for (k=0;k<=n-1;k++)
{
x=a+(k+0.5)*h;
p=p+fsimpf(x);
}
t2=(t1+h*p)/2.0;
s2=(4.0*t2-t1)/3.0;
printf("s2=%e\n",s2);
ep=fabs(s2-s1);
t1=t2; s1=s2; n=n+n; h=h/2.0;
}
return(s2);
}

这是被积函数的程序：

double fsimpf(r)
double r; /* 被积分的函数*/

{  double y;
y=被积函数f(x)的表达式；
  return(y);
}

两个被积函数不能都用fsimpf（）表示吧，可不用它，计算积分时调用被积函数又是用fsimpf（）表示的：

怎么区分啊

回复此楼

» 猜你喜欢

2025冷门绝学什么时候出结果已经有4人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
论文投稿，期刊推荐已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
孩子确诊有中度注意力缺陷已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复

1楼2010-05-21 14:44:42

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

muqiuyan

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 2962
散金: 355
红花: 1
帖子: 162
在线: 64小时
虫号: 829827
注册: 2009-08-18
性别: MM
专业: 能源化工

引用回帖:

Originally posted by tjyl at 2010-06-02 18:44:44:
最近比较忙，没有怎么回帖。

简单地说一下吧，建议你使用函数指针，不然程序照你这样写以后又要修改积分的函数那你还得改。
double fsimp(double (*f)(double ),double a, double b, double eps) / /*a为积分 ...

万分感谢，因为要编程，才开始学，很多都不懂。
麻烦在帮忙看看这个，我的程序里有两个积分，每个的积分变量还不同，怎么在程序中体现区分呢。

double fsimp(double (*f)(double ),double a, double b, double eps, int func_index)
{……..
……….
t1=((*f)(a,func_index)+(*f)(b,func_index))*h/2.0;
……….
p=p+(*f)(double ,func_index);
……….
}

double f(double ？, int func_index) //  这个地方如何区分积分变量呢，下面怎么定义。
{…….
……….
swtich (func_index)
{
case 1:
计算y1的表达式；    //第一个函数
      return (y1);
      break;

case 2:
计算y2的表达式；       //第二个函数
      return (y2);
break;
}
}

积分时就写为
fsimp(r,a,b,eps,1)       //积分第一个函数,其中r为第一个函数的积分变量
fsimp(T,a,b,eps,2)       //积分第二个函数，其中T为第二个函数的积分变量