24小时热门版块排行榜    

查看: 2709  |  回复: 7

yanwentao

新虫 (正式写手)

[求助] 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大神指点
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

b07988

金虫 (正式写手)

星期六可以休息

【答案】应助回帖

★ ★ ★ ★ ★ ★
yanwentao: 金币+6, ★★★很有帮助 2013-04-29 16:45:47
第一种:每次移动一个网格。不易理解。
第二种:采用公式编译器编写。没有神马限制条件。推荐第二种。
还有不要说神马大神,就算知道你这个问题的人,看到“大神”二字,都不敢回答了。
本人不才,就自恋
先做最重要的事情,再做次重要的事情
2楼2013-04-28 21:28:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

张奋

新虫 (正式写手)

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

你好,请问你能做高斯热源的环焊缝,的模拟吗?谢谢
3楼2013-04-29 21:22:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

b07988

金虫 (正式写手)

星期六可以休息

引用回帖:
3楼: Originally posted by 张奋 at 2013-04-29 21:22:10
你好,请问你能做高斯热源的环焊缝,的模拟吗?谢谢...

轨迹有规律就行
先做最重要的事情,再做次重要的事情
4楼2013-04-29 22:51:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

张奋

新虫 (正式写手)

引用回帖:
4楼: Originally posted by b07988 at 2013-04-29 22:51:42
轨迹有规律就行...

有规律,是圆形的
5楼2013-04-29 23:22:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yanwentao

新虫 (正式写手)

引用回帖:
3楼: Originally posted by 张奋 at 2013-04-29 21:22:10
你好,请问你能做高斯热源的环焊缝,的模拟吗?谢谢...

不 好意思啊  这个恐怕帮不上你的忙了
6楼2013-04-30 09:16:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

张奋

新虫 (正式写手)

你做的是环焊缝吗?
7楼2013-05-06 10:43:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zndxwdm

新虫 (初入文坛)

【答案】应助回帖

请问后面定义的那个表示怎么确定数值的呢
8楼2014-04-10 14:13:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yanwentao 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 2JOx3r2CYEgw 2026-08-22 5/250 2026-08-23 07:41 by OEbVnUOu01ol
[基金申请] 2026国自然函评费到账 +12 羊腰板 2026-08-21 12/600 2026-08-23 07:40 by ma0526
[博后之家] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 DpSrDtM079iu 2026-08-22 5/250 2026-08-23 04:07 by OEbVnUOu01ol
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 2JOx3r2CYEgw 2026-08-22 7/350 2026-08-23 03:55 by OEbVnUOu01ol
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 DpSrDtM079iu 2026-08-22 3/150 2026-08-23 00:55 by OEbVnUOu01ol
[基金申请] 范进中举一文的中心思想 +3 zjuhero 2026-08-22 4/200 2026-08-22 20:02 by mycsru
[基金申请] 只有每年这种时候来逛逛小木虫 +24 yaoyewhu2008 2026-08-20 26/1300 2026-08-22 17:43 by kammury
[基金申请] filecode,4个jtjc了 +13 ziyangfang 2026-08-19 16/800 2026-08-22 17:08 by WH3796
[基金申请] 今天基金会出结果吗?20260819 +16 kkkl_v 2026-08-19 17/850 2026-08-22 16:12 by 阿布Abu
[基金申请] 时间戳今天,20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +16 医学老男孩 2026-08-20 20/1000 2026-08-21 21:13 by Ldrop2023
[基金申请] 科研孤儿太难了 +17 我4大白菜 2026-08-20 18/900 2026-08-21 20:57 by zhangev
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 今天系统多次维护,明天很可能放榜! +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 今天放榜吗? +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
信息提示
请填处理意见