资源描述
贴一个用降温法模拟预应力的例子，这个例子中的预应力钢筋为一条直线 /prep7 egjx=2e11 agjx=60e-4 ehnt=3.5e10 xzxs=1.2e-5 yjl=200000 et,1,link8 et,2,solid95 r,1,agjx r,2 mp,ex,1,egjx mp,prxy,1,0.3 mp,dens,1,7800 mp,alpx,1,xzxs mp,ex,2,ehnt mp,prxy,2,0.1667 mp,dens,2,2500 BLC4,0,0,1,2,30 /VIEW, 1 ,1,1,1 /ANG, 1 KWPAVE,6 wpoff,-0.3 wprot,0,0,90 vsbw,1 wpoff,0,0,-0.4 vsbw,2 wpoff,0,0.4 wprot,0,90 vsbw,all nummrg,all,low numcmp,all esize,0.3 lsel,s,28,38,10 latt,1,1,1 lmesh,all allsel,all gplot vsel,s,all vatt,2,2,2 MSHAPE,0,3d MSHKEY1 vmesh,all finish /SOLU dl,3,all dl,16,all dl,23,all dl,2,uy dl,15,uy dl,22,uy bfl,28,temp广yjl/(xzxs*egjx*agjx) bfl,38,temp广yjl/(xzxs*egjx*agjx) allsel acel,9.8 solve finish /post1 pldisp pln! !* 通过面与面的切割生成横向力筋! !记录最大线数及面号ALLSEL,ALL *GET,LINE0,LINE,0,NUM,MAX *GET,AREA0,AREA,0,NUM,MAX !*横向力筋平面 *GET,KPMAX11,KP0,NUM,MAX *GET,LINE1,LINE,0,NUM,MAX *GET,AHPAREA,0,NUM,MAX K,KPMAX11+1,9.4,5.42,100 K,KPMAX11+2,0.3,5.555,100 K,KPMAX11+3广0.3,5.555,100 K,KPMAX11+4广9.4,5.42,100 L, KPMAX11+1,KPMAX11+2 LARC,KPMAX11+2,KPMAX11+3,KPMAX11+1,20 L,KPMAX11+3,KPMAX11+4 *GET,LINE2,LINE,0,NUM,MAX LSEL,S,LINE,LINE1+1,LINE2 LCOMB,ALL *GET,LINE3,LINE,0,NUM,MAX *GET,KPMAX22,KP0,NUM,MAX K,KPMAX22+1,9.4,5.42,-100 L, KPMAX11+1,KPMAX22+1 ADRAG,LINE3,LINE3+1 !*横向力筋立面 *GET,KPMAX11,KP0,NUM,MAX *GET,LINE1,LINE,0,NUM,MAX *GET,AHL,AREA,0,NUM,MAX K,KPMAX11+1,9.4,-10,-0.25 K,KPMAX11+2,-9.4,-10,-0.25 L,KPMAX11+1,KPMAX11+2 K,KPMAX11+3,9.4,10,-0.25 L,KPMAX11+1,KPMAX11+3 ADRAG,LINE1+1LINE1+2 AGEN,27,AHL+1,0,0,-0.5 ! !* 切割生成横向力筋!！ !生成底板力筋一按纵向排列，从-0.25m到-13.5m，共27根ASBA,AHL+1,AHP+1,DELETE,KEEP !生成 H1 力筋 ASBA,AHL+2,AHP+1,DELETE,KEEP !生成 H2 力筋 ASBA,AHL+3,AHP+1,DELETE,KEEP !生成 H3 力筋 ASBA,AHL+4,AHP+1,DELETE,KEEP !生成 H4 力筋 ASBA,AHL+5,AHP+1,DELETE,KEEP !生成 H5 力筋 ASBA,AHL+6,AHP+1,DELETE,KEEP !生成 H6 力筋 ASBA,AHL+7,AHP+1,DELETE,KEEP !生成 H7 力筋 ASBA,AHL+8,AHP+1,DELETE,KEEP !生成 H8 力筋 ASBA,AHL+9,AHP+1,DELETE,KEEP !生成 H9 力筋 ASBA,AHL+10,AHP+1,DELETE,KEEP !生成 H10 力筋 ASBA,AHL+11,AHP+1,DELETE,KEEP !生成 H11 力筋 ASBA,AHL+12,AHP+1,DELETE,KEEP !生成 H12 力筋 ASBA,AHL+13,AHP+1,DELETE,KEEP !生成 H13 力筋 ASBA,AHL+14,AHP+1,DELETE,KEEP !生成 H14 力筋 ASBA,AHL+15,AHP+1,DELETE,KEEP !生成 H15 力筋 ASBA,AHL+16,AHP+1,DELETE,KEEP !生成 H16 力筋 ASBA,AHL+17,AHP+1,DELETE,KEEP !生成 H17 力筋 ASBA,AHL+18,AHP+1,DELETE,KEEP !生成 H18 力筋 ASBA,AHL+19,AHP+1,DELETE,KEEP !生成 H19 力筋 ASBA,AHL+20,AHP+1,DELETE,KEEP !生成 H20 力筋 ASBA,AHL+21,AHP+1,DELETE,KEEP !生成 H21 力筋 ASBA,AHL+22,AHP+1,DELETE,KEEP !生成 H22 力筋 ASBA,AHL+23,AHP+1,DELETE,KEEP !生成 H23 力筋 ASBA,AHL+24,AHP+1,DELETE,KEEP !生成 H24 力筋 ASBA,AHL+25,AHP+1,DELETE,KEEP !生成 H25 力筋 ASBA,AHL+26,AHP+1,DELETE,KEEP !生成 H26 力筋 ASBA,AHL+27,AHP+1,DELETE,DELETE !生成 H27 力筋 !记录最大线数及面号ALLSEL,ALL *GET,LINE1,LINE,0,NUM,MAX *GET,AREA1,AREA,0,NUM,MAX ! !* 整理图形!！ ASEL,S,AREAAREA0+1,AREA1 ADELE,ALL ALLSEL,ALL LSEL,S,LOC,Y-10 LSEL,A,LOC,Y10 LSEL,R,LINE,LINE0+1,LINE1 LDELE,ALL ALLSEL,ALL LSEL,S,LOC, Z,-100 LSEL,A,LOC, Z,100 LSEL,R,LINELINE0+1,LINE1 LDELE,ALL ALLSEL,ALL LSEL,S,LOC,X,-9.4 LSEL,A,LOC,X,9.4 LSEL,R,LINE,LINE0+1,LINE1 LDELE,ALL ALLSEL,ALL LPLOT LSEL,S,LINE,LINE0+1,LINE1 NUMCMWNE ALLSEL,ALL /*DO,I,1,27 LSEL,S,LOC,Y5.42,5.6 LSEL,R,LOC, Z,-0.25-0.5*(I-1) LSEL,R,LINE,LINE0+1,LINE0+27 *GET,LJNUM(56+I),LINE,0,NUM,MAX *ENDDO !定义力筋属性*DO,I,1,27 LSEL,S,LINELJNUM(56+I) LATT,3,13,3 *ENDDO ALLSEL,ALL !划分横向力筋单元LSEL,S,LINELINE0+1,LINE0+27 LESIZE,ALL,50 LMESH,ALL 这是我做的一段命令流，就是用面切线做的sol,s,1
展开阅读全文