24小时热门版块排行榜

返回列表

yanwentao

新虫 (正式写手)

应助: 10 (幼儿园)
金币: 1208.9
散金: 278
红花: 6
帖子: 650
在线: 183.9小时
虫号: 1742885
注册: 2012-04-07
专业: 金属材料

[求助] 2种焊接移动高斯热源的程序，有什么区别吗已有1人参与

我在相关书籍上看见 2种形式的高斯热源的程序,但是我不知道2者有何区别，可以通用吗？第一个如下*dim,flux2,table,max_x,max_y,max_time,x,y,time
*do,k,1,max_time,1
*do,i,1,max_x,1
flux2(i,0,k)=(i-1)*lsize
*enddo
*do,j,1,max_y,1
flux2(0,j,k)=(j-1)*lsize
*enddo
*do,i,1,max_x,1
*do,j,1,max_y,1
xcenter=v*(k-1)*tinc
ycenter=30
distance=sqrt(((i-1)*lsize-xcenter)**2+((j-1)*lsize-ycenter)**2)
*if,distance,le,r,then
flux2(i,j,k)=Qmax*exp(-3*kk*distance**2/(r**2))
*else
flux2(i,j,k)=0
*endif
*enddo
*enddo
flux2(0,0,k)=(k-1)*tinc
*enddo
第2个如下
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNCCSYS
*SET,_FNCNAME,'GAOSI'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*SET,_FNC_C1(1),QM
*SET,_FNC_C2(1),V
*SET,_FNC_C3(1),R
*SET,_FNCCSYS,0
! /INPUT,HANJIE.func,,,1
*DIM,%_FNCNAME%,TABLE,6,19,1,,,,%_FNCCSYS%
!
! Begin of equation: Qm*exp(-3*({X}^2+({Y}-V*{TIME})^2)/R^2)
*SET,%_FNCNAME%(0,0,1), 0.0, -999
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), %_FNC_C1(1)%
*SET,%_FNCNAME%(4,0,1), %_FNC_C2(1)%
*SET,%_FNCNAME%(5,0,1), %_FNC_C3(1)%
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, -1, 0, 0, 0, 0, 0
*SET,%_FNCNAME%(0,2,1), 0.0, -2, 0, 1, 0, 0, -1
*SET,%_FNCNAME%(0,3,1), 0, -3, 0, 1, -1, 2, -2
*SET,%_FNCNAME%(0,4,1), 0.0, -1, 0, 3, 0, 0, -3
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, -3, 3, -1
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 2, 0, 0, 2
*SET,%_FNCNAME%(0,7,1), 0.0, -3, 0, 1, 2, 17, -1
*SET,%_FNCNAME%(0,8,1), 0.0, -1, 0, 1, 18, 3, 1
*SET,%_FNCNAME%(0,9,1), 0.0, -4, 0, 1, 3, 2, -1
*SET,%_FNCNAME%(0,10,1), 0.0, -1, 0, 2, 0, 0, -4
*SET,%_FNCNAME%(0,11,1), 0.0, -5, 0, 1, -4, 17, -1
*SET,%_FNCNAME%(0,12,1), 0.0, -1, 0, 1, -3, 1, -5
*SET,%_FNCNAME%(0,13,1), 0.0, -3, 0, 1, -2, 3, -1
*SET,%_FNCNAME%(0,14,1), 0.0, -1, 0, 2, 0, 0, 19
*SET,%_FNCNAME%(0,15,1), 0.0, -2, 0, 1, 19, 17, -1
*SET,%_FNCNAME%(0,16,1), 0.0, -1, 0, 1, -3, 4, -2
*SET,%_FNCNAME%(0,17,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%_FNCNAME%(0,18,1), 0.0, -2, 0, 1, 17, 3, -1
*SET,%_FNCNAME%(0,19,1), 0.0, 99, 0, 1, -2, 0, 0
! End of equation: Qm*exp(-3*({X}^2+({Y}-V*{TIME})^2)/R^2)

请ANSYS大神指点

回复此楼

1楼2013-04-21 11:21:58

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

b07988

金虫 (正式写手)

星期六可以休息

应助: 20 (小学生)
金币: 617.6
散金: 881
红花: 6
帖子: 352
在线: 102.3小时
虫号: 961909
注册: 2010-03-05
性别: GG
专业: 金属材料的制备科学与跨学

【答案】应助回帖

★ ★ ★ ★ ★ ★
yanwentao: 金币+6, ★★★很有帮助 2013-04-29 16:45:47

第一种：每次移动一个网格。不易理解。
第二种:采用公式编译器编写。没有神马限制条件。推荐第二种。
还有不要说神马大神，就算知道你这个问题的人，看到“大神”二字，都不敢回答了。
本人不才，就自恋

赞一下(2人)

回复此楼

先做最重要的事情，再做次重要的事情

2楼2013-04-28 21:28:20

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

张奋

新虫 (正式写手)

应助: 2 (幼儿园)
金币: 837.2
散金: 1203
红花: 1
帖子: 446
在线: 242.1小时
虫号: 1431757
注册: 2011-10-08
专业: 金属结构材料

引用回帖:

2楼: Originally posted by b07988 at 2013-04-28 21:28:20
第一种：每次移动一个网格。不易理解。
第二种:采用公式编译器编写。没有神马限制条件。推荐第二种。
还有不要说神马大神，就算知道你这个问题的人，看到“大神”二字，都不敢回答了。
本人不才，就自恋

你好，请问你能做高斯热源的环焊缝，的模拟吗？谢谢

赞一下

回复此楼

3楼2013-04-29 21:22:10

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖