24小时热门版块排行榜

返回列表

小左儿

银虫 (正式写手)

应助: 84 (初中生)
金币: 125
散金: 6
红花: 23
帖子: 399
在线: 81.3小时
虫号: 2914579
注册: 2014-01-05
性别: GG
专业: 机械结构强度学

[交流] 做了一个关于支反力的例子，有此方面的朋友可以借鉴。

做了一个关于支反力的例子，有此方面的朋友可以借鉴。
FINISH
/CLEAR
/PREP7
ET,1,185

MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1E5
MPDATA,PRXY,1,,0.3

BLOCK,-20,20,0,10,50,-150,
WPROT,0,90
CSYS,4
CYLIND,,7.5,-10,10,0,360,
VPTN,ALL
VSEL,R,LOC,X,-7.5,7.5
VSEL,R,LOC,Y,-7.5,7.5
VDELE,ALL,,,1
ALLS,ALL
CYLIND,,7.5,-15,150,0,360,
WPSTYL,DEFA
WPOFF,0,10
WPROT,0,90
CYLIND,,10,-5,0,0,360,
VSEL,R,LOC,X,-7.5,7.5
VSEL,R,LOC,Y,-7.5,7.5
VPTN,ALL

ALLS,ALL
WPOFF,0,0,150
VSBW,ALL

VSEL,R,LOC,X,-7.5,7.5
VSEL,R,LOC,Y,-7.5,7.5
WPSTYL,DEFA
VSBW,ALL

ALLS,ALL
WPROT,0,90
VSBW,ALL

FLST,5,2,4,ORDE,2
FITEM,5,53
FITEM,5,55
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,3, , , , ,1
!*
FLST,5,8,4,ORDE,4
FITEM,5,17
FITEM,5,-20
FITEM,5,31
FITEM,5,-34
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,10, , , , ,1

ALLS,ALL
ESIZE,2.5
VSWEEP,ALL

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.2
MAT,1
R,3
REAL,3
ET,2,170
ET,3,174
KEYOPT,3,9,0
KEYOPT,3,10,2
R,3,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,17
CM,_TARGET,AREA
TYPE,2
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,,,36
ASEL,A,,,38
CM,_CONTACT,AREA
TYPE,3
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,2
ESEL,A,TYPE,,3
ESEL,R,REAL,,3
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,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,_TARGET
CMDEL,_CONTACT

!2
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.2
MAT,1
R,4
REAL,4
ET,4,170
ET,5,174
KEYOPT,5,9,0
KEYOPT,5,10,2
R,4,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,12
CM,_TARGET,AREA
TYPE,4
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,,,15
CM,_CONTACT,AREA
TYPE,5
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,4
ESEL,A,TYPE,,5
ESEL,R,REAL,,4
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,4
ESEL,A,TYPE,,5
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

!3
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.2
MAT,1
R,5
REAL,5
ET,6,170
ET,7,174
KEYOPT,7,9,0
KEYOPT,7,10,2
R,5,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,13
CM,_TARGET,AREA
TYPE,6
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,,,41
CM,_CONTACT,AREA
TYPE,7
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,6
ESEL,A,TYPE,,7
ESEL,R,REAL,,5
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,6
ESEL,A,TYPE,,7
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

!**************加载求解
/SOLU
ALLS,ALL
CSYS,0
ASEL,R,LOC,Z,-150
APLOT
DA,ALL,ALL

ALLS,ALL
FLST,2,1,3,ORDE,1
FITEM,2,20
FK,P51X,FZ,-1500

ALLS,ALL
NSUBST,100,100,10
SOLVE

/POST1
ALLS,ALL
CSYS,0
VSEL,R,LOC,Y,0,20
VSEL,R,LOC,X,-7.5,7.5
VSEL,R,LOC,Z,-7.5,7.5
VPLOT
NSLV,R,1

!列出螺栓所承受的载荷
PRNLD,FZ, ,ALL

回复此楼