VibInfo 发表于 2005-10-26 19:36

[分享]钢筋混凝土模拟计算

<DIV >是一个网友做过的例子,和大家分享! <BR>!题目:钢筋混凝土简支梁模拟计算 <BR>!方法:分离式;solid65和link8 <BR>!材料:混凝土采用concr和钢筋为弹性材料,但不考虑压碎 <BR>!--------------------------------------------------- <BR>!为方便,假定钢筋置于梁底两侧. <BR>!=================================================== <BR>/config,nres,2000 <BR>/prep7 <BR>!定义单元及其材料特性等 <BR>rd0=20.0 !钢筋直径 <BR>et,1,solid65 <BR>et,2,link8 <BR>mp,ex,1,33e3 <BR>mp,prxy,1,0.20 <BR>r,1 <BR>hntra=28 <BR>hntrl=2.6 <BR>tb,concr,1 <BR>tbdata,,0.7,1.0,hntrl,-1 <BR>mp,ex,2,2.1e5 <BR>mp,prxy,2,0.30 <BR>r,2,acos(-1)*0.25*rd0*rd0 <BR>!定义梁体即单元划分 <BR>blc4, , ,100,200,3000 <BR>/view,1,1,1,1 <BR>/ang,1 <BR>gplot <BR>!定义网分时边长控制 <BR>lsel,s,loc,z,1,2999 <BR>lsel,r,loc,y,0 <BR>latt,2,2,2 <BR>lesize,all,,,20 !钢筋网格数目 <BR>lmesh,all <BR>lsel,s,loc,z,0 <BR>lesize,all,,,4 !截面上的网格数目4x4 <BR>vsel,all <BR>vatt,1,1,1 <BR>mshape,0,3d <BR>mshkey,1 <BR>vmesh,all <BR>allsel,all <BR>finish <BR>/solu <BR>!施加约束 <BR>lsel,s,loc,z,0 <BR>lsel,r,loc,y,0 <BR>dl,all,,uy <BR>dl,all,,uz <BR>lsel,all <BR>lsel,s,loc,z,3000 <BR>lsel,r,loc,y,0 <BR>dl,all,,uy <BR>lsel,all <BR>ksel,s,loc,x,0 <BR>ksel,r,loc,y,0 <BR>dk,all,ux <BR>allsel,all <BR>!施加荷载 <BR>qmz=0.3 <BR>asel,s,loc,y,200 <BR>sfa,all,1,pres,qmz <BR>allsel,all <BR>nsubst,40 <BR>outres,all,all <BR>time,qmz*10 <BR>neqit,40 <BR>solve <BR>finish <BR>/post1 <BR>pldisp,1 <BR>etable,zxyl,ls,1 <BR>plls,zxyl,zxyl,1 <BR>finish <BR>/post26 <BR>nsol,2,33,u,y <BR>prod,3,1,,,,,,1/100 <BR>prod,4,2,,,,,,-1 <BR>xvar,4 <BR>plvar,3</DIV>

sysh320 发表于 2006-4-3 19:40

试试

conman 发表于 2017-12-16 21:52

怎么这么的乱
页: [1]
查看完整版本: [分享]钢筋混凝土模拟计算