| 查看: 1532 | 回复: 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 |
回复此楼» 猜你喜欢
一志愿郑大材料工程290求调剂
已经有6人回复
-
292求调剂
已经有11人回复
-
309求调剂
已经有11人回复
-
262求调剂
已经有3人回复
-
303求调剂
已经有5人回复
-
300求调剂，材料科学英一数二
已经有17人回复
-
一志愿北京化工大学材料与化工（085600）296求调剂
已经有21人回复
-
307求调剂
已经有15人回复
-
286分调剂
已经有9人回复
-
求调剂323材料与化工
已经有8人回复
5楼2019-06-02 22:07:47
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
