- 积分
- 0
- 注册时间
- 2008-7-14
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2008-12-11 18:05:58
|
显示全部楼层
来自 北京
#include "mdi_c.h"
#include "math.h"
#define M 8388608
#define T 2045
double MYRAND( double l )
{
double x,r,k,y,x1,x0;
int j,i;
x0=1;
x1=1;
for(j=0;j<l;j++)
{
k=0;
for( i=0;i<12;i++)
{
x=fmod(T*x0,M);
r=x/M;
x0=x;
k=r+k;
}
y=fmod(T*x1,M);
x1=y;
x0=x1;
}
return(k-6);
}
void vc_initialize_user()
{
vc_function_add("MYRAND", (FUNCTION)MYRAND, fn_R_R,1,0);
}
这是那个程序,mdi_c.h是adams需要的,通过这个把c的格式变成adams能识别的,因为adams本身的函数都是以fortran编写的,后来增加了c模板的,但还是按fortran的格式要求,就增加了这个头文件。
现在编译连接时候,vc不能识别vc_function_add("MYRAND", (FUNCTION)MYRAND, fn_R_R,1,0);
这个函数 |
|