附錄：ANSYS命令流!BRB_1模型FINISH/CLEAR,ALL/FILNAME,BRB_1/TITLE,AnalysisforBRB_1/REPLOT/PREP7!屈曲約束支撐高度L=3000R1=92$T1=15R2=100$T2=8Ml=200!過渡段長度!芯材單元ET,l,SOLIDl85MP,EX,l,2.06E5$MP,PRXY,l,0.3!外套筒單元ET,2,SOLID45MP,EX,2,2.06E5$MP,PRXY,2,0.3!定義BRB截面TYPE,lMAT,lCYLIND,Rl-Tl,Rl,0,L,,!建立芯材截面,芯材厚度為l5mmTYPE,2MAT,2CYLIND,R2-T2,R2,Ml,L-Ml,,!建立外套筒截面,外套筒厚度為8mm!劃分網格VSEL,ALLESIZE,20VSWEEP,ALLALLSEL,ALL!定義芯材和外套筒接觸單元!*建立目標單元ET,3,TARGEl70!*建立接觸單元ET,4,CONTAl74MP,MU,4,0keyopt,4,1,0!選擇自由度ux,uy,uzkeyopt,4,2,0!接觸算法設為擴充的拉格朗日算法keyopt,4,4,0!在高斯點上搜索接觸對keyopt,4,5,3!不考慮初始節點閉合以及接觸面平移效應的自動調整keyopt,4,7,0!不進行單元水平上的時間增量控制keyopt,4,8,0!不進行非對稱接觸選擇keyopt,4,9,2!不考慮初始滲透或間隙效應keyopt,4,10,1!設置conta173的接觸剛度更新基于上一子步的平均應力keyopt,4,11,0!不計殼厚效應keyopt,4,12,2!標準的接觸面接觸行為!*建立目標面MP,MU,1,0定義接觸摩擦MP,MU,3,0TYPE,1MAT,1CSYS,1ASEL,S,LOC,X,R1CM,_TARGET,AREAtype,3NSLA,S,1ESLN,S,0esurf,all,ALLSEL,ALL!*建立接觸面CSYS,1TYPE,2MAT,2ASEL,S,LOC,X,R2-T2CM,_CONTACT,AREAtype,4NSLA,S,1ESLN,S,0esurf,all,ALLSEL,ALL!定義外套管的約束條件CSYS,1NSEL,S,LOC,X,R2D,ALL,UZ,0ALLSEL,ALL!定義芯材的約束條件CSYS,0NSEL,S,LOC,Z,0D,ALL,UX,0,,,,UY,UZALLSEL,ALLFINISH/SOLUANTYPE,STATICCSYS,0ASEL,S,LOC,Z,LSFA,ALL,,PRES,1,PSTRES,ONSOLVEFINISH/SOLUANTYPE,BUCKLEBUCOPT,LANB,5MXPAND,5,,,,YES,!設置求解輸出OUTPR,BASIC,ALL,OUTRES,ALL,ALL,SOLVEFINISH!畫出第一階振型圖/POST1SET,LISTSET,1,1$PLDISP!BRB_2模型FINISH/CLEAR,ALL/FILNAME,BRB_2/TITLE,AnalysisforBRB_2/REPLOT/PREP7!屈曲約束支撐高度L=3000R1=92$T1=15R2=100$T2=8Ml=200!過渡段長度T=10R3=88T3=ll!芯材單元ET,l,SOLIDl85MP,EX,l,2.06E5$MP,PRXY,l,0.3!外套筒單元ET,2,SOLID45MP,EX,2,2.06E5$MP,PRXY,2,0.3!定義BRB截面TYPE,lMAT,lCYLIND,Rl-Tl,Rl,0,L!芯材截面,芯材厚度為l5mmTYPE,2MAT,2CYLIND,R2-T2,R2,Ml,L-Ml,,!建立外套筒截面,外套筒厚度為8mm!劃分網格VSEL,ALLESIZE,20VSWEEP,ALLALLSEL,ALL!定義芯材和外套筒接觸單元!*建立目標單元ET,3,TARGEl70!*建立接觸單元ET,4,CONTAl74MP,MU,4,0keyopt,4,1,0!選擇自由度ux,uy,uzkeyopt,4,2,0!接觸算法設為擴充的拉格朗日算法!!定義芯材的約束條件!底部約束為固支CSYS,0NSEL,S,LOC,Z,0D,ALL,UX,0,,,,UY,UZALLSEL,ALL!芯材在外套筒外的約束徑向約束CSYS,1NSEL,S,LOC,X,R1CSYS,0NSEL,R,LOC,Z,0,M1,,D,ALL,UX,0,,,,UYCSYS,1NSEL,S,LOC,X,R1CSYS,0NSEL,R,LOC,Z,L-M1,L,,D,ALL,UX,0,,,,UYALLSEL,ALLFINISH/SOLUANTYPE,STATICPSTRES,ONCSYS,0ASEL,S,LOC,Z,LSFA,ALL,,PRES,1,SOLVEFINISH/SOLUANTYPE,BUCKLEBUCOPT,LANB,5MXPAND,5,,,,YES,!設置求解輸出OUTPR,BASIC,ALL,OUTRES,ALL,ALL,SOLVEFINISH!畫出第一階振型圖/POST1SET,LISTSET,1,1$PLDISPkeyopt,4,4,0!在高斯點上搜索接觸對keyopt,4,5,3!不考慮初始節點閉合以及接觸面平移效應的自動調整keyopt,4,7,0!不進行單元水平上的時間增量控制keyopt,4,8,0!不進行非對稱接觸選擇keyopt,4,9,2!不考慮初始滲透或間隙效應keyopt,4,10,l!設置contal73的接觸剛度更新基于上一子步的平均應力keyopt,4,11,0!不計殼厚效應keyopt,4,12,2!標準的接觸面接觸行為!*建立目標面MP,MU,1,0!定義接觸摩擦MP,MU,3,0TYPE,1MAT,1CSYS,1ASEL,S,LOC,X,R1CM,_TARGET,AREAtype,3NSLA,S,1ESLN,S,0esurf,all,ALLSEL,ALL!*建立接觸面CSYS,1T