fini
/clear
/filname,'横向分布系数'
/prep7
et,1,82
et,2,44
et,3,44
et,4,44
keyopt,4,8,111
mp,dens,2,2600
mp,ex,2,3.3e10
mp,prxy,2,0.1667
mp,ex,3,3e16
mp,prxy,3,0.1667
mp,ex,4,3e16
mp,prxy,4,0.1667
r,3,1e-3,1,1,0.03,0.03
!!生成截面
rectng,,0.99,,0.6
cyl4,0.27,0.26,0.19,-180,
cyl4,0.27,0.34,0.19,180,
rectng,0.08,0.46,0.26,0.34
agen,2,2,4,1,0.45,,,100
asel,s,,,2,7,1
cm,ar,area
allsel
asba,1,ar
esize,0.1
amesh,all
secwrite,kxb,sect,,1
sectype,1,beam,mesh
secoffset,cent,,,
secread,'kxb','sect',,mesh
asel,all
aclear,all
adele,all,,,1
n,1
n,21,,,12.6
fill,1,21
n,22,0,1,0
ngen,9,100,1,22,1,1
type,2
r,2
secnum,1
mat,2
*do,i,1,20,1
*do,k,1,9,1
e,(k-1)*100+i,(k-1)*100+i+1,(k-1)*100+22
*enddo
*enddo
esel,s,,,1,180,1
cm,t2,elem
allsel
type,4
mat,3
real,3
*do,i,1,21,1
*do,k,1,8,1
e,(k-1)*100+i,k*100+i
*enddo
*enddo
esel,s,,,181,348,1
cm,t4,elem
*do,i,0,8,1
allsel
nsel,s,loc,z,0
nsel,r,loc,y,0
nsel,r,loc,x,i
d,all,ux,,,,,uy,uz,rotz,roty
allsel
nsel,s,loc,z,12.6
nsel,r,loc,y,0
nsel,r,loc,x,i
d,all,ux,,,,,uy,rotz,roty
*enddo
/solu
*do,i,0,8,1
time,i+1
fdele,all,all
nsel,s,loc,z,6.3
nsel,r,loc,x,i
nsel,r,loc,y,0
f,all,fy,-1
allsel
solve
*enddo
fini
/post1
esel,s,,,82,90,1
set,1
etable,z1,smisc,12
set,2
etable,z2,smisc,12
set,3
etable,z3,smisc,12
set,4
etable,z4,smisc,12
set,5
etable,z5,smisc,12
set,6
etable,z6,smisc,12
set,7
etable,z7,smisc,12
set,8
etable,z8,smisc,12
set,9
etable,z9,smisc,12
pretab,z1,z2,z3,z4,z5,z6,z7,z8,z9 |