finish
/clear
/PREP7
L1=0.05
L2=0.03
L3=0.03
L4=0.09
W=0.07
R1=0.008
H1=0.004
L=0.03
R2=0.005
H=0.008
ET,1,SOLID186
ET,2,PRETS179
MP,EX,1,2.1E11
MP,PRXY,1,0.3
TB,BISO,1,1,2,
TBDATA,,400E6,2e10,,,,
MP,EX,2,2.1E11
MP,PRXY,2,0.32
TB,BISO,2,1,2,
TBDATA,,600E6,2e10,,,,
BLOCK,0,L1+L2+L3,0,W,0,H,
BLOCK,L1,L1+L2+L3+L4,0,W,H,2*H,
CYL4,L1+L2,(W-L)/2,R2,0,0,0,2*H
VGEN,2,3,,,,L,,,0
FLST,2,2,6,ORDE,2
FITEM,2,1
FITEM,2,-2
FLST,3,2,6,ORDE,2
FITEM,3,3
FITEM,3,-4
VSBV,P51X,P51X
CYLIND,R2,0,0,2*H,0,360,
CYLIND,R1,0,2*H,2*H+H1,0,360,
CYLIND,R1,0,-H1,0,0,360,
VADD,1,2,3
VGEN,,4,,,L1+L2,(W-L)/2,,,,1
VGEN,2,4,,,,L,,,0
ESIZE,0.005
MAT,1
SMRT,3
MSHAPE,1,3D
VSWEEP,5
VSWEEP,6
ESIZE,0.002
MAT,2
MSHAPE,1,3D
MSHKEY,0
VMESH,1
VMESH,4
PSMESH,,p1,,VOLU,4,0,Z,H,,,,,
PSMESH,,p2,,VOLU,1,0,Z,H,,,,,
!使用接触向导定义接触对,详细操作见视频教程,命令流参见光盘的文本文件。
!*
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
/GSAV,cwz,gsav,,temp
MP,MU,1,0.15
MAT,1
R,3
REAL,3
ET,3,170
ET,4,174
KEYOPT,4,9,0
KEYOPT,4,10,2
R,3,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,18
ASEL,A,,,34
CM,_TARGET,AREA
TYPE,3
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
NSLE,A,CT2
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,32
CM,_CONTACT,AREA
TYPE,4
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,3
ESEL,A,TYPE,,4
ESEL,R,REAL,,3
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,3
ESEL,A,TYPE,,4
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,_TARGET
CMDEL,_CONTACT
!*
!*
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
/GSAV,cwz,gsav,,temp
MP,MU,1,0.15
MAT,1
R,4
REAL,4
ET,5,170
ET,6,174
KEYOPT,6,9,0
KEYOPT,6,10,2
R,4,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,33
ASEL,A,,,40
CM,_TARGET,AREA
TYPE,5
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
NSLE,A,CT2
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,26
CM,_CONTACT,AREA
TYPE,6
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,5
ESEL,A,TYPE,,6
ESEL,R,REAL,,4
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,5
ESEL,A,TYPE,,6
ESEL,R,REAL,,4
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,_TARGET
CMDEL,_CONTACT
!*
!*
!*
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
/GSAV,cwz,gsav,,temp
MP,MU,1,0.15
MAT,1
R,5
REAL,5
ET,7,170
ET,8,174
KEYOPT,8,9,0
KEYOPT,8,10,2
R,5,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,35
ASEL,A,,,36
CM,_TARGET,AREA
TYPE,7
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
NSLE,A,CT2
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,23
ASEL,A,,,24
ASEL,A,,,29
ASEL,A,,,30
CM,_CONTACT,AREA
TYPE,8
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,7
ESEL,A,TYPE,,8
ESEL,R,REAL,,5
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,7
ESEL,A,TYPE,,8
ESEL,R,REAL,,5
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,_TARGET
CMDEL,_CONTACT
!*
!*
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
/GSAV,cwz,gsav,,temp
MP,MU,1,0.15
MAT,1
R,6
REAL,6
ET,9,170
ET,10,174
KEYOPT,10,9,0
KEYOPT,10,10,2
R,6,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,7
ASEL,A,,,8
CM,_TARGET,AREA
TYPE,9
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
NSLE,A,CT2
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,21
ASEL,A,,,22
ASEL,A,,,27
ASEL,A,,,28
CM,_CONTACT,AREA
TYPE,10
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,9
ESEL,A,TYPE,,10
ESEL,R,REAL,,6
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,9
ESEL,A,TYPE,,10
ESEL,R,REAL,,6
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,_TARGET
CMDEL,_CONTACT
!*
!*
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
/GSAV,cwz,gsav,,temp
MP,MU,1,0.15
MAT,1
R,7
REAL,7
ET,11,170
ET,12,174
KEYOPT,12,9,0
KEYOPT,12,10,2
R,7,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,31
CM,_TARGET,AREA
TYPE,11
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
NSLE,A,CT2
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,25
CM,_CONTACT,AREA
TYPE,12
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,11
ESEL,A,TYPE,,12
ESEL,R,REAL,,7
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,11
ESEL,A,TYPE,,12
ESEL,R,REAL,,7
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,_TARGET
CMDEL,_CONTACT
/MREP,EPLOT
/SOL
!*
!*
NLGEOM,1
DA,5,ALL,
*DEL,_z
*DIM,_z,ARRAY,1,1,1
*SET,_z(1) ,1
*DO,_z1,1,1
SLOAD,_z(_z1),9,LOCK,FORC, 3000,1,2
*ENDDO
*DEL,_z
*DIM,_z,ARRAY,1,1,1
*SET,_z(1) ,2
*DO,_z1,1,1
SLOAD,_z(_z1),9,LOCK,FORC, 3000,1,2
*ENDDO
OUTRES,ALL,ALL,
!*
TIME,1
AUTOTS,1
NSUBST,60,,,1
KBC,0
LSWRITE,1,
SFA,12,1,PRES,-60E6
TIME,2
AUTOTS,1
NSUBST,60,,,1
KBC,0
LSWRITE,2,
LSSOLVE
新建 360压缩 ZIP 文件.zip_ansys法兰_zip_螺栓_螺栓法兰_螺栓计算
版权申诉
16 浏览量
2022-09-23
02:33:42
上传
评论
收藏 1KB ZIP 举报
寒泊
- 粉丝: 75
- 资源: 1万+