煤矿采空区处理讨论
最近模拟采场开挖遇到一段命令哪位高手帮忙解释一下这些采空区模拟命令式什么意思?def find_add1
head1 = null;
p_gp1 = zone_head;
loop while p_gp1 # null;
if z_group(p_gp1)='3' then
new1 = get_mem(2);
mem(new1) = head1;
mem(new1+1) = p_gp1;
head1 = new1;
endif
p_gp1 =z_next(p_gp1);
endloop
end
find_add1
def Modulus1
command
m null range gr 1
so
m null range gr 2
m e
prop bulk 7e6 sh 5.25e6
endcommand
end
Modulus1
def ww
array arr1(6)
ad=head1
loop while ad # null
p_gp1 = mem(ad+1)
oo = z_fsi(p_gp1,arr1)
strainZ = -arr1(3)
denom = 0.5 - strainZ; bb
clos=strainZ/ 0.5
modulus = 0.5 * 3.5e6 / (denom*denom) ; slope 0.5
z_prop(p_gp1,'bulk') = modulus
z_prop(p_gp1,'shear') = modulus 0.75
z_szz(p_gp1) = -aa * (1.0/denom) * strainZ ; actual value
ad = mem(ad)
endloop
end
def S_tepping1
command
ww
step 100;
endcommand
end
def D_uring1
ggg=1
loop while ggg=1
S_tepping1
if mech_ratio<1e-5 then;10e-3 then;
ggg=0
end_if
endloop
end
D_uring1 command
m null range gr 1
so
m null range gr 2
里面的so什么意思? 应该是solve
页:
[1]