装配式混凝土柱钢梁节点ANSYS命令流.doc
,.finish$/clear$/config,fsplit,750$/prep7!定义材料!下面定义材料 1，Q235A型钢钢材!mp,ex,1,2.1e11$mp,prxy,1,0.3$mp,dens,1,7850 tb,bkin,1tbdata,268.85e6,0!下面定义材料 9，Q235A型钢钢材!mp,ex,3,2.1e11$mp,prxy,3,0.3$mp,dens,3,7850 tb,bkin,3$tbdata,235e6,0!下面定义材料 2,混凝土C40!fck=26*0.85*0.8e6$ftk=2.3e6mp,ex,2,fck*0.44/0.0005$mp,prxy,2,0.2$mp,dens,2,2600tb,concr,2$tbdata,0.125,0.7,FTK,-1tb,mkin,2$tbtemp,strain ! 混凝土屈服准则Tbdata,1,0.0005,0.001,0.0015,0.002,0.0038$tbtemp,0$Tbdata,1,0.44*fck,0.75*fck,0.94*fck,fck,0.85*fck !混凝土应力应变曲线!下面定义材料 4,纵钢筋直径20!mp,ex,4,2.1e11$mp,prxy,4,0.3$mp,dens,4,7850tb,bkin,4tbdata,365e6,0!下面定义材料7,箍筋直径8!mp,ex,5,2.1e11$mp,prxy,5,0.3$mp,dens,5,7850tb,bkin,5tbdata,243e6,0!定义实常数!Pi=acos(-1)$ r,1$ r,2$ r,3,0.25*pi*0.020*0.020r,4,0.25*pi*0.008*0.008 R,5!定义单元!et,1,solid45$et,2,solid65$et,3,LINK8 keyopt,2,7,1$keyopt,2,1,1$keyopt,2,3,2!建模型!柱子wpstyl,defa$Block,-0.2,0.2,-1.5,1.5,0,0.2cm,zhuzi,volu!工字钢vsel,none$wpstyl,defa$block,-2,2,-0.125,0.125,0,0.003$block,-2,2,0.125-0.015,0.125,0,0.078$block,-2,2,-0.125,-0.125+0.015,0,0.078$wpstyl,defa$wpoff,-0.2$block,0,0.010,-0.125,0.125,0,0.078$wpstyl,defa$wpoff,0.2$block,-0.010,0,-0.125,0.125,0,0.078$wpstyl,defa$wpoff,0.125-0.015$block,-0.075,0.075,0,1.5-0.125+0.015,0,0.003$block,-0.075,-0.075+0.008,0,1.39,0,0.078$block,0.075-0.008,0.075,0,1.39,0,0.078$wpstyl,defa$wpoff,-0.125+0.015$block,-0.075,0.075,-1.39,0,0,0.003$block,-0.075,-0.075+0.008,-1.39,0,0,0.078$block,0.075-0.008,0.075,-1.39,0,0,0.078$wpstyl,defa$wpoff,-0.125+0.015$block,-0.2,0.2,-0.06-0.015,0,0,0.003$wpstyl,defa$wpoff,0.125-0.015$block,-0.2,0.2,0,0.060+0.015,0,0.003$wpstyl,defa$wpoff,-0.2$block,0,0.010,0.125,0.125+0.06,0,0.2$wpstyl,defa$wpoff,0.2$block,-0.010,0,0.125,0.125+0.06,0,0.2$wpstyl,defa$wpoff,-0.2$block,0,0.010,-0.125-0.06,-0.125,0,0.2$wpstyl,defa$wpoff,0.2$block,-0.010,0,-0.125-0.06,-0.125,0,0.2$wpstyl,defa$wpoff,-0.125$wpoff,0.2$block,-0.2,0.2,-0.06,0,-0.010,0$wpstyl,defa$wpoff,0.125$wpoff,0.2$block,-0.2,0.2,0,0.06,-0.010,0$wpstyl,defa$wpoff,-0.2$block,0,0.010,-0.11,0.11,0,0.2$wpstyl,defa$wpoff,0.2$block,-0.010,0,-0.11,0.11,0,0.2$wpstyl,defa$wpoff,0.2$block,-0.2,0.2,-0.11,0.11,-0.010,0$Nummrg,kp$vptn,all$cm,gzg,volu$numcmp,all$allsel,all$vptn,all$allsel,allVsel,u,gzgCm,zhuzi,volu!切分gzgCmsel,s,gzg,volu$Nummrg,kp$!画纵筋$wpstyl,defa$wpoff,0.2$wpoff,0.160$vsbw,all$wpstyl,defa$wpoff,0.160$wprota,90$ vsbw,all$wpstyl,defa$wpoff,-0.16$wprota,90$ vsbw,all$wpstyl,defa$wpoff,0.110$wprota,90$ vsbw,all$wpstyl,defa$wpoff,-0.11$wprota,90$ vsbw,all$wpstyl,defa$wpoff,0.2$wpoff,0.078$vsbw,all$numcmp,all!画箍筋$wpstyl,defa$wprota,90 $wpoff,0.04$vsbw,all$wpoff,0.070$vsbw,all$wpoff,0.015$vsbw,all$wpoff,0.030$vsbw,all$wpoff,0.045$vsbw,all$wpoff,0.05$vsbw,all$*do,i,1,12,1$wpoff,0.10$vsbw,all$*enddo$wpstyl,defa$wprota,-90 $wpoff,0.04$vsbw,all$wpoff,0.070$vsbw,all$wpoff,0.015$vsbw,all$wpoff,0.030$vsbw,all$wpoff,0.045$vsbw,all$wpoff,0.05$vsbw,all$*do,i,1,12,1$wpoff,0.10$vsbw,all$*enddo$wpstyl,defa$wprota,90$wpoff,0.075-0.008$vsbw,all$wpoff,0.008$vsbw,all $wpstyl,defa$wprota,-90$wpoff,0.075-0.008$vsbw,all$wpoff,0.008$vsbw,all$wpstyl,defa$wpoff,0.003$vsbw,all$wpstyl,defa$wpoff,0.078$vsbw,all$wpstyl,defa$wprota,90$vsbw,all$wpstyl,defa$wprota,90 $wpoff,0.125+0.06$vsbw,all$wpstyl,defa$wprota,-90 $wpoff,0.125+0.06$vsbw,all$numcmp,allcm,gzg,volu!切分柱cmsel,s,zhuzi,volu$!画纵筋$wpstyl,defa$wpoff,0.2$wpoff,0.160$vsbw,all$wpstyl,defa$wpoff,0.160$wprota,90$ vsbw,all$wpstyl,defa$wpoff,-0.16$wprota,90$ vsbw,all$wpstyl,defa$wpoff,0.110$wprota,90$ vsbw,all$wpstyl,defa$wpoff,-0.11$wprota,90$ vsbw,all$wpstyl,defa$wpoff,0.078$vsbw,all$numcmp,all!画箍筋$wpstyl,defa$wprota,90 $wpoff,0.04$vsbw,all$wpoff,0.070$vsbw,all$wpoff,0.015$vsbw,all$wpoff,0.030$vsbw,all$wpoff,0.045$vsbw,all$wpoff,0.05$vsbw,all$*do,i,1,12,1$wpoff,0.10$vsbw,all$*enddo$wpstyl,defa$wprota,-90 $wpoff,0.04$vsbw,all$wpoff,0.070$vsbw,all$wpoff,0.015$vsbw,all$wpoff,0.030$vsbw,all$wpoff,0.045$vsbw,all$wpoff,0.05$vsbw,all$*do,i,1,12,1$wpoff,0.10$vsbw,all$*enddo$wpstyl,defa$wprota,90$wpoff,0.075-0.008$vsbw,all$wpoff,0.008$vsbw,all $wpstyl,defa$wprota,-90$wpoff,0.075-0.008$vsbw,all$wpoff,0.008$vsbw,all$wpstyl,defa$wpoff,0.003$vsbw,all$wpstyl,defa$wprota,90$vsbw,all$wpstyl,defa$wpoff,0.2-0.01$wprota,90$ vsbw,all$wpstyl,defa$wpoff,-0.2+0.01$wprota,90$ vsbw,all$wpstyl,defa$wpoff,0.2$wpoff,0.2-0.01$vsbw,all$wpstyl,defa$wprota,90 $wpoff,0.125+0.06$vsbw,all$wpstyl,defa$wprota,-90 $wpoff,0.125+0.06$vsbw,all$numcmp,allcm,zhuzi,volu!赋钢筋单元属性并划分网格!elemsiz=50e-3 lsel,s,loc,x,-0.16$lsel,r,loc,z,0.078$cm,waizj1,line$latt,4,3,3,0$lesize,all,elemsiz lsel,s,loc,x,-0.16$lsel,r,loc,z,0.16$cm,waizj2,line$latt,4,3,3,0$lesize,all,elemsiz lsel,s,loc,x,-0.11$lsel,r,loc,z,0.16$cm,waizj3,line$latt,4,3,3,0$lesize,all,elemsizlsel,s,loc,x,0.16$lsel,r,loc,z,0.078$cm,ywaizj1,line$latt,4,3,3,0$lesize,all,elemsiz lsel,s,loc,x,0.16$lsel,r,loc,z,0.16$cm,ywaizj2,line$latt,4,3,3,0$lesize,all,elemsiz lsel,s,loc,x,0.11$lsel,r,loc,z,0.16$cm,ywaizj3,line$latt,4,3,3,0$lesize,all,elemsiz $cmsel,s,waizj1,line$cmsel,a,waizj2,line$cmsel,a,waizj3,line$cmsel,a,ywaizj1,line$cmsel,a,ywaizj2,line$cmsel,a,ywaizj3,line$cm,zj,line !节点外域箍筋lsel,s,tan1,y !对称外定义箍筋$lsel,u,loc,x,-2.25,-0.161$lsel,u,loc,x, 0.161,2.25$lsel,u,loc,y,0.125-0.015$lsel,u,loc,y,-0.125+0.015$lsel,u,loc,y,-0.295,0.295$lsel,u,loc,y,-0.125-0.06$lsel,u,loc,y,0.125+0.06$lsel,u,loc,y,1.5$lsel,u,loc,y,-1.5$lsel,r,loc,z,0,0.16$lsel,r,loc,x,-0.16$cm,sgj1,line$lsel,s,tan1,y !对称外定义箍筋$lsel,u,loc,x,-2.25,-0.161$lsel,u,loc,x, 0.161,2.25$lsel,u,loc,y,0.125-0.015$lsel,u,loc,y,-0.125+0.015$lsel,u,loc,y,-0.295,0.295$lsel,u,loc,y,1.5$lsel,u,loc,y,-1.5$lsel,u,loc,y,-0.125-0.06$lsel,u,loc,y,0.125+0.06$lsel,r,loc,z,0,0.16$lsel,r,loc,x,0.16$cm,sgj2,line$lsel,s,tan1,y !对称外定义箍筋$lsel,u,loc,x,-2.25,-0.161$lsel,u,loc,x, 0.161,2.25$lsel,u,loc,y,0.125-0.015$lsel,u,loc,y,-0.125+0.015$lsel,u,loc,y,-0.295,0.295$lsel,u,loc,y,-0.125-0.06$lsel,u,loc,y,0.125+0.06$lsel,u,loc,y,1.5$lsel,u,loc,y,-1.5$lsel,r,loc,z,0.16$cm,sgj3,line$lsel,s,tan1,y !对称外定义箍筋$lsel,u,loc,x,-2.25,-0.161$lsel,u,loc,x, 0.161,2.25$lsel,u,loc,y,0.125-0.015$lsel,u,loc,y,-0.125+0.015$lsel,u,loc,y,-0.295,0.295$lsel,u,loc,y,-0.125-0.06$lsel,u,loc,y,0.125+0.06$lsel,u,loc,y,1.5$lsel,u,loc,y,-1.5$Lsel,r,loc,z,0.078$cm,sgj4,line$cmsel,s,sgj1,line$cmsel,a,sgj2,line$cmsel,a,sgj3,line$cmsel,a,sgj4,line$cm,guj1,line$ !节点区域箍筋!节点区域上下四肢箍箍筋lsel,s,tan1,y !对称外定义箍筋$lsel,u,loc,x,-2.25,-0.161$lsel,u,loc,x, 0.161,2.25$lsel,u,loc,y,0.125-0.015$lsel,u,loc,y,-0.125+0.015$lsel,u,loc,y,-0.125-0.06$lsel,u,loc,y,0.125+0.06$lsel,u,loc,y,-0.095,0.095$lsel,u,loc,y,0.251,1.5$lsel,u,loc,y,-1.5,-0.251$lsel,u,loc,y, 0.125$lsel,u,loc,y,-0.125$Lsel,r,loc,z,0.16$cm,ssgj1,line$lsel,s,tan1,y !对称外定义箍筋$lsel,u,loc,x,-2.25,-0.161$lsel,u,loc,x, 0.161,2.25$lsel,u,loc,y,0.125-0.015$lsel,u,loc,y,-0.125+0.015$lsel,u,loc,y,-0.125-0.06$lsel,u,loc,y,0.125+0.06$lsel,u,loc,y,-0.095,0.095$lsel,u,loc,y,0.251,1.5$lsel,u,loc,y,-1.5,-0.251$lsel,u,loc,y, 0.125$lsel,u,loc,y,-0.125$Lsel,r,loc,z,0.078$cm,ssgj2,line$lsel,s,tan1,y !对称外定义箍筋$lsel,u,loc,x,-2.25,-0.161$lsel,u,loc,x, 0.161,2.25$lsel,u,loc,y,0.125-0.015$lsel,u,loc,y,-0.125+0.015$lsel,u,loc,y,-0.095,0.095$lsel,u,loc,y,0.251,1.5$lsel,u,loc,y,-1.5,-0.251$lsel,u,loc,y,-0.125-0.06$lsel,u,loc,y,0.125+0.06$lsel,u,loc,y, 0.125$lsel,u,loc,y,-0.125$Lsel,r,loc,x,-0.16$Lsel,r,loc,z,0,0.16$cm,ssgj3,line$lsel,s,tan1,y !对称外定义箍筋$lsel,u,loc,x,-2.25,-0.161$lsel,u,loc,x, 0.161,2.25$lsel,u,loc,y,0.125-0.015$lsel,u,loc,y,-0.125+0.015$lsel,u,loc,y,-0.125-0.06$lsel,u,loc,y,0.125+0.06$lsel,u,loc,y,-0.095,0.095$lsel,u,loc,y,0.251,1.5$lsel,u,loc,y,-1.5,-0.251$lsel,u,loc,y, 0.125$lsel,u,loc,y,-0.125$Lsel,r,loc,x,0.16$Lsel,r,loc,z,0,0.16$cm,ssgj4,line$cmsel,s,ssgj1,line$cmsel,a,ssgj2,line$cmsel,a,ssgj3,line$cmsel,a,ssgj4,line$cm,guj3,line$cmsel,s,guj1,line$cmsel,a,guj3,line$cm,guj,line$latt,5,4,3,0$lesize,all,elemsiz$cmsel,s,guj,line$cmsel,a,zj,line$cm,gj,lineCmsel,s,gzg,volu$VSEL,r,LOC,Y,-0.125+0.015,0.125-0.015$VSEL,r,LOC,z,0,0.003$cm,fb,VOLUCmsel,s,gzg,volu$VSEL,u,LOC,Y,-0.125,0.125$cm,GZhu,VOLUCmsel,s,gzg,volu$cmSEL,U,fb,VOLU$VSEL,r,LOC,Y,-0.125+0.015,0.125-0.015$cm,mianban,VOLUCmsel,s,gzg,volu$cmSEL,U,fb,VOLU$cmSEL,U,gzhu,VOLU$cmSEL,U,mianban,VOLU$cm,yy,VOLU! Mesh钢筋! cmsel,s,gj,line$lmesh,all $lsel,all$/eshape,1$eplot !钢筋划分完毕! mesh 钢筋混凝土柱! !Cmsel,s,zhuzi,volu $esize,50e-3$vatt,2,1,2,0$MSHAPE,0,3D$MSHKEY,1$VMESH,allallsel,all! Mesh 翼缘!Cmsel,s,yy,volu$LSEL,s,length,1.8LESIZE,all, , ,12vatt,1,1,1,0$esize,50e-3$MSHAPE,0,3D$MSHKEY,1$VMESH,all$allsel,all! Mesh fb!Cmsel,s,fb,volu$vatt,1,1,1,0$esize,50e-3$MSHAPE,0,3D$MSHKEY,1$VMESH,all$allsel,all! Mesh mianban gzhu!Cmsel,s,mianban,volu$Cmsel,a,gzhu,volu$vatt,3,5,1,0$esize,50e-3$MSHAPE,0,3D$MSHKEY,1$VMESH,all$allsel,all$nummrg,node$numcmp,all!定义远距离加载点$ET,4,TARGE170ET,5,CONTA174 R,6keyopt,4,2,1$keyopt,5,2,2$keyopt,5,4,2$keyopt,5,12,5asel,s,loc,x,2$nsla,s,1$real,6$type,5$esurfnmax=ndinqr(0,14)+1$n,nmax,2,type,4$tshap,pilo$e,nmaxR,7keyopt,4,2,1$keyopt,5,2,2$keyopt,5,4,2$keyopt,5,12,5asel,s,loc,x,-2$nsla,s,1$real,7$type,5$esurfnmax=ndinqr(0,14)+1$n,nmax,-2,type,4$tshap,pilo$e,nmaxR,8keyopt,4,2,1$keyopt,5,2,2$keyopt,5,4,2$keyopt,5,12,5asel,s,loc,y,1.5$nsla,s,1$real,8$type,5$esurfnmax=ndinqr(0,14)+1$n,nmax,0,1.5,type,4$tshap,pilo$e,nmaxAllsel,all!施加约束和荷载Allsel,allAsel,s,loc,z,0Da,all,symm$D,8665,uy,uz$D,8666,uy,uz$Asel,s,loc,y,-1.5Da,all,allAllsel,all/solu$ANTYPE,0$OUTRES,ALL,ALL$pred,off $neqit,30$lnsrch,on$nlgenom,off$Cnvtol,f,0.05$kbc,0$eqslv,sparse,1.0E-5,2 $p=0.01$time,1$nsubst,50,10$Asel,s,loc,y,1.5f,8667,fy,-582000$allsel,all$OUTRES,ALL,ALL $ALLSEL,ALL $LSWRITE,1TIME,2$D,8667,Ux,19*p$kbc,0$ NSUBST,100,1000000,1$AUTOTS,on$OUTRES,ALL,ALL $ALLSEL,ALL $LSWRITE,2$Lssolve,1,2$save$finish/post1SET,LAST$SET,PREVIOUS*GET,RTIME,ACTIVE,0,SET,TIME !获取最终收敛时间Pldisp$plnsol,s,x !显示变形图与X方向应力分布图Plnsol,epel,x !X弹性应变分布图Plnsol,eppl,x !x塑性应变分布图Plnsol,epto,x !X方向总应变分布图Plnsol,nl,srat !显示塑性区域/device,vector,off$plcrack,Cmsel,s,gzgEslv,s/POST26nsel,s,loc,x,0.975NUMVAR,200$NSOL,2,8667,U,x$nsel,s,loc,y,-1.55$RFORCE,3,8667,F,x cmsel,s,gj,line$Esll,s$/output,Z1,csv$prod,4,2,1000$Prod,5,3,1/1000PRVAR,4,5! 钢梁应力的显示/post1$Cmsel,s,gzg$cmsel,a,FUBAN$vsel,r,loc,z,0,0.0045$vsel,r,loc,y,-0.125+0.006,0.125-0.006$vsel,r,loc,x,-0.175,0.175$eslv,s$nsle,splnsol,s,eqvPlnsol,epel,x !X弹性应变分布图Plnsol,eppl,x !x塑性应变分布图Plesol,epto,1 !X方向总应变分布图/post1$Cmsel,s,gzg$eslv,s$nsle,s$plnsol,s,eqv/post1$Cmsel,s,zhuzi$eslv,s$nsle,splnsol,s,eqv$Cmsel,s,zhuzi$cmsel,a,FUBAN$vsel,r,loc,z,0,0.0045$vsel,r,loc,y,-0.125+0.006,0.125-0.006$vsel,r,loc,x,-0.175,0.175$eslv,s$nsle,splesol,s,eqv/post1$Cmsel,s,zhuzi$eslv,s$nsle,splnsol,s,eqv/post1SET,LAST$SET,PREVIOUS*GET,RTIME,ACTIVE,0,SET,TIME !获取最终收敛时间Pldisp$plnsol,s,x !显示变形图与X方向应力分布图Plnsol,epel,x !X弹性应变分布图Plnsol,eppl,x !x塑性应变分布图Plnsol,epto,eqv !X方向总应变分布图Plnsol,nl,srat !显示塑性区域/post1Cmsel,s,gj$esll,sETABLE,rebar,ls,1 PLETAB,rebar/post1$wpstyl,defa$path,23,2,30,120$ppath,1,0.185,0.125,0$ppath,2,0.975,0.125,0pdef,myseqv,s,eqv$pdef,mysy,s,1plpath,myseqv,mysyPLPAGM,myseqv,1,blankPLPAGM,myseqv,1,nodeprpath,myseqv,xg,yg,zg/device,vector,on$plcrack,Cmsel,s,gzgEslv,s/POST26nsel,s,loc,x,0.975NUMVAR,200$NSOL,2,9989,U,Y$nsel,s,loc,y,-1.55$RFORCE,3,9989,F,Y/output,Z1,csv$prod,4,2,-1000$Prod,5,3,-1/1000PRVAR,4,5/POST26nsel,s,loc,x,0.975NUMVAR,200$NSOL,6,10678,U,Y$nsel,s,loc,y,-1.55$RFORCE,7,10678,F,Y/output,Z2,csv$prod,8,6,1000$Prod,9,7,1/1000PRVAR,8,9!后处理阶段/post1SET,LAST$SET,PREVIOUS*GET,RTIME,ACTIVE,0,SET,TIME !获取最终收敛时间Pldisp$plnsol,s,x !显示变形图与X方向应力分布图Plnsol,epel,x !X弹性应变分布图Plnsol,eppl,x !x塑性应变分布图Plnsol,epto,eqv !X方向总应变分布图Plnsol,nl,srat !显示塑性区域esel,s,type,2cmsel,s,gj,line$esll,sETABLE,rebar,ls,1 PLETAB,rebar!混凝土裂缝的显示!外混凝土$Cmsel,s,zhuzi,$vsel,r,loc,z,0.0625+0.001,0.175$vsel,r,loc,y,-0.125+0.006,0.125-0.006$eslv,s$/dscale,off$/device,vector,on$plcrack,1,1 !第一条裂纹!内混凝土$Cmsel,s,zhuzi$vsel,r,loc,z,0,0.0625$vsel,r,loc,y,-0.125+0.006,0.125-0.006$eslv,s$/dscale,off$/device,vector,on$plcrack/post1!混凝土应力的显示$/gformat,defa !恢复缺省格式$Cmsel,s,zhuzi$eslv,s$plnsol,s,1 !主应力$Cmsel,s,zhuzi$eslv,s$plnsol,s,3 !最大压应力$Cmsel,s,zhuzi$eslv,s$plnsol,s,eqv !等效应力$Cmsel,s,gzg$Cmsel,a,fb$eslv,s$plnsol,s,eqv/post1!内混凝土矢量图$Cmsel,s,zhuzi,$vsel,r,loc,z,0,0.0625$vsel,r,loc,y,-0.125+0.006,0.125-0.006$eslv,s$/device,vector,off$/dscale,off$plnsol,s,eqv$Plvect,u$Plvect,s$/vscale,1$plvect,s,vect !调整箭头大小$/gline,-1$plvect,s,vect ! 取消单元边界$/dscale,off$plnsol,s,1 !关闭结构变形$/dscale,defas$/gline,1 !恢复变形比例缺省，显示单元边界$/Device,vector,1 !设置矢量显示模式$/clabel,5 !设置等高线上的文字间隔$/contour,18,-16,500 !设置等高线数目$Plnsol,s,x！外混凝土矢量图$Cmsel,s,zhuzi,$vsel,r,loc,z,0.0625+0.001,0.175$vsel,r,loc,y,-0.125+0.006,0.125-0.006$eslv,s$/device,vector,off$/dscale,off$plesol,s,3$Plvect,u$Plvect,s$/vscale,1$plvect,s,vect !调整箭头大小$/gline,-1$plvect,s,vect ! 取消单元边界$/dscale,off$plnsol,s,1 !关闭结构变形$/dscale,defas$/gline,1 !恢复变形比例缺省，显示单元边界$/Device,vector,1 !设置矢量显示模式$/clabel,5 !设置等高线上的文字间隔$/co
