一个fish建模例子（FLAC5.0）

apple不圆

ew

def gzmbz
        mz=20;煤柱宽度
        hd=5;巷道宽度
        gzm1=100;工作面1面宽
        gzm2=100;工作面2面宽
        qf=0;切缝位置
        qf_angle=15;切缝角度
        qf_fw=5
        rad_hd=pi*(qf_angle)/180.0
        a=int((mz +hd+1)/2)
        aa=2*a
        x1=-gzm1-a
        x2=-a-qf_fw
        x35=-a-5
        x3=-a
        x4=-a+mz
        x5=-a+mz+hd
        x6=gzm1+a
        b=9.16*tan(rad_hd)
        c=0.83*tan(rad_hd)
        intb=int(b+1)
        intc=int(c+1)
        x7=x2+b
        x8=x7-c
        x9=x3-c
        x10=x3-b
        qf1=-qf-a
        qf2=qf1;-(qf_fw-b)/5
        magx=cos(rad_hd)
        magz=sin(rad_hd)
end
@gzmbz


gen z b size 20 60 10 p0 @x1 0 0 p1 @x2 0 0 p2 @x1 300 0 p3 @x1 0 37.45 rat 0.9 1 0.95 group 石灰岩
gen z b size @qf_fw 60 10 p0 @x2 0 0 p1 @x3 0 0 p2 @x2 300 0 p3 @x2 0 37.45 rat 1 1 0.95 group 石灰岩
gen z b size @a 60 10 p0 @x3 0 0 p1 0 0 0 p2 @x3 300 0 p3 @x3 0 37.45 rat 1 1 0.95 group 石灰岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 0 37.45 group 石灰岩


gen z b size 20 60 2 p0 @x1 0 37.45 p1 @x2 0 37.45 p2 @x1 300 37.45 p3 @x1 0 41.73 rat 0.9 1 0.95 group 泥岩
gen z b size @qf_fw 60 2 p0 @x2 0 37.45 p1 @x3 0 37.45 p2 @x2 300 37.45 p3 @x2 0 41.73 rat 1 1 0.95 group 泥岩
gen z b size @a 60 2 p0 @x3 0 37.45 p1 0 0 37.45 p2 @x3 300 37.45 p3 @x3 0 41.73 rat 1 1 0.95 group 泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 37.45 41.73 group 泥岩


gen z b size 20 60 1 p0 @x1 0 41.73 p1 @x2 0 41.73 p2 @x1 300 41.73 p3 @x1 0 44.24 rat 0.9 1 0.95 group 细砂岩
gen z b size @qf_fw 60 1 p0 @x2 0 41.73 p1 @x3 0 41.73 p2 @x2 300 41.73 p3 @x2 0 44.24 rat 1 1 0.95 group 细砂岩
gen z b size @a 60 1 p0 @x3 0 41.73 p1 0 0 41.73 p2 @x3 300 41.73 p3 @x3 0 44.24 rat 1 1 0.95 group 细砂岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 41.73 44.24 group 细砂岩


gen z b size 20 60 4 p0 @x1 0 44.24 p1 @x2 0 44.24 p2 @x1 300 44.24 p3 @x1 0 53.18 rat 0.9 1 0.95 group 砂质泥岩
gen z b size @qf_fw 60 4 p0 @x2 0 44.24 p1 @x3 0 44.24 p2 @x2 300 44.24 p3 @x2 0 53.18 rat 1 1 0.95 group 砂质泥岩
gen z b size @a 60 4 p0 @x3 0 44.24 p1 0 0 44.24 p2 @x3 300 44.24 p3 @x3 0 53.18 rat 1 1 0.95 group 砂质泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 44.24 53.18 group 砂质泥岩


gen z b size 20 60 4 p0 @x1 0 53.18 p1 @x2 0 53.18 p2 @x1 300 53.18 p3 @x1 0 56.56 rat 0.9 1 1 group 煤
gen z w size @intb 60 4 p0 @x2 300 56.56 p1 @x7 300 56.56 p2 @x2 0 56.56 p3 @x2 300 53.18 rat 1 1 1 group 煤
gen z b size @qf_fw 60 4 p0 @x2 0 53.18 p1 @x3 0 53.18 p2 @x2 300 53.18 p3 @x7 0 56.56 p4 @x3 300 53.18 p5 @x7 300 56.56 p6 @x3 0 56.56 p7 @x3 300 56.56 rat 1 1 1 group 煤
gen z b size @a 60 4 p0 @x3 0 53.18 p1 0 0 53.18 p2 @x3 300 53.18 p3 @x3 0 56.56 rat 1 1 1 group 煤
gen zon reflect normal 1 0 0 orig 0 0 0 range z 53.18 56.56 group 煤


gen z b size 20 60 1 p0 @x1 0 56.56 p1 @x2 0 56.56 p2 @x1 300 56.56 p3 @x1 0 57.39  rat 0.9 1 1 group 泥岩
gen z b size @intb 60 1 p0 @x2 0 56.56 p1 @x7 0 56.56 p2 @x2 300 56.56 p3 @x2 0 57.39  p4 @x7 300 56.56 p5 @x2 300 57.39  p6 @x8 0 57.39  p7 @x8 300 57.39  rat 1 1 1 group 泥岩
gen z b size @qf_fw 60 1 p0 @x7 0 56.56 p1 @x3 0 56.56 p2 @x7 300 56.56 p3 @x8 0 57.39  p4 @x3 300 56.56 p5 @x8 300 57.39  p6 @x9 0 57.39  p7 @x9 300 57.39  rat 1 1 1 group 泥岩
gen z w size @intb 60 1 p0 @x3 0 57.39  p1 @x9 0 57.39  p2 @x3 300 57.39  p3 @x3 0 56.56 rat 1 1 1 group 泥岩
gen z b size @a 60 1 p0 @x3 0 56.56 p1 0 0 56.56 p2 @x3 300 56.56 p3 @x3 0 57.39  rat 1 1 1 group 泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 56.56 57.39  group 泥岩


gen z b size 20 60 6 p0 @x1 0 57.39  p1 @x2 0 57.39  p2 @x1 300 57.39  p3 @x1 0 65.72 rat 0.9 1 1 group 石灰岩
gen z w size @intb 60 6 p0 @x2 0 57.39  p1 @x8 0 57.39  p2 @x2 300 57.39  p3 @x2 0 65.72 rat 1 1 1 group 石灰岩
gen z b size @qf_fw 60 6 p0 @x8 0 57.39  p1 @x9 0 57.39  p2 @x8 300 57.39  p3 @x2 0 65.72 p4 @x9 300 57.39  p5 @x2 300 65.72 p6 @x10 0 65.72 p7 @x10 300 65.72 rat 1 1 1 group 石灰岩
gen z b size @intb 60 6 p0 @x9 0 57.39  p1 @x3 0 57.39  p2 @x9 300 57.39  p3 @x10 0 65.72 p4 @x3 300 57.39  p5 @x10 300 65.72 p6 @x3 0 65.72 p7 @x3 300 65.72 rat 1 1 1 group 石灰岩
gen z b size @a 60 6 p0 @x3 0 57.39  p1 0 0 57.39  p2 @x3 300 57.39  p3 @x3 0 65.72 rat 1 1 1 group 石灰岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 57.39  65.72 group 石灰岩


gen z b size 20 60 4 p0 @x1 0 65.72 p1 @x2 0 65.72 p2 @x1 300 65.72 p3 @x1 0 75.88 rat 0.9 1 1 group 泥岩
gen z b size @qf_fw 60 4 p0 @x2 0 65.72 p1 @x10 0 65.72 p2 @x2 300 65.72 p3 @x2 0 75.88 p4 @x10 300 65.72 p5 @x2 300 75.88 p6 @x3 0 75.88 p7 @x3 300 75.88 rat 1 1 1 group 泥岩
gen z w size @intb 60 4 p0 @x10 0 65.72 p1 @x3 0 65.72 p2 @x10 300 65.72 p3 @x3 0 75.88 rat 1 1 1 group 泥岩
gen z b size @a 60 4 p0 @x3 0 65.72 p1 0 0 65.72 p2 @x3 300 65.72 p3 @x3 0 75.88 rat 1 1 1 group 泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 65.72 75.88 group 泥岩


gen z b size 20 60 1 p0 @x1 0 75.88 p1 @x2 0 75.88 p2 @x1 300 75.88 p3 @x1 0 76.10 rat 0.9 1 1 group 煤
gen z b size @qf_fw 60 1 p0 @x2 0 75.88 p1 @x3 0 75.88 p2 @x2 300 75.88 p3 @x2 0 76.10 rat 1 1 1 group 煤
gen z b size @a 60 1 p0 @x3 0 75.88 p1 0 0 75.88 p2 @x3 300 75.88 p3 @x3 0 76.10 rat 1 1 1 group 煤
gen zon reflect normal 1 0 0 orig 0 0 0 range z 75.88 76.10 group 煤


gen z b size 20 60 1 p0 @x1 0 76.10 p1 @x2 0 76.10 p2 @x1 300 76.10 p3 @x1 0 79.73 rat 0.9 1 1 group 石灰岩
gen z b size @qf_fw 60 1 p0 @x2 0 76.10 p1 @x3 0 76.10 p2 @x2 300 76.10 p3 @x2 0 79.73 rat 1 1 1 group 石灰岩
gen z b size @a 60 1 p0 @x3 0 76.10 p1 0 0 76.10 p2 @x3 300 76.10 p3 @x3 0 79.73 rat 1 1 1 group 石灰岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 76.10 79.73 group 石灰岩


gen z b size 20 60 2 p0 @x1 0 79.73 p1 @x2 0 79.73 p2 @x1 300 79.73 p3 @x1 0 88.53 rat 0.9 1 1 group 砂质泥岩
gen z b size @qf_fw 60 2 p0 @x2 0 79.73 p1 @x3 0 79.73 p2 @x2 300 79.73 p3 @x2 0 88.53 rat 1 1 1 group 砂质泥岩
gen z b size @a 60 2 p0 @x3 0 79.73 p1 0 0 79.73 p2 @x3 300 79.73 p3 @x3 0 88.53 rat 1 1 1 group 砂质泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 79.73 88.53 group 砂质泥岩

gen z b size 20 60 1 p0 @x1 0 88.53 p1 @x2 0 88.53 p2 @x1 300 88.53 p3 @x1 0 91.49 rat 0.9 1 1 group 石灰岩
gen z b size @qf_fw 60 1 p0 @x2 0 88.53 p1 @x3 0 88.53 p2 @x2 300 88.53 p3 @x2 0 91.49 rat 1 1 1 group 石灰岩
gen z b size @a 60 1 p0 @x3 0 88.53 p1 0 0 88.53 p2 @x3 300 88.53 p3 @x3 0 91.49 rat 1 1 1 group 石灰岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 88.53 91.49 group 石灰岩


gen z b size 20 60 1 p0 @x1 0 91.49 p1 @x2 0 91.49 p2 @x1 300 91.49 p3 @x1 0 95.19 rat 0.9 1 1 group 砂质泥岩
gen z b size @qf_fw 60 1 p0 @x2 0 91.49 p1 @x3 0 91.49 p2 @x2 300 91.49 p3 @x2 0 95.19 rat 1 1 1 group 砂质泥岩
gen z b size @a 60 1 p0 @x3 0 91.49 p1 0 0 91.49 p2 @x3 300 91.49 p3 @x3 0 95.19 rat 1 1 1 group 砂质泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 91.49 95.19 group 砂质泥岩


gen z b size 20 60 2 p0 @x1 0 95.19 p1 @x2 0 95.19 p2 @x1 300 95.19 p3 @x1 0 104.55 rat 0.9 1 1 group 中砂岩
gen z b size @qf_fw 60 2 p0 @x2 0 95.19 p1 @x3 0 95.19 p2 @x2 300 95.19 p3 @x2 0 104.55 rat 1 1 1 group 中砂岩
gen z b size @a 60 2 p0 @x3 0 95.19 p1 0 0 95.19 p2 @x3 300 95.19 p3 @x3 0 104.55 rat 1 1 1 group 中砂岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 95.19 104.55 group 中砂岩


gen z b size 20 60 1 p0 @x1 0 104.55 p1 @x2 0 104.55 p2 @x1 300 104.55 p3 @x1 0 111.75 rat 0.9 1 1 group 砂质泥岩
gen z b size @qf_fw 60 1 p0 @x2 0 104.55 p1 @x3 0 104.55 p2 @x2 300 104.55 p3 @x2 0 111.75 rat 1 1 1 group 砂质泥岩
gen z b size @a 60 1 p0 @x3 0 104.55 p1 0 0 104.55 p2 @x3 300 104.55 p3 @x3 0 111.75 rat 1 1 1 group 砂质泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 104.55 111.75 group 砂质泥岩


gen z b size 20 60 1 p0 @x1 0 111.75 p1 @x2 0 111.75 p2 @x1 300 111.75 p3 @x1 0 116.75 rat 0.9 1 1 group 泥岩
gen z b size @qf_fw 60 1 p0 @x2 0 111.75 p1 @x3 0 111.75 p2 @x2 300 111.75 p3 @x2 0 116.75 rat 1 1 1 group 泥岩
gen z b size @a 60 1 p0 @x3 0 111.75 p1 0 0 111.75 p2 @x3 300 111.75 p3 @x3 0 116.75 rat 1 1 1 group 泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 111.75 116.75 group 泥岩

gen z b size 20 60 1 p0 @x1 0 116.75 p1 @x2 0 116.75 p2 @x1 300 116.75 p3 @x1 0 122.95 rat 0.9 1 1 group 砂质泥岩
gen z b size @qf_fw 60 1 p0 @x2 0 116.75 p1 @x3 0 116.75 p2 @x2 300 116.75 p3 @x2 0 122.95 rat 1 1 1 group 砂质泥岩
gen z b size @a 60 1 p0 @x3 0 116.75 p1 0 0 116.75 p2 @x3 300 116.75 p3 @x3 0 122.95 rat 1 1 1 group 砂质泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 116.75 122.95 group 砂质泥岩


gen z b size 20 60 1 p0 @x1 0 122.95 p1 @x2 0 122.95 p2 @x1 300 122.95 p3 @x1 0 124.70 rat 0.9 1 1 group 泥岩
gen z b size @qf_fw 60 1 p0 @x2 0 122.95 p1 @x3 0 122.95 p2 @x2 300 122.95 p3 @x2 0 124.70 rat 1 1 1 group 泥岩
gen z b size @a 60 1 p0 @x3 0 122.95 p1 0 0 122.95 p2 @x3 300 122.95 p3 @x3 0 124.70 rat 1 1 1 group 泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 122.95 124.70 group 泥岩


gen z b size 20 60 1 p0 @x1 0 124.70 p1 @x2 0 124.70 p2 @x1 300 124.70 p3 @x1 0 130.24 rat 0.9 1 1 group 石灰岩
gen z b size @qf_fw 60 1 p0 @x2 0 124.70 p1 @x3 0 124.70 p2 @x2 300 124.70 p3 @x2 0 130.24 rat 1 1 1 group 石灰岩
gen z b size @a 60 1 p0 @x3 0 124.70 p1 0 0 124.70 p2 @x3 300 124.70 p3 @x3 0 130.24 rat 1 1 1 group 石灰岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 124.70 130.24 group 石灰岩


gen z b size 20 60 2 p0 @x1 0 130.24 p1 @x2 0 130.24 p2 @x1 300 130.24 p3 @x1 0 140.64 rat 0.9 1 1 group 砂质泥岩
gen z b size @qf_fw 60 2 p0 @x2 0 130.24 p1 @x3 0 130.24 p2 @x2 300 130.24 p3 @x2 0 140.64 rat 1 1 1 group 砂质泥岩
gen z b size @a 60 2 p0 @x3 0 130.24 p1 0 0 130.24 p2 @x3 300 130.24 p3 @x3 0 140.64 rat 1 1 1 group 砂质泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 130.24 140.64 group 砂质泥岩


gen z b size 20 60 2 p0 @x1 0 140.64 p1 @x2 0 140.64 p2 @x1 300 140.64 p3 @x1 0 157.93 rat 0.9 1 1 group 泥岩
gen z b size @qf_fw 60 2 p0 @x2 0 140.64 p1 @x3 0 140.64 p2 @x2 300 140.64 p3 @x2 0 157.93 rat 1 1 1 group 泥岩
gen z b size @a 60 2 p0 @x3 0 140.64 p1 0 0 140.64 p2 @x3 300 140.64 p3 @x3 0 157.93 rat 1 1 1 group 泥岩
gen zon reflect normal 1 0 0 orig 0 0 0 range z 140.64 157.93 group 泥岩

gen merge 1e-5 range z 79 160
gen merge 1e-5 range z 0 53
model mohr

save 0

胖头鱼软岩

学习了！