我这个怎么用不成,请问搂主是怎么回事?
fini
/clea
/prep7
et,1,82
k,1
k,2,1
k,3,1,1
k,4,0,1
a,1,2,3,4
lsel,all
lesize,all,0.4
amesh,all
secwrite,d,sect,,1
sectype,1,beam,mesh,
secoffset,cent,,,
secread,'d','sect',,mesh
asel,all
aclear,all
adele,all,,,1
k,1
k,2,1
k,3,1,2
k,4,0,2
a,1,2,3,4
lsel,all
lesize,all,0.4
amesh,all
secwrite,e,sect,,1
sectype,1,beam,mesh,
secoffset,cent,,,
secread,'e','sect',,mesh
asel,all
aclear,all
adele,all,,,1
et,1,beam188
keyopt,1,8,2
keyopt,1,9,2
mp,ex,1,3.5e10
mp,dens,1,2549
mp,prxy,1,0.1667
r,1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
sectype,1,beam,rect ! define cross section at first end point
secdata,.0001,0.5
sectype,2,beam,rect ! define cross section at far end
secdata,3,0.5
sectype,3,taper ! new Section ID for tapered beam analysis
secdata,1,0.0,0.0 ! section 1 at location (0,0,0)
secdata,2,0.0,,20.0 ! section 2 at location (0,20,0)
k, 1, -2.7 ,0, -27.85
k, 2, -2.7 ,0, -19
k, 3, -2.7 ,0, -13
lstr, 1, 2
lstr, 2, 3
lsel,s,,,1
latt,1,1,1
lesize,all,,,1
lmesh,all
lsel,s,,,2
latt,1,1,3
lesize,all,,,1
lmesh,all |