/PREP7
ET,1,PLANE42
KEYOPT,1,1,0
KEYOPT,1,2,0
KEYOPT,1,3,1
KEYOPT,1,5,0
KEYOPT,1,6,0
ET,2,FLUID29
ET,3,FLUID129
ET,4,FLUID29
KEYOPT,2,2,0
KEYOPT,2,3,1
KEYOPT,3,3,1
KEYOPT,4,2,0
KEYOPT,4,3,1
KEYOPT,4,2,1
KEYOPT,4,3,1
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,150
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,100e6
MPDATA,PRXY,1,,0.33
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,2,,1.29
MPDE,DENS,2
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,2,,1.29
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,SONC,2,,340
RECTNG,0,0.005,,,
RECTNG,0,0.005,0,0.030,
KWPAVE, 3
/PREP7
RECTNG,0,0.030,0,-0.005,
CSYS,0
WPAVE,0,0,0
CSYS,0
PCIRC,0.050, ,0,90,
R,1,0.050,,,
FLST,2,3,5,ORDE,2
FITEM,2,1
FITEM,2,-3
AOVLAP,P51X
FLST,2,3,5,ORDE,2
FITEM,2,4
FITEM,2,-6
AGLUE,P51X
MSHAPE,0,2D
MSHKEY,0
FLST,5,2,5,ORDE,2
FITEM,5,4
FITEM,5,-5
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
TYPE, 1
MAT, 2
REAL, 1
ESYS, 0
SECNUM,
CM,_Y,AREA
ASEL, , , , 6
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
ACLEAR, 6
TYPE, 2
MAT, 2
REAL, 1
ESYS, 0
SECNUM,
CM,_Y,AREA
ASEL, , , , 6
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
/UI,MESH,OFF
FLST,5,2,5,ORDE,2
FITEM,5,4
FITEM,5,-5
ASEL,S, , ,P51X
NSLA,S,1
ESLN,S
ESEL,INVE
FLST,2,86,2,ORDE,8
FITEM,2,96
FITEM,2,-116
FITEM,2,121
FITEM,2,-168
FITEM,2,170
FITEM,2,-184
FITEM,2,199
FITEM,2,213
EMODIF,P51X,TYPE,4,
ALLSEL,ALL
LSEL,S, , , 9
NSLL,S,1
TYPE, 3
MAT, 2
REAL, 1
ESYS, 0
SECNUM,
esurf
ALLSEL,ALL
FLST,5,5,4,ORDE,5
FITEM,5,3
FITEM,5,5
FITEM,5,-6
FITEM,5,13
FITEM,5,-14
LSEL,S, , ,P51X
NSLL,S,1
ESEL,S,MAT,,2
sf,all,fsi,1
FINISH
/SOL
ANTYPE,3
HROPT,FULL
HROUT,ON
LUMPM,0
EQSLV, ,1e-008,
PSTRES,0
FLST,2,1,1,ORDE,1
FITEM,2,1
/GO
F,P51X,FY,8.7,
ALLSEL,ALL
FLST,2,1,4,ORDE,1
FITEM,2,1
/GO
DL,P51X, ,ALL, ,
FLST,2,2,4,ORDE,2
FITEM,2,4
FITEM,2,16
DL,P51X, ,SYMM
HARFRQ,50,55,
NSUBST,5,
KBC,1
SOLVE
FINISH
/POST1
ESEL,S,MAT,,2
PLESOL, NMISC,4, 0,1.0
4# pfsr |