| 查看: 1713 | 回复: 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 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有7人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有6人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有6人回复
-
现代”学阀”该如何界定
已经有14人回复
-
师弟论文见刊大半年才想起来申请专利，还能抢救一下吗？
已经有4人回复
-
有机合成以后会不会被AI改变？做科研的虫友怎么看
已经有8人回复
-
我的奶奶
已经有3人回复
4楼2019-04-13 16:11:38
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
5楼2019-06-02 22:07:47