- /PREP7
- !*
- ET,1,BEAM188
- !*
- ET,2,COMBI214
- !*
- MPTEMP,,,,,,,,
- MPTEMP,1,0
- MPDATA,EX,1,,2.1e11
- MPDATA,PRXY,1,,0.3
- MPTEMP,,,,,,,,
- MPTEMP,1,0
- MPDATA,DENS,1,,7850
- !*
- KEYOPT,2,2,1
- KEYOPT,2,3,0
- KEYOPT,2,4,0
- !*
- R,1,1.0E9, , , , , ,
- RMORE, , ,
- !*
- SECTYPE, 1, BEAM, CSOLID, , 0
- SECOFFSET, CENT
- SECDATA,0.1,0,0,0,0,0,0,0,0,0,0,0
- K,1,0,,,
- K,2,2,,,
- LSTR, 1, 2
- K,3,0,-0.2,0,
- K,4,2,-0.2,0,
- FLST,3,2,3,ORDE,2
- FITEM,3,3
- FITEM,3,-4
- NKPT,0,P51X
- CM,_Y,LINE
- LSEL, , , , 1
- CM,_Y1,LINE
- CMSEL,S,_Y
- !*
- !*
- CMSEL,S,_Y1
- LATT, ,1,1, , , ,1
- CMSEL,S,_Y
- CMDELE,_Y
- CMDELE,_Y1
- !*
- FLST,5,1,4,ORDE,1
- FITEM,5,1
- CM,_Y,LINE
- LSEL, , , ,P51X
- CM,_Y1,LINE
- CMSEL,,_Y
- !*
- LESIZE,_Y1, , ,50, , , , ,1
- !*
- LMESH, 1
- TYPE, 2
- MAT,
- REAL, 1
- ESYS, 0
- SECNUM, 1
- TSHAP,LINE
- !*
- FLST,2,2,1
- FITEM,2,1
- FITEM,2,3
- E,P51X
- FLST,2,2,1
- FITEM,2,2
- FITEM,2,4
- E,P51X
- !*
- /SHRINK,0
- /ESHAPE,1.0
- /EFACET,1
- /RATIO,1,1,1
- /CFORMAT,32,0
- /REPLOT
- !*
- !*
- /SHRINK,0
- /ESHAPE,0.0
- /EFACET,1
- /RATIO,1,1,1
- /CFORMAT,32,0
- /REPLOT
- !*
- FINISH
- /SOL
- /UI,MESH,OFF
- FINISH
- /SOL
- !*
- ANTYPE,2
- !*
- !*
- MODOPT,QRDAMP,10
- MXPAND,10, , ,0
- LUMPM,0
- PSTRES,0
- MODOPT,QRDAMP,10,0,0,1,OFF
- SAVE
- SAVE
- !*
- FLST,2,1,4,ORDE,1
- FITEM,2,1
- !*
- /GO
- DL,P51X, ,UX,
- FLST,2,1,4,ORDE,1
- FITEM,2,1
- !*
- /GO
- DL,P51X, ,ROTX,
- FLST,2,2,3,ORDE,2
- FITEM,2,1
- FITEM,2,-2
- !*
- FLST,2,2,3,ORDE,2
- FITEM,2,3
- FITEM,2,-4
- !*
- /GO
- DK,P51X, , , ,0,ALL, , , , , ,
- CORIOLIS,1, , ,1,0
- OMEGA,0,0,0,
- SAVE
- /STATUS,SOLU
- SOLVE
- SAVE
- OMEGA,523,0,0,
- /STATUS,SOLU
- SOLVE
- OMEGA,1570,0,0,
- /STATUS,SOLU
- SOLVE
- OMEGA,3140,0,0,
- /STATUS,SOLU
- SOLVE
- SAVE
- FINISH
- /POST1
- PLCAMP,0,1,RDS,0, ,0
复制代码 您帮我看一下 是哪里的问题
|