udf 能量对时间积分

庚午123

总的时间就是能量源项对时间积分得到的。
time=-ln(1-w/CA(∑∆q*∆t))定义暴露时间时间time为是关于 从模拟开始到任意时刻这段总时间产生的热量 的公式；总热量Q=∑∆q*∆t，为每个步长时间内热量之和
∆q=C*A_0*exp(-(E/R)/T)*exp(-r*time)  步长内的产生热量与暴露时间time的关系式
总之time与∆q之间是相互影响的关系，最终想要udf能量源项∆q。（还想要每个步长后的time，现在还没有考虑到这里）
下面是udf：#include "udf.h"
#include "mem.h"
#include O2_NUM 1/*氧气*/
DEFINE_SOURCE(energy_source,c,t,dS,eqn)/*定义能量源项*/
{
real source;
real yangqi=C_YI(c,t,1);/*氧气质量分数*/
real T=C_T(c,t);           /*温度*/
real time=-log(1-0.0003/(35000*yangqi)*C_UDMI(c,t,0));      /*暴露时间定义 C_UDMI(c,t,0)为上一步的总能量*/
   source=yangqi*29000*exp(-35000/(8.314*T))*exp(0.0003*time)*968; /*能量源项*/
dS[eqn]=yangqi*29000*exp(-35000/(8.314*T))*exp(0.0003*time)*968*20000/(8.314*pow(T,-2));
C_UDMI(c,t,0)+=source;    /*C_UDMI(c,t,0)为上一步的总能量Q+此步能量source（∆q）*/
C_UDMI(c,t,1)=time;     /*C_UDMI(c,t,1)为上一步的总暴露时间*/
return source;
}
初始化应用patch，C_UDMI(c,t,0)和C_UDMI(c,t,1)初始化均为0
我是根据这个帖子得到的上面的udf的http://emuch.net/bbs/viewthread.php?tid=4516697，但是导入udf后并没有能量的产生，并不知道哪里出了错误.很着急！，请各位多多指教！在此谢过了

庚午123

有没有人