[求助]FLAC3D 自己编的巷道支护例子 如何使用循环语句简化 [复制链接]

只有y改变，安装n次锚杆
;安装锚杆
sel cable id 1 begin 4.9 0 -2 end 6.8 0 -3.2 nseg 3
sel cable id 1 begin -4.9 0 -2 end -6.8 0 -3.2 nseg 3
sel cable id 1 begin 0 0 3 end 0 0 5 nseg 3
sel cable id 1 begin 4.9 0 -1.2 end 7 0 -1.2 nseg 3
sel cable id 1 begin -4.9 0 -1.2 end -7 0 -1.2 nseg 3
sel cable id 1 begin 4.9 0 -0.4 end 7 0 -0.4 nseg 3
sel cable id 1 begin -4.9 0 -0.4 end -7 0 -0.4 nseg 3
sel cable id 1 begin 0.8 0 2.9597466037400376099 end 1.2 0 4.9259827570190478278 nseg 3
sel cable id 1 begin -0.8 0 2.9597466037400376099 end -1.2 0 4.92598275701904782785 nseg 3
sel cable id 1 begin 1.6 0 2.8355598800594475992 end 2.5 0 4.6702488680792930917 nseg 3
sel cable id 1 begin -1.6 0 2.8355598800594475992 end -2.5 0 4.6702488680792930917 nseg 3
sel cable id 1 begin 2.3 0 2.6489764472796656031 end 3.7 0 4.2444441476415942576 nseg 3
sel cable id 1 begin -2.3 0 2.6489764472796656031 end -3.7 0 4.2444441476415942576 nseg 3
sel cable id 1 begin 3 0 2.3720045666706754766 end 4.7 0 3.7053463855265534241 nseg 3
sel cable id 1 begin -3 0 2.3720045666706754766 end -4.7 0 3.7053463855265534241 nseg 3
sel cable id 1 begin 3.7 0 1.9668218454133482294 end 5.6 0 3.0000000000000000001 nseg 3
sel cable id 1 begin -3.7 0 1.9668218454133482294 end -5.6 0 3.0000000000000000001 nseg 3
sel cable id 1 begin 4.3 0 1.4384498111596812963 end 6.3 0 2.1794494717703367763 nseg 3
sel cable id 1 begin -4.3 0 1.4384498111596812963 end -6.3 0 2.1794494717703367763 nseg 3
sel cable id 1 begin 4.7 0 .84835141595210316418 end 6.75 0 1.3243211584099398126 nseg 3
sel cable id 1 begin -4.7 0 .84835141595210316418 end -6.75 0 1.3243211584099398126 nseg 3
sel cable id 1 begin 4.88 0 .27077564556117527670 end 6.98 0 .37769440189720815711 nseg 3
sel cable id 1 begin -4.88 0 .27077564556117527670 end -6.98 0 .37769440189720815711 nseg 3
;第二列锚杆
sel cable id 1 begin 4.9 0.7 -2 end 6.8 0.7 -3.2 nseg 3
sel cable id 1 begin -4.9 0.7 -2 end -6.8 0.7 -3.2 nseg 3
sel cable id 1 begin 0 0.7 3 end 0 0.7 5 nseg 3
sel cable id 1 begin 4.9 0.7 -1.2 end 7 0.7 -1.2 nseg 3
sel cable id 1 begin -4.9 0.7 -1.2 end -7 0.7 -1.2 nseg 3
sel cable id 1 begin 4.9 0.7 -0.4 end 7 0.7 -0.4 nseg 3
sel cable id 1 begin -4.9 0.7 -0.4 end -7 0.7 -0.4 nseg 3
sel cable id 1 begin 0.8 0.7 2.9597466037400376099 end 1.2 0.7 4.9259827570190478278 nseg 3
sel cable id 1 begin -0.8 0.7 2.9597466037400376099 end -1.2 0.7 4.92598275701904782785 nseg 3
sel cable id 1 begin 1.6 0.7 2.8355598800594475992 end 2.5 0.7 4.6702488680792930917 nseg 3
sel cable id 1 begin -1.6 0.7 2.8355598800594475992 end -2.5 0.7 4.6702488680792930917 nseg 3
sel cable id 1 begin 2.3 0.7 2.6489764472796656031 end 3.7 0.7 4.2444441476415942576 nseg 3
sel cable id 1 begin -2.3 0.7 2.6489764472796656031 end -3.7 0.7 4.2444441476415942576 nseg 3
sel cable id 1 begin 3 0.7 2.3720045666706754766 end 4.7 0.7 3.7053463855265534241 nseg 3
sel cable id 1 begin -3 0.7 2.3720045666706754766 end -4.7 0.7 3.7053463855265534241 nseg 3
sel cable id 1 begin 3.7 0.7 1.9668218454133482294 end 5.6 0.7 3.0000000000000000001 nseg 3
sel cable id 1 begin -3.7 0.7 1.9668218454133482294 end -5.6 0.7 3.0000000000000000001 nseg 3
sel cable id 1 begin 4.3 0.7 1.4384498111596812963 end 6.3 0.7 2.1794494717703367763 nseg 3
sel cable id 1 begin -4.3 0.7 1.4384498111596812963 end -6.3 0.7 2.1794494717703367763 nseg 3
sel cable id 1 begin 4.7 0.7 .84835141595210316418 end 6.75 0.7 1.3243211584099398126 nseg 3
sel cable id 1 begin -4.7 0.7 .84835141595210316418 end -6.75 0.7 1.3243211584099398126 nseg 3
sel cable id 1 begin 4.88 0.7 .27077564556117527670 end 6.98 0.7 .37769440189720815711 nseg 3
sel cable id 1 begin -4.88 0.7 .27077564556117527670 end -6.98 0.7 .37769440189720815711 nseg 3
...........................

学习学习！！！！！！！！！！

nseg 3代表什么意思啊？

望楼主赐教啊

需要哪么大精度吗

楼主要能加注点解释就更好了，先谢谢了

谢谢！！！！！！！！！

不错   

用fish语言编程啊！
可以提供一个样本：
; 安装锚杆
sel set link zone_tol 0.05
def place_cable1
  loop n (1,56)
    y_d=n * 0.9 - 0.9
    command
;            下帮
      sel cable  begin 3.5,y_d,-34 end 5.5,y_d,-34 nseg 4
      sel cable  begin 3.5,y_d,-35 end 5.5,y_d,-35 nseg 4
;            顶板
      sel cable  begin 3.4,y_d,-33.5 end 3.4,y_d,-31.5 nseg 4
      sel cable  begin 2.5,y_d,-33.5 end 2.5,y_d,-31.5 nseg 4
      sel cable  begin 1.6,y_d,-33.5 end 1.6,y_d,-31.5 nseg 4
      sel cable  begin 0.7,y_d,-33.5 end 0.7,y_d,-31.5 nseg 4
    endcommand
  endloop
end
这里的y_d就是沿y轴方向的一个循环变量

friendqgp   说得很有道理      

谢谢楼主资料想学习!

引用第8楼friendqgp于2008-11-16 12:50发表的  :
用fish语言编程啊！
可以提供一个样本：
; 安装锚杆
sel set link zone_tol 0.05
def place_cable1
.......

照这种思路就可以实现了