请教各位高手：环形焊缝热源子程序如何实现

wuhq888

各位高手

我现在做焊接仿真，涉及环缝焊接温度场计算，之前仅算过平板对接直线焊缝，环形焊缝热源不知道如何实现？哪位高手不辞吝教，能否将相关子程序发送至welding5@163.com,不胜感激！

zhangqing

同求，哪位大侠能否指点一下，感激万分~~

zhangqing

1# wuhq888
楼主大人，环形移动热源子程序如何实现的，不知道是否已经解决了，向您请教啦，O(∩_∩)O谢谢

zhangzhihan

用圆的方程表示加载范围的大小，取加载起点的坐标为x,y,z。给定角速度让这个坐标移动，就可以实现热源移动。至于加载厚度，可以用点到起点的距离就搞定了。

zhangqing

4# zhangzhihan
要计算一个球形薄壁结构面上的圆孔和法兰间的焊接，请教一下怎么做呢？能给个思路吗？O(∩_∩)O谢谢

wanglei168

好像这个问题从来都没有在这个论坛上解决过，前几天看到个用（x-r*cos(a)),(y-r*sin(a)),公式的，不过具体实施不知道，不知有没有高手能指点下。还有就是如果是一条曲线，曲线方程还不知道，，只是知道这个路径，那需要怎么去实现焊接，是不是就不能做了，比如下面这个子程序（也是论坛上） parameter(one=1.d0)
      DIMENSION COORDS(3),FLUX(2),TIME(2)
      CHARACTER*80 SNAME

        q=1100
        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
        if (JSTEP. eq. one) then
      FLUX(1)=heat*shape
      endif
      RETURN
      END
如果路径是个圆的话，是不是就需要改变x=COORDS(1)，y=COORDS(2)换成相应的曲线方程啊？

zhangqing

如果有这样一条曲线：由一个球面和一个圆柱面（轴线与球半径不重合）相交构成，请问如何沿这个曲线加载热源呢？

wenbinli999

问题解决了吗，同求

zhangqing

请高手关注下啊~~~~~菜鸟们很痛苦。。。。。。。。。。。。。

powertang

仅用一坐标转换及可，热源不动，模拟件转动，关键点是要注意反三角函数的值范围

申博文1122

你好，很多年过去了，请问这个问题解决了么？我也是想弄个环焊缝，请问你是怎么做的？

ddt

同求高手关注