悬臂梁的体外加固问题，不收敛，求帮助
请教各位高手一个问题：我在做一个钢筋混凝土梁的体外纤维布加固。一个300*400*1400的悬臂梁，在1250的地方加载位移-50,
上面的受拉钢筋有4根16的，下面的受压2根10的，箍筋8@100
以上单位均为mm
在悬臂梁的上表面加一层纤维布.
计算的时候总是不收敛
附上命令流，希望大家发表一下看法。
finish
/clear,all
/com,structural
/prep7
et,1,link8
et,2,solid65
et,3,shell41
r,1,50.3
r,2,78.5
r,3,201.1
r,4
r,5,0.111
!受压钢筋及箍筋
mp,ex,1,2.1e5
mp,prxy,1,0.25
tb,bkin,1,1,2,1
tbdata,,200
！受拉钢筋
mp,ex,2,2e5
mp,prxy,2,0.3
tb,bkin,2,1,2,1
tbdata,,350
!混凝土
mp,ex,3,29900
mp,prxy,3,0.26
tb,conc,3
tbdata,,0.4,1,2.99,-1
tb,miso,3,1,11
tbpt,,0.0002,5.98
tbpt,,0.0004,11.36
tbpt,,0.0006,16.09
tbpt,,0.0008,20.19
tbpt,,0.0010,23.66
tbpt,,0.0012,26.50
tbpt,,0.0014,28.71
tbpt,,0.0016,30.28
tbpt,,0.0018,31.23
tbpt,,0.0020,31.56
tbpt,,0.0035,31.56
!纤维布
mp,ex,4,235000
mp,prxy,4,0
/pnum,node,1
/pnum,elem,1
n,1
n,11,300
fill,1,11
ngen,21,11,1,11,1,,20
ngen,29,1000,1,231,1,,,-50
/view,1,1,1,1
nplot
!建立箍筋
type,1
real,1
mat,1
*do,ii,25,30,1
e,ii,ii+1
*enddo
*do,ii,201,206,1
e,ii,ii+1
*enddo
*do,ii,25,190,11
e,ii,ii+11
*enddo
*do,ii,31,196,11
e,ii,ii+11
*enddo
egen,15,2000,1,44,1
!建立受压钢筋
type,1
real,2
mat,1
*do,ii,25,27025,1000
e,ii,ii+1000
*enddo
*do,ii,31,27031,1000
e,ii,ii+1000
*enddo
!建立受拉钢筋
type,1
real,3
mat,2
*do,ii,201,27201,1000
e,ii,ii+1000
*enddo
*do,ii,203,27203,1000
e,ii,ii+1000
*enddo
*do,ii,205,27205,1000
e,ii,ii+1000
*enddo
*do,ii,207,27207,1000
e,ii,ii+1000
*enddo
!纤维布单元
type,3
real,5
mat,4
*do,ii,221,230,1
*do,jj,ii,27000+ii,1000
e,jj,jj+1,jj+1000
e,jj+1,jj+1000,jj+1000+1
*enddo
*enddo
/view,1,1,1,1
/pnum,elem,0
/pnum,node,0
/eshape,1
eplot
!混凝土单元
block,0,300,0,400,0,-1400
/view,1,1,2,3
/rep,fast
lplot
/pnum,line,1
/replot
vatt,3,4,2
lsel,s,line,,9,12,1
lesize,all,50
lsel,s,line,,5,7,2
lsel,a,line,,2,4,2
lesize,all,30
lsel,s,line,,1,3,2
lsel,a,line,,6,8,2
lesize,all,20
lsel,all
vmesh,all
nummrg,all
numcmp,all
eplot
/pnum,mat,1
/pnum,node,0
/pnum,elem,0
/view,1,1,1,1
eplot
/solu
nsel,s,loc,z,0
d,all,all
allsel
nsel,s,loc,y,400
nsel,r,loc,z,-1250
d,all,uy,-50
allsel
antype,0
nlgeom,on
cnvtol,f,,0.05
arclen,on
nsubst,50
outres,erase
outres,all
allsel
solve
finish
页:
[1]