急倾斜煤层实例求教

t9i

Def
jmmc

Huangt=20.
an1=75.
jiao=-an1
z3=280.
x1=35.
y2=300.
zz=z3 + huangt
ang1=float (pi *an1/180.)
x6=float (z3+x1*tan(ang1))/(tan(an1))
array a0 (3) a1 (3) a2 (3)
a3 (3) a4 (3)
a5 (3)
a6 (3)
a7
(3)
a0 (1) =0.0，a0（2）=0.0，a0（3）= 0.0
a1 (1) =x1, a1（2）=0.0，a1（3）=0.0
a2 (1) = 0.0，a2（2）=y2, a2（3）=0.000
a3 (1) =0.0，A3（2）=0.0，A3（3）=z3
a4 (1) = A1 (1),A4（2）= a2（2）, A4（3）= 0.000
a5 (1) = A2 (1),
A5（2）= a2（2）,A5（3）= A3（3）
a6(1)=x6,
A6（2）= 0.0，A6（3）= A3（3）
a7(1) = A6(1),A7（2）= A5（2）,A7（3）= A5（3）
loop n0 (1，9)

红色的地方是不是有问题，拜求懂得高人解答！

t9i

怎么没人回答啊，好急啊！

唐人1893

有好心人帮一下忙啊

yuanlin0916

看不懂，我才刚开始学习，怎么关于煤矿的实例坛子里面好少啊？