回 帖 发 新 帖 刷新版面

主题:求积分,大家帮忙看看

谁能帮忙编下f(x)exp(-xt)dx在0到无穷大的积分啊,f(x)是复数
其中Ww1c=100*beta,wc=0.1*beta 
我编的如下:


#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <dir.h>
#include <io.h>
#include <math.h>
#include <iostream.h>
#include <bcd.h>
#include <complex.h>

complex i;
#define i complex(0.,1.)  //给i赋值

#define h 0.001
#define pi 3.1415926

double beta=1.0;

double wc,w1c;
double t=0.0000001;


complex lags(double t1);
complex lagsf(double x,double t2);


complex lags(double t1)

{

    double xx;
    static double b[5]={0.26355990, 1.41340290, 3.59642600, 7.08580990, 12.64080000};
    static double c[5]={0.6790941054, 1.638487956, 2.769426772, 4.315944000, 7.104896230};
    complex g=0.0;
    for(int k=0;k<=4;k++)
    {
        xx=b[k];
        g=g+c[k]*lagsf(xx,t1);
    }
    return g;
}

//-----------------------------------------------------------------------------
complex lagsf(double x,double t2)
{
    complex y;
    y=pow(i*x*beta*beta*beta,0.5)*(wc-i*x)*exp(-x*t2)/(pow((i*w1c-x)*(wc-i*x)-i*pow(beta*beta*beta*wc,0.5),2.0)+i*beta*beta*beta*x);
    return y;
}


// -----------------------------------------------

void main()
{
    //参数设置--------------
    wc=100.0*beta;
    w1c=0.1*beta;
    //----------------------

    FILE *fp1;//建立个文件夹
    if((fp1=fopen("entropy.dat","wt"))==NULL)
    {
        printf("can not open file\n");
        exit(0);
    }

for(t=0.0000001;t<=50.0;)
  {
        complex At;     //////////////////
        
       At=exp(i*w1c*t)/pi*lags(t);//调用积分函数
        double Pu;  // the upper-level population
        Pu=norm(At);//对AT求绝对值平方

        //entropy------------------------------------------------------------

        //-------------------------------------------------------------------
        fprintf(fp1,"%e\t%e\n",t,Pu);
        t=t+h;
    }
}

大家帮忙看看啊,主要是求积分的函数,总得不到想要的结果,谢谢

回复列表 (共2个回复)

沙发

你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846

板凳

寻找一直寻找机会的人!
一个趋势中的趋势的项目!
一个直销和传销终结者的项目!
一个帮助普通创业者成功的项目!
   我们在互联网上正在拓展一个生意项目,现在正在寻求合作伙伴。我们认为成功的关键是你是什么人?还有你和谁在一起。我们在乎的是--您是否是有激情、有梦想的人。有意者请跟我们联系,我们和您谈谈,给您讲解一些生意概念,或许我们可以合作。一个集即时网游、交友,娱乐游戏,网络品牌代理商城,互联网平台项目招商进行中……详情QQ空间资料
网商咨询 摩客天宇QQ 909065437 

我来回复

您尚未登录,请登录后再回复。点此登录或注册