!III 级围岩，二维，全断面开挖 /cle /filname,ch-three-2D,1 !几何参数 !计算外围区域 *set,x 1,-60 *set,x 2,60 *set,y 1,-30 *set,y 2,50 *set,l1,3.5 !锚杆长度 *set,r1,0.0125 !锚杆半径 *set,th1,0.15 !初次衬砌厚度 *set,th2,0.05 !中导洞喷层厚 !材料参数 !中隔墙 *set,ec25,29.5e9 *set,u c25,0.2 *set,dens25,2500 !喷射混凝土 *set,ec20,21e9 *set,u c20,0.2 *set,dens20,2200 !锚杆 *set,el,170e9 *set,u l,0.3 *set,densl,7800 !围岩 *set,er,6e9 *set,u r,0.28 *set,densr,2500 *set,cr,0.8e6 *set,fir,40 /prep7 !定义单元类型 et,1,plane42 key opt,1,3,2 !平面应变问题 et,2,beam3 key opt,2,6,1 !打开输出内力选项 et,3,link1 !定义实常数 r,1,th1,th1/12,th1 r,2,th2,th2/12,th2 r,3,3.1415926*r1**2 !几何建模 !建中隔墙 k,1,-3,-1.69 k,2,-3,-0.89 k,3,-3,-0.37 k,4,-1.33552,-0.37 k,5,-0.95134,1.57593 k,6,-1.25121,3.53662 k,7,1.25121,3.53662 k,8,0.95134,1.57593 k,9,1.33552,-0.37 k,10,3,-0.37 k,11,3,-0.89 k,12,3,-1.69 l,1,2 l,2,3 l,3,4 lar c,4,6,5 lar c,6,7,5,3 lar c,7,9,8 l,9,10 l,10,11 l,11,12 l,12,1 !左侧围岩及锚杆圈 k,13,-3,0.81 k,14,-2.52524,2.42963 k,15,-1.483023,4.11778 k,16,-1.77650,4.67036 k,17,-2.058364,5.09399 k,18,-2.37658,5.49104 k,19,-2.734606,5.864085 k,20,-3.12567,6.20235 k,21,-5.88951,7.72342 k,22,-9,8.25 k,23,-12.11049,7.72342 k,24,-14.8743,6.20235 k,25,-16.57763,3.97894 k,26,-17.02812,1.21456 k,27,-16.9,-0.89 k,28,-20.4,-0.89 k,29,-20.51567,0.91966 k,30,-19.7906,5.36705 k,31,-17.05,8.944 k,32,-13.26253,11.02838 k,33,-9,11.75 k,34,-4.146154,10.80594 k,35,0,8.11142 k,36,1.143324,6.85081 !导洞左侧圈 l,3,13 larc,13,6,14 !左侧开挖圈 larc,6,16,15 larc,16,18,17 larc,18,20,19 larc,20,22,21 larc,22,24,23 larc,24,26,25 l,26,27 !锚杆圈 l,28,29 larc,29,31,30 larc,31,33,32 larc,33,35,34 l,35,36 !内圈线合并 lcomb,15,16 lcomb,15,17 lcomb,15,18 lcomb,15,19 !外圈线合并 lcomb,20,21 lcomb,20,22 lcomb,20,23 numcmp,all ldiv,14,,,2 ldiv,15,,,36 ldiv,16,,,36 ldiv,17,,,2 ...
