|
/prep7
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
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,all
lsel,s,,,2
latt,1,,1,,,,3
lesize,all,,,1
lmesh,all
/view,,1,2,3
/auto
/eshape,1
/rep
|