请各位高手看看我这个FOR热源能不能实现多道焊

熊霸天

仿照论坛上前辈的热源程序写了一个热源，目的是为了实现如下图所示的“多道焊热源的平移与延时启动”



如上图所示，我希望在堆焊完第一条后，根据对应的时间步，平移热源到第二个堆焊条，然后在使热源移动。

下面是我的热源程序，我的思路是通过判定JSTEP来使热源移动，但是不知道怎么回事，走完第一条焊条后第二条焊条的热源上不去。好像没有引用成功。

      SUBROUTINE DFLUX(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
     1                 TEMP,PRESS,SNAME)
c     
      INCLUDE 'ABA_PARAM.INC'
DIMENSION COORDS(3),FLUX(2),TIME(2)
      CHARACTER*80 SNAME
IF(JSTEP.eq.1)THEN
CALL DFLUX1(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
     1                  TEMP,PRESS,SNAME )
ELSE IF(JSTEP.eq.3)THEN
CALL DFLUX2(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
     2                  TEMP,PRESS,SNAME )
END IF
RETURN
      END
      


      SUBROUTINE DFLUX1(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
     1                 TEMP,PRESS,SNAME)
C
      INCLUDE 'ABA_PARAM.INC'

      DIMENSION COORDS(3),FLUX(2),TIME(2)
      CHARACTER*80 SNAME
q=800
v=0.005
d=v*TIME(2)
x=COORDS(1)
y=COORDS(2)
z=COORDS(3)
x0=0
y0=0
z0=0.0025
a=0.0028
b=0.0034
c=0.0032
PI=3.1415
heat=6*sqrt(3.0)*q/(a*b*c*PI*sqrt(PI))
shape=exp(-3*(x-x0)**2/c**2-3*(y-y0-d)**2/a**2-3*(z-z0)**2/b**2)
C     JLTYP＝1，表示为体热源
JLTYP=1
      FLUX(1)=heat*shape
      RETURN
      END


      SUBROUTINE DFLUX2(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
    1                TEMP,PRESS,SNAME)
C
      INCLUDE 'ABA_PARAM.INC'

      DIMENSION COORDS(3),FLUX(2),TIME(2)
      CHARACTER*80 SNAME
q=800
v=0.005
d=v*TIME(2)
x=COORDS(1)
y=COORDS(2)
z=COORDS(3)
x0=0.025
y0=0
z0=0.0025
a=0.0028
b=0.0034
c=0.0032
PI=3.1415
heat=6*sqrt(3.0)*q/(a*b*c*PI*sqrt(PI))
shape=exp(-3*(x-x0)**2/c**2-3*(y-y0-d)**2/a**2-3*(z-z0)**2/b**2)
C     JLTYP＝1，表示为体热源
JLTYP=1
      FLUX(1)=heat*shape
      RETURN
      END

我想请问一下，在abaqus里面不能实现这样的多焊道热源的设定吗?还是我的这个热源程序编写错误？
请高手和前辈指正，谢谢
PS：才接触for语言，很多都不懂，我坚信是能实现的，只是我的写法有问题。

熊霸天

烦请各位前辈看看，很渴望能解决这个问题。

熊霸天

已解决，是time(2)的问题，查看了手册之后，将其改为time(1)就行了，因为如果用time(2)第二个热源就已经跑出区域了。不知道的去查看abaqus 帮助文档即可

这是效果图，第二个焊道在第一个焊道走完之后才开始走。

QQT

你这个牛叉   让我想到了一个解决问题的方法  非常感谢哈！！

james210

熊霸天 发表于 2012-7-9 18:11
已解决，是time(2)的问题，查看了手册之后，将其改为time(1)就行了，因为如果用time(2)第二个热源就已经跑 ...

能留个联系方式交流下吗

lijinzhisss

lz我想问一下如果要在一个step中同时焊的话程序要怎么改？

freevol

类似的问题，有希望了

ypyae86

lijinzhisss 发表于 2013-1-27 22:05
lz我想问一下如果要在一个step中同时焊的话程序要怎么改？

你的问题解决了吗

aaron071

有用，好使，赞一个

aaron071

熊霸天 发表于 2012-7-9 18:11
已解决，是time(2)的问题，查看了手册之后，将其改为time(1)就行了，因为如果用time(2)第二个热源就已经跑 ...

我想问一下，如果我想实现对接焊，焊完第一道后再在对面接着焊接第二道，子程序该怎么更改？

Done1991

谢谢楼主，解决了我的大难题

17809711421

想问一下如果要在一个step中同时焊的话程序要怎么改？

17809711421

热源求指导

tjuwhk

谢谢分享

abaqussss

楼主是将所有的time（2）都改为time(1)吗

imrky

十分有用

ambition12138

abaqussss 发表于 2018-5-8 10:35
楼主是将所有的time（2）都改为time(1)吗

请问您知道这个time（1）怎么改了吗

1099

请问各位这是什么热源？