| 查看: 1684 | 回复: 4 | |||
[求助]
APDL编写生死单元格+移动光源加载问题 已有3人参与
|
|
/SOLU AUTOTS, ON !是否使用时间步长 OUTPR, NSOL, ALL ！控制输出文件记录全部内容 OUTRES, NSOL, ALL ！ 输出设置 KBC, 1 ！渐变载荷 ANTYPE, TRANS ！瞬态分析 TIMINT,1,therm !打开瞬分析 tunif,20 !初始温度 pred,on !打开时间预测器 lnsrch,on !瞬态热分析设置 CNVTOL,HEAT, ,0.01,1,0.000001, !控制收敛准则 LUMPM,0 !不使用集中质量矩阵 D, ALL, TEMP, 20 ！对所有施加温度20 NROPT, FULL ！使用完全牛顿拉普拉斯函数 asel,s,loc,x,0 ！添加对流载荷 sfa,all,,conv,30,25 asel,s,loc,x,7,z sfa,all,,conv,30,25 asel,s,area,,15 !选择面15 sfa,all,,conv,30,25 asel,s,area,,13 sfa,all,,conv,30,25 asel,s,area,,12 sfa,all,,conv,30,25 asel,s,area,,9 sfa,all,,conv,30,25 asel,s,area,,6 sfa,all,,conv,30,25 asel,s,area,,17 sfa,all,,conv,30,25 *SET,MAX_X,20 *SET,MAX_Z,40 *SET,MAX_TIME,40 *SET,DLR,1 ！扫描的步长 *SET,TINC,DLR/V ！载荷步时间大小 *SET,R,0.36 ！扫描间距 *SET,v,0.03 ！扫描速度 *SET,qmax,1.31e8 *DIM,LASER,TABLE,MAX_X,MAX_Z,MAX_TIME,X,Z,TIME ！定义一个三维表格，三个变量依次为x坐标、z坐标和时间 *DO,k,1,MAX_TIME,1 *SET,XCEN,0 ！设定每步光束中心X、Z *SET,ZCEN,(k-1)*DLR !DLR为每步需要移动步长 *DO,i,1,MAX_X,1 ！定义第0列的值，按x坐标进行循环 *SET,LASER(i,0,k),(i-1)*DLR *enddo *DO,j,1,MAX_Z,1 !按照Z坐标进行循环 *SET,LASER(0,j,k),(j-1)*DLR *ENDDO *DO,i,1,MAX_X,1 ! 第i步相对于光束中心 *DO,j,1,MAX_Z,1 !第 j步相对于光束中心 *SET,COORD_X,(i-1)*DLR-XCEN !x轴移动的距离 （计算焊接方向上各点到热源中心的距离） *SET,COORD_Z,(j-1)*DLR-ZCEN !Z轴移动的距离 *SET,DISTANCE,SQRT(COORD_X**2+COORD_Z**2) ！！第i步移动到的位置点相对于光束中心距离 *IF,DISTANCE,LE,R,THEN !!如果距离小于光束半径 *SET,LASER(i,j,k),QMAX/exp(3*(distance**2)/(r**2)) !输出生热率 *ELSE *SET,LASER(i,j,k),0 !否则生热率为0 *ENDIF *ENDDO *ENDDO *SET,LASER(0,0,k),(k-1)*TINC ！定义每个时间步的值 *ENDDO TUNIF,20 定义所有节点的温度20 !瞬态计算整个表格的热流密度值 TREF,20 定义参考温度20 asel,s,loc,x,0 ！添加对流载荷 sfa,all,,conv,30,25 asel,s,loc,x,7,z sfa,all,,conv,30,25 asel,s,area,,15 !选择面15 sfa,all,,conv,30,25 asel,s,area,,13 sfa,all,,conv,30,25 asel,s,area,,12 sfa,all,,conv,30,25 asel,s,area,,9 sfa,all,,conv,30,25 asel,s,area,,6 sfa,all,,conv,30,25 asel,s,area,,17 sfa,all,,conv,30,25 /solu TIME,40 !设置求解时间 AUTOS,1 KBC,1 DELTIM,0.2,0.2,0.2,1 !使用前一载荷步的终止时间为下一个载荷步的起始时间 TSRES,ERASE !消除上一载荷锁甲的热流载荷密度 SFA,11,1,HFLUX, %LASER% !给选定的面9施加热流密度 TSRES,ERASE OUTRES,ALL,ALL, !将所有的求解信息写入数据库 solve SFADELE,15,,HFLUX TIME,20 AUTOTS,1 NSUBST,20,20,20 ！指定载荷子步数 KBC,1 ！指定载荷为阶跃式 TSRES,ERASE solve TIME,40 AUTOTS,1 NSUBST,30,30,30 KBC,1 TSRES,ERASE solve 为啥激活的时候没啥反应。 。 @wuming524 |
回复此楼» 猜你喜欢
有多少人是今天查系统知道结果的？
已经有16人回复
-
我不理解！
已经有14人回复
-
国自然面上复盘~欢迎讨论
已经有4人回复
-
系统查不到
已经有10人回复
-
基金不中，共勉
已经有3人回复
-
怎么查啊
已经有5人回复
-
范进中举一文的中心思想
已经有10人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有9人回复
-
2026国自然函评费到账
已经有25人回复
-
2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？
已经有28人回复
yiming_0
金虫 (正式写手)
- 应助: 41 (小学生)
- 金币: 1792.9
- 红花: 3
- 帖子: 385
- 在线: 66.2小时
- 虫号: 2954862
- 注册: 2014-02-04
- 性别: GG
- 专业: 零件加工制造
2楼2019-04-12 11:15:08
shgao20
专家顾问 (职业作家)
-
专家经验: +809 - 仿真EPI: 1
- 应助: 1311 (讲师)
- 金币: 13381.4
- 红花: 267
- 帖子: 3531
- 在线: 473.4小时
- 虫号: 3644138
- 注册: 2015-01-14
- 专业: 动力学与控制
- 管辖: 仿真模拟
3楼2019-04-13 08:28:45
4楼2019-04-13 16:11:38
5楼2019-06-02 22:07:47
