倾斜产状直墙半圆拱快速建立Flac3D代码+U型刚+锚杆索支护.docx

现在我将全部倾斜产状直墙半圆拱快速建立模型代码和U型刚支护、锚网索支护代码一起提供给大家，方便大家学习。成果图如下所示。@GodPrays 可以给我提建议交流 ;下面是建立模型的代码---------------------------------------------------------------------- newset log onset logfile Log-moxing.dat;@GodPrays hpucumt 我研究生期间的一点点小成果，跟大家分享，回馈论坛;首先建立中间巷道，以巷道中线为原点define BaseParameter tunnel_Rad=2.7 ;巷道半径2.7m angle=20*degrad ;岩层倾角20度 Length_x=60 ;x方向长度 Length_y=10 ;y方向长度 Length_z=60 ;z方向长度 z_tunnel_top=28.2 ;巷道中心线上部z的厚度28.2mz_tunnel_bottom=31.8 ;巷道中心线下部z的厚度31.8m wall=1.8 ;墙高1.8m side=2.3 ;帮部外扩长度 top=1.3 ;顶部外扩长度 zlsy_top=12 ;巷道中心线至上部分中粒砂岩厚度12m zlsy_bottom=8 ;巷道中心线至下部分中粒砂岩厚度8m coal_top=3.4 ;二1煤上部分厚度3.4m jiagan=1 ;夹矸厚度1m coal_bottom=4.6 ;二1煤下部分厚度4.6mendBaseParameter;++++++++++++++++++++++++巷道周边中粒砂岩+++++++++++++++++++++++++++++;右半圆坐标define RightSemicircle_Coordinates x0=0 y0=0 z0=0 x1=tunnel_Rad+side y1=0 z1=side*tan(angle) x2=0 y2=Length_Y z2=0 x3=0 y3=0 z3=tunnel_Rad+top x4=tunnel_Rad+side y4=Length_Y z4=side*tan(angle) x5=0 y5=Length_Y z5=tunnel_Rad+top x6=tunnel_Rad+side y6=0 z6=(tunnel_Rad+top)+((tunnel_Rad+side)*tan(angle)) x7=tunnel_Rad+side y7=Length_Y z7=(tunnel_Rad+top)+((tunnel_Rad+side)*tan(angle)) x8=tunnel_Rad y8=0 z8=0 x9=0 y9=0 z9=tunnel_Rad x10=tunnel_Rad y10=Length_Y z10=0 x11=0 y11=Length_Y z11=tunnel_Radend;左半圆坐标define LeftSemicircle_Coordinates x0=0 y0=0 z0=0 x1=0 y1=0 z1=tunnel_Rad+top x2=0 y2=Length_Y z2=0 x3=-1*(tunnel_Rad+side) y3=0 z3=-1*side*tan(angle) x4=0 y4=Length_Y z4=tunnel_Rad+top x5=-1*(tunnel_Rad+side) y5=Length_Y z5=-1*side*tan(angle) x6=-1*(tunnel_Rad+side) y6=0 z6=(tunnel_Rad+top)-((tunnel_Rad+side)*tan(angle)) x7=-1*(tunnel_Rad+side) y7=Length_Y z7=(tunnel_Rad+top)-((tunnel_Rad+side)*tan(angle)) x8=0 y8=0 z8=tunnel_Rad x9=-1*tunnel_Rad y9=0 z9=0 x10=0 y10=Length_Y z10=tunnel_Rad x11=-1*tunnel_Rad y11=Length_Y z11=0end;巷道下部墙define tunnel_wall x0=-1