| 查看: 420 | 回复: 0 | |||
[交流]
做了一个关于支反力的例子，有此方面的朋友可以借鉴。
|
|
做了一个关于支反力的例子，有此方面的朋友可以借鉴。 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 |
回复此楼» 猜你喜欢
有多少人是今天查系统知道结果的？
已经有19人回复
-
国社科又开始会评了，不知道这次命运如何
已经有9人回复
-
能否申诉？
已经有5人回复
-
为什么到现在没收到通知？
已经有5人回复
-
有没有仍没收到信息的
已经有8人回复
-
面上意见出来了
已经有18人回复
-
找导师
已经有7人回复
-
29号明天会评吗
已经有3人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有11人回复
-
我就是申请一个面上项目而已，这评审意见是按照杰青的条件评的吧？
已经有11人回复
点击这里搜索更多相关资源
投票:
10