| 查看: 1516 | 回复: 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 |
回复此楼» 猜你喜欢
伙伴们，祝我生日快乐吧
已经有5人回复
-
274求调剂0856材料化工
已经有10人回复
-
337一志愿华南理工0805材料求调剂
已经有6人回复
-
（081700）化学工程与技术-298分求调剂
已经有7人回复
-
材料与化工304求B区调剂
已经有5人回复
-
NSFC申报书里申请人简历中代表性论著还需要在申报书最后的附件里面再上传一遍吗
已经有9人回复
-
一志愿北京化工大学材料与化工296分求调剂
已经有17人回复
-
0703化学一志愿211 总分320求调剂
已经有3人回复
-
0703求调剂
已经有6人回复
-
一志愿天津大学材料与化工275求调剂
已经有22人回复
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
