《ansys弹性触头接触分析命令流》由会员分享，可在线阅读，更多相关《ansys弹性触头接触分析命令流（7页珍藏版）》请在金锄头文库上搜索。
1、/FILNAME,Contact Spring,1 /TITLE,Contact Spring Analysis /PREP7 /VIEW,1,1,1,1 !调整窗口视角。ET,1,PLANE42!定义单元。KEYOPT,1,1,0KEYOPT,1,2,0KEYOPT,1,3,3KEYOPT,1,5,0KEYOPT,1,6,0!定义材料属性。MPTEMP, !定义触头材料属性。MPTEMP,1,0 MPDATA,EX,1,2.06e5 MPDATA,PRXY,1,0.35 MPTEMP, !定义接触单元属性(摩擦系数)。MPTEMP,1,0 MPDATA,MU,2,0.16 R,1,2.5,!
2、触头板厚。! 建立触头模型。CYL4, , ,4 CYL4,-7.9458,-0.9291,4 LSTR, 2, 4 LSTR, 6, 8 FLST,3,1,4,ORDE,1 FITEM,3,9 LGEN,2,P51X, , ,-3.8, , , ,0FLST,3,1,4,ORDE,1 FITEM,3,10 LGEN,2,P51X, , ,3.8, , , ,0 ASBL, 1, 11 ASBL, 2, 12 FLST,2,2,4,ORDE,2! 删除多余的线。FITEM,2,9 FITEM,2,-10 LDELE,P51X, , ,1ADELE, 4, , ,1 ! 删除多余的面。ADELE
3、, 5, , ,1FLST,3,1,3,ORDE,1! 建立动触头。FITEM,3,14 KGEN,2,P51X, , ,0.45, , , ,0 FLST,3,1,3,ORDE,1 FITEM,3,1 KGEN,2,P51X, , , ,5, , ,0 FLST,3,1,3,ORDE,1 FITEM,3,2 KGEN,2,P51X, , ,-0.45, , , ,0FLST,2,5,3 FITEM,2,14 FITEM,2,1 FITEM,2,2 FITEM,2,4 FITEM,2,13 A,P51X FLST,2,2,5,ORDE,2 FITEM,2,2 FITEM,2,3 AADD,P5
4、1X ! 以上动触头模型建立完成。FLST,3,1,3,ORDE,1 ! 建立静触头。FITEM,3,9 KGEN,2,P51X, , ,-0.45, , , ,0FLST,3,1,3,ORDE,1 FITEM,3,6 KGEN,2,P51X, , , ,-5, , ,0 FLST,3,1,3,ORDE,1 FITEM,3,7 KGEN,2,P51X, , ,0.45, , , ,0 FLST,2,5,3 FITEM,2,7 FITEM,2,8 FITEM,2,10 FITEM,2,9 FITEM,2,6 A,P51X FLST,2,2,5,ORDE,2 FITEM,2,1 FITEM,2,2
5、 AADD,P51X ! 以上静触头模型建立完成。! 触头网格划分。FLST,5,12,4,ORDE,4 ! 触头网格密度控制。FITEM,5,1 FITEM,5,-10 FITEM,5,13 FITEM,5,-14 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y LESIZE,_Y1,0.04, , , , , , ,1 ! 触头边网格密度为0.04。TYPE, 1! 触头网格划分。MAT, 1REAL, 1 ESYS, 0 SECNUM, MSHAPE,0,2D MSHKEY,0FLST,5,2,5,ORDE,2 FITEM,5,3 FITE
6、M,5,-4 CM,_Y,AREA ASEL, , , ,P51X CM,_Y1,AREA CHKMSH,AREA CMSEL,S,_Y AMESH,_Y1 ! CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 ! 触头网格划分完成。 ! 建立接触面及目标面。FLST,5,2,4,ORDE,2 ! 选择目标面并定义节点组。FITEM,5,2 FITEM,5,3 LSEL,S, , ,P51X ALLSEL,BELOW,LINE NSLL,S,1CM,target,NODE ! 选择目标面并定义节点组完成。FLST,5,2,4,ORDE,2 ! 选择接触面并定义节点组。FITEM,
7、5,13 FITEM,5,-14 LSEL,S, , ,P51X ALLSEL,BELOW,LINE NSLL,S,1CM,contact,NODE ! 选择接触面并定义节点组完成。! 定义动触头与静触头接触对。/COM, CONTACT PAIR CREATION - START! 定义动触头与静触头接触对开始。CM,_NODECM,NODE CM,_ELEMCM,ELEM CM,_KPCM,KP CM,_LINECM,LINE CM,_AREACM,AREA CM,_VOLUCM,VOLU /GSAV,cwz,gsav,tempMP,MU,1,MAT,2 R,3 REAL,3 ET,2,1
8、69ET,3,175R,3,0.8,0.05,0, KEYOPT,3,9,0KEYOPT,3,10,1 RMORE, RMORE,0RMORE,0 ! Generate the target surface NSEL,S,TARGET CM,_TARGET,NODE TYPE,2 ESLN,S,0ESURF CMSEL,S,_ELEMCM ! Generate the contact surface NSEL,S,CONTACTCM,_CONTACT,NODETYPE,3 ESLN,S,0ESURF ALLSEL ESEL,ALLESEL,S,TYPE,2 ESEL,A,TYPE,3 ESEL
9、,R,REAL,3 /PSYMB,ESYS,1 /PNUM,TYPE,1/NUM,1 EPLOT ESEL,ALLESEL,S,TYPE,2 ESEL,A,TYPE,3 ESEL,R,REAL,3 CMSEL,A,_NODECM CMDEL,_NODECM CMSEL,A,_ELEMCM CMDEL,_ELEMCM CMSEL,S,_KPCM CMDEL,_KPCM CMSEL,S,_LINECM CMDEL,_LINECM CMSEL,S,_AREACM CMDEL,_AREACM CMSEL,S,_VOLUCM CMDEL,_VOLUCM /GRES,cwz,gsav CMDEL,_TAR
10、GET CMDEL,_CONTACT /COM, CONTACT PAIR CREATION - END ! 定义动触头与静触头接触对完成。!设定求解步并求解。ALLSEL,ALL FLST,2,2,3,ORDE,1 !定义第一载荷步。 FITEM,2,2 /GO DK,P51X, , , ,0,UX, , , , , , FLST,2,1,4,ORDE,1 !定义动触头第一个行程。 FITEM,2,5 /GO DL,P51X, ,UY, -0.46455!定义动触头第一个行程。FLST,2,1,4,ORDE,1 FITEM,2,7 /GO DL,P51X, ,ALL, FINISH /SOL
11、LSWRITE,1, !定义第一载荷步完成。FLST,2,1,4,ORDE,1 !定义动触头第二个行程。 FITEM,2,5 /GO DL,P51X, ,UY,-0.9291 !定义动触头第二个行程。FLST,2,1,4,ORDE,1 FITEM,2,7 /GO DL,P51X, ,ALL, FINISH /SOLLSWRITE,2, !定义第二载荷步完成。FLST,2,1,4,ORDE,1 !定义动触头第三个行程。 FITEM,2,5 /GO DL,P51X, ,UY,-1.2 !定义动触头第三个行程。FLST,2,1,4,ORDE,1 FITEM,2,7 /GO DL,P51X, ,ALL, FINISH /SOLLSWRITE,3, !定义第三载荷步完成。!设定求解步并求解。/SOLU ANTYPE,0NLGEOM,1NSUBST,6,0,0 OUTRES,ERASEOUTRES,ALL,ALL TIME,3 LSSOLVE,1,3,1,
