广场 › [墩台基础] › 实体墩计算总结

gengwenxue 发表于 2009-9-8 09:06:50

实体墩计算总结

/prep7
!********************************
!定义材料属性
!********************************
et,1,solid45
mp,ex,1,3.44e10
mp,prxy,1,0.2
mp,dens,1,2548.4
r,1                           !定义混凝土实常数为空
et,2,link8
mp,ex,2,2.0e11
mp,prxy,2,0.3
PI=ACOS(-1)
r,2,3.10e-3,0   !定义钢筋材料面积
r,3,2.16e-3,0   !定义钢筋材料面积
r,4,6.16e-4,0   !定义钢筋材料面积
!********************************
!建立实体模型
!********************************
!********************************
!生成下部等宽段
!********************************
w1=2.75
h1=0.9
ZZ=0
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
a,1,2,3,4
dundi=2
vext,1,,,,,dundi
!********************************
!生成第一变宽段
!********************************
w1=2.767
h1=0.9
ZZ=2.6
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=2
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第二变宽段
!********************************
w1=2.818
h1=0.9
ZZ=3.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=3
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第三变宽段
!********************************
w1=2.886
h1=0.9
ZZ=3.7
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=4
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第四变宽段
!********************************
w1=2.979
h1=0.9
ZZ=4.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=5
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第五变宽段
!********************************
w1=3.097
h1=0.9
ZZ=4.7
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=6
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第六变宽段
!********************************
w1=3.24
h1=0.9
ZZ=5.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=7
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第七变宽段
!********************************
w1=3.411
h1=0.9
ZZ=5.7
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=8
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第八变宽段
!********************************
w1=3.61
h1=0.9
ZZ=6.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=9
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第九变宽段
!********************************
w1=3.839
h1=0.9
ZZ=6.7
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=10
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
!********************************
!生成第十变宽段
!********************************
w1=4.1
h1=0.9
ZZ=7.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
yz=4
n=11
*do,I,1,4
l,I+yz*n,I+yz*(n-1)
*enddo
a,1+yz*n,2+yz*n,3+yz*n,(n+1)*yz
a,1+yz*(n-1),1+yz*n,yz*(n+1),yz*n
a,1+yz*(n-1),1+yz*n,2+yz*n,2+yz*(n-1)
a,2+yz*(n-1),2+yz*n,3+yz*n,3+yz*(n-1)
a,3+yz*(n-1),3+yz*n,(n+1)*yz,n*yz
va,2+5*(n-2),7+5*(n-2),8+5*(n-2),9+5*(n-2),10+5*(n-2),11+5*(n-2)
vsel,s,loc,z,7.2
vext,52,,,,,0.8
vsel,all
vadd,all
numcmp,all
!********************************
!建立凹槽
!********************************
wpcsys,-1
wpoffs,,0.8,,
csys,4      !指定工作平面
!********************************
!生成下部等宽段
!********************************
w1=0.3
h1=0.1
ZZ=0
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,
a,53,54,55,56
dundi=2
vext,51,,,,,dundi
vsel,s,loc,y,0
vplot
!********************************
!生成第一变宽段
!********************************
w1=0.315
h1=0.1
ZZ=2.6
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=2
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第二变宽段
!********************************
w1=0.36
h1=0.1
ZZ=3.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=3
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第三变宽段
!********************************
w1=0.421
h1=0.1
ZZ=3.7
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=4
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第四变宽段
!********************************
w1=0.503
h1=0.1
ZZ=4.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=5
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第五变宽段
!********************************
w1=0.606
h1=0.1
ZZ=4.7
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=6
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第六变宽段
!********************************
w1=0.733
h1=0.1
ZZ=5.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=7
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第七变宽段
!********************************
w1=0.882
h1=0.1
ZZ=5.7
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=8
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第八变宽段
!********************************
w1=1.056
h1=0.1
ZZ=6.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=9
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第九变宽段
!********************************
w1=1.254
h1=0.1
ZZ=6.7
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=10
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第十变宽段
!********************************
w1=1.48
h1=0.1
ZZ=7.2
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=11
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
!********************************
!生成第十一变宽段
!********************************
w1=1.9
h1=0.1
ZZ=8.0
k,,w1,h1,ZZ,
k,,-w1,h1,ZZ,
k,,-w1,-h1,ZZ,
k,,w1,-h1,ZZ,   
yz=4
n=12
*do,I,53,56
l,I+yz*n,I+yz*(n-1)
*enddo
a,52+1+yz*n,52+2+yz*n,52+3+yz*n,52+yz*(n+1)
a,52+1+yz*(n-1),52+1+yz*n,52+yz*(n+1),52+n*yz
a,52+1+yz*(n-1),52+1+yz*n,52+2+yz*n,52+2+yz*(n-1)
a,52+2+yz*(n-1),52+2+yz*n,52+3+yz*n,52+3+yz*(n-1)
a,52+3+yz*(n-1),52+3+yz*n,52+yz*(n+1),52+n*yz
va,52+5*(n-2),57+5*(n-2),58+5*(n-2),59+5*(n-2),60+5*(n-2),61+5*(n-2)
vadd,all
csys,0
vgen,2,14,,,,-1.6,,,,0,!需要复制两次才可以
vsel,all
vsbv,1,2,sepo,,,
vsbv,3,14,sepo,,,
!********************************
!实体完成
!********************************
vatt,1,1,1
lsel,s,loc,z,8
lesize,all,0.1                  !指定扫体源划分方式
vsweep,1,294,293,,
wpcsys,-1
wpoffs,,0,,
wprota,,90,,
finish
/solu
antype,static
outer,basic,all
nsel,s,loc,z,0
d,all,all                   !施加节点约束
nsel,s,loc,z,8
nsel,r,loc,x,-3.6,-2.4
nsel,r,loc,y,-0.6,0.6
sf,all,pres,9.81E+06          !施加支座作用力
nsel,s,loc,z,8
nsel,r,loc,x,2.4,3.6
nsel,r,loc,y,-0.6,0.6
sf,all,pres,9.81E+06          !施加支座作用力
acel,,,9.81               !施加重力
allsel,all
solve

这是本人用ansys计算实体墩的命令流，希望大家多交流，提出宝贵意见。
               

blueesea 发表于 2009-11-12 13:38:40

楼主有没有上述Y型墩的图纸阿，能否发一个参考一下，我最近也在做Y型墩

santang 发表于 2009-11-13 10:59:31

这个要顶下！正在学……
感谢！

zmq3612 发表于 2009-11-13 14:40:09

用ansys建模分析的？

技术型工人 发表于 2009-11-27 11:10:12

只用MIDAS算过墩子，用ansys太大材小用了吧

sharman 发表于 2009-11-27 15:32:15

ansys 比较复杂看不懂！！

longbai1999 发表于 2010-1-5 12:32:58

正在学习中
不断学习在10年

查看完整版本: 实体墩计算总结