| 查看: 1469 | 回复: 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 |
回复此楼» 猜你喜欢
Materials Today Chemistry审稿周期
已经有4人回复
-
萌生出自己或许不适合搞科研的想法，现在跑or等等看？
已经有3人回复
-
参与限项
已经有3人回复
-
假如你的研究生提出不合理要求
已经有7人回复
-
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
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