| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1250 人关注过本帖
标题:请教有关龙贝格求微积分的问题
取消只看楼主 加入收藏
dark1998
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2009-10-5
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:1 
请教有关龙贝格求微积分的问题
题目是用龙贝格(Romberg)求pow(3,x)*(5*x+7)*sin(x*x)*pow(x,1.4)在(1,3)区间上的积分
这是我这个菜鸟编的程序 但是不显示任何结果 正确答案是440左右 请大家帮帮忙 在下不胜感激 谢谢。
#include "stdio.h"
#include<math.h>
#define n 20
double f(double x)
{double z;
    z=pow(3,x)*(5*x+7)*sin(x*x)*pow(x,1.4);
    return(z);
    }
main()
{
    int i,j;
    double T[n][n];
    double h,temp;
    T[1][0]=f(1)+f(3);
    for(i=1;i<n;i++)
      { h=0;
        for(j=1;j<=pow(2,i-1);j++)
           temp=2*f(1+2*(2*j-i)/pow(2,i))/pow(2,i-1);
           h=h+temp;}
    T[1][i]=(T[1][i-1]+h)/2;
    for(i=1;i<n;i++)
        {for(j=1;j<=n-i+1;j++)
        T[i+1][j-1]=(pow(4,i)*T[i][j]-T[i][j-1])/(pow(4,i)-1);
        }
        
     printf("%f",T[i][0]);
}
搜索更多相关主题的帖子: 龙贝格 微积分 
2009-11-03 19:16
dark1998
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2009-10-5
收藏
得分:0 
感谢2楼的帮忙
2009-11-05 23:29
快速回复:请教有关龙贝格求微积分的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.090583 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved