求助marc中的体热源怎么实现？

舒凤远

大家好我的热源是体热源，并且移动基体
目前forcdt实现了基体的移动，但是热源没加上
我怀疑是不是体热源需要特别处理一下啊？
subroutine flux(f,temflu,mibody,time)
      implicit real*8 (a-h,o-z)                                               
      dimension f(2),mibody(6),temflu(7)
pai=3.1415926
f(1)=0
f0=3000
s=0.0008
maq=0.3*f0/(pai*s*s)

x0=temflu(4)
y0=temflu(5)
z0=temflu(6)
ss=sqrt(x0*x0+z0*z0)
h=0.0006-y0

if(ss.le.s) then
   f(1)=maq*exp(-3*(ss*ss)/(s*s))*exp(-h)
else
   f(1)=0
endif
c* * * * * *
      return
      end

舒凤远

393118560
加我我帮你！

舒凤远

怎么回事没人理啊哎郁闷

MCADCAM

你这个可以参照陈火红书上的那个例子，况且热源移动你没有设置速度和时间，而且热源模型你也没有定义，marc文档里有设置模型的例子，你翻查一下即可！我做拼焊，热源移动@