mems2z20080520 - BioEoS::環境解析学研究室::

#all_2nd_mesh = [["523601","523602","523603","523604"],["513671","513672","513673","513674"]]
#p all_2nd_mesh
#p all_2nd_mesh.size
#p all_2nd_mesh[3]
region = ["523501","513674"]
fE1 = region[0][2,2].to_i
fE2 = region[1][2,2].to_i
sE1 = region[0][5,1].to_i
sE2 = region[1][5,1].to_i
m = (fE2 - fE1) * 8 + sE2 - sE1 +1
fN1 = region[0][0,2].to_i
fN2 = region[1][0,2].to_i
sN1 = region[0][4,1].to_i
sN2 = region[1][4,1].to_i
n = (fN1 - fN2) * 8 + sN1 - sN2 +1

all_2nd_mesh = []
fN = fN1; sN = sN1
n.times do |j|
  if sN < 0
    sN = 7; fN = fN - 1
  end
  row = []
  fE = fE1; sE = sE1

  m.times do |i|
    if sE > 7
      sE = 0; fE = fE + 1
    end
    row << fN.to_s + fE.to_s + sN.to_s + sE.to_s
    sE = sE + 1
  end
  all_2nd_mesh << row
  sN = sN -1 # <=> sN -= 1
end
p all_2nd_mesh

-----