激光切割移动热源加载命令流

vivian2580

我的毕设就做这个
给大家分享一下把
命令流如下：
*do,i,0,2,1      2个脉冲 循环2次
local,11,0,0.00005+0.1*0.0012*i   建立局部坐标系  光斑直径0.1mm 移动速度1.2mm/s
*DEL,gaos5j             APDL函数加载器                    
*DEL,_FNCNAME   
*DEL,_FNCMTID   
*DEL,_FNCCSYS   
*SET,_FNCNAME,'gaos5j'  
*SET,_FNCCSYS,11
! /INPUT,gaos 5j.func,,,1   
*DIM,%_FNCNAME%,TABLE,6,18,1,,,,%_FNCCSYS%  
!   
! Begin of equation:0.4*10^14*exp(-{X}^2/(0.00005)^2)
*SET,%_FNCNAME%(0,0,1), 0.0, -999   
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), 0.0
*SET,%_FNCNAME%(4,0,1), 0.0
*SET,%_FNCNAME%(5,0,1), 0.0
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, -1, 0, 10, 0, 0, 0
*SET,%_FNCNAME%(0,2,1), 0.0, -2, 0, 14, 0, 0, -1
*SET,%_FNCNAME%(0,3,1),   0, -3, 0, 1, -1, 17, -2   
*SET,%_FNCNAME%(0,4,1), 0.0, -1, 0, 0.4, 0, 0, -3  
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, -1, 3, -3
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 0, 0, 0, 0  
*SET,%_FNCNAME%(0,7,1), 0.0, -3, 0, 1, 0, 0, -1
*SET,%_FNCNAME%(0,8,1), 0.0, -4, 0, 1, -1, 2, -3
*SET,%_FNCNAME%(0,9,1), 0.0, -1, 0, 2, 0, 0, 2  
*SET,%_FNCNAME%(0,10,1), 0.0, -3, 0, 1, 2, 17, -1   
*SET,%_FNCNAME%(0,11,1), 0.0, -1, 0, 1, -4, 3, -3   
*SET,%_FNCNAME%(0,12,1), 0.0, -3, 0, 0.00005, 0, 0, 0   
*SET,%_FNCNAME%(0,13,1), 0.0, -4, 0, 2, 0, 0, -3
*SET,%_FNCNAME%(0,14,1), 0.0, -5, 0, 1, -3, 17, -4  
*SET,%_FNCNAME%(0,15,1), 0.0, -3, 0, 1, -1, 4, -5   
*SET,%_FNCNAME%(0,16,1), 0.0, -1, 7, 1, -3, 0, 0
*SET,%_FNCNAME%(0,17,1), 0.0, -3, 0, 1, -2, 3, -1   
*SET,%_FNCNAME%(0,18,1), 0.0, 99, 0, 1, -3, 0, 0
! End of equation: 0.4*10^14*exp(-{X}^2/(0.00005)^2)

z471584973

LS能不能分享一下你的完整程序？

iomega

My two cents:

why not just define heat flux as:

0.4*10^14*exp(-({X}-V*{TIME} -X_OFFSET))^2/(0.00005)^2)

assuming the V is the moving speed and X_OFFSET is the start x.

In this way you don't need to use the *do loop to set {x} at each step.  You just need to apply the above heat flux once. At each time step, ansys will calculate the heat flux distribution automatically based on current {TIME}, so the code will become much more concise.

For pulse heating, you just need to apply 0 flux or above function to all the nodes, based on current {TIME}.

[ 本帖最后由 iomega 于 2008-5-24 14:57 编辑 ]

vivian2580

楼上说的方法当然可以 只是我需要变动参数 这样改程序会方便点

uuil

关注中

zhaoshusen

原来是VM243的热加载版本，挺好啊

carptin

能不能完整的把命令流写出来呢？期待中

wyq8588

期待完整程序~

onlyu

just a part...

mxx0714

期待完整程序，谢谢

自由落体

我想问下楼主，加载时可否有方程形式，而不是table形式

zhuwenfeng

什么是APDL函数加载器？他和函数编辑器一样么？

sd9366

完整程序，楼主发发慈悲！

lyx200802172

zhe ge kan bu donga

wxpand2004

1# vivian2580
其实我只想问个很弱智的问题，表格型数组的行列数各是通过什么确定的？还有就是给每一列赋值，值是怎么确定的？
希望得到您的尽快回复!

守护蓝天

期待完整的命令流.....

sd9366

感谢分享

守护蓝天

朋友，你解决了吗？能赐教下吗？谢谢！ 17# sd9366

wuyp802

能不能把整个程序分享下？

lixiaoyu0323

15# wxpand2004
见过很多程序，出现类似问题，个人感觉，这些数组值并不是自己写进去确定下来的，而是通过APDL函数编辑器编入热源函数，ANSYS计算过程中，将自动生成数组代码。而程序员为了提供点信息给我们借鉴却不愿提供完整代码，展示的也是修改过的部分代码，不知理解是否正确~