原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
钢球淬火过程温度分析
!（1）定义工作文件名：
/FILNAME,Ball_thermal,0
!（2）定义工作标题
/TITLE,Cooling of a steel ball
!（3）关闭坐标符号的显示：
/PLOPTS,INFO,3
/PLOPTS,LEG1,1
/PLOPTS,LEG2,1
/PLOPTS,LEG3,1
/PLOPTS,FRAME,1
/PLOPTS,TITLE,1
/PLOPTS,MINM,1
/PLOPTS,FILE,0
/PLOPTS,LOGO,1
/PLOPTS,WINS,1
/PLOPTS,WP,0
/PLOPTS,DATE,2
/TRIAD,OFF
/REPLOT
!*
!2．定义单元类型及材料属性
/PREP7
!*
ET,1,PLANE55
!*
KEYOPT,1,1,0
KEYOPT,1,3,1
KEYOPT,1,4,0
KEYOPT,1,8,0
KEYOPT,1,9,0
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.2E11
MPDATA,PRXY,1,,0.28
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7800
MPTEMP,,,,,,,,
MPTEMP,1,0
UIMP,1,REFT,,,
MPDATA,ALPX,1,,1.3E-6
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,1,,70
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,C,1,,448
!3．建立几何模型，并且划分网格，生成有限元模型
!（1）建立1/4圆面：
PCIRC,0.1,0,0,90,
! ！（2）划分网格：
!（2）划分网格：
!*
LESIZE,ALL, , ,20, ,1, , ,1,
MSHKEY,0
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,AREA
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
! Plot Elements命令
EPLOT
!4．施加载荷和求解
!（1）设定分析类型：
FINISH
/SOL
!*
ANTYPE,4
!*
TRNOPT,FULL
LUMPM,0
!*
!（2）设定载荷步、载荷子步：
!*
TIME,60
AUTOTS,-1
DELTIM,0.4,0.4,3,1
KBC,0
!*
TSRES,ERASE
! ！（3）输出控制：
!（3）输出控制：
!*
OUTRES,ALL,ALL,
!（3）打开线编号：
/PNUM,KP,0
/PNUM,LINE,1
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
!Select Entities
/PNUM,KP,0
/PNUM,LINE,1
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
/REPLOT
LPLOT
LSEL,S, , , 1
TUNIF,500,
LSEL,S, , , 1
NSLL,S,1
FLST,2,21,1,ORDE,2
FITEM,2,1
FITEM,2,-21
/GO
!*
SF,P51X,CONV,650,0
ALLSEL,ALL
SAVE
SAVE,Ball_thermal,db,C:\Users\Administrator\
/STATUS,SOLU
SOLVE
!4．查看结果（后处理）
FINISH
/POST1
!*
/EFACET,1
PLNSOL, TEMP,, 0
!（2）生成动画
!*
PLNS,TEMP,
ANTIME,10,0.5, ,1,0,0,0
!*
EPLOT
!Define Variables命令
FINISH
/POST26
FILE,Ball
文档评论（0）