DEP AZIM INCL
0 0 0
25 73.378 1.02
50 211.869 1.285
75 228.986 1.175
100 226.546 1.094
125 223.938 1.324
150 220.456 1.194
175 231.821 0.872
200 237.543 1.073
225 244.327 1.131
250 249.392 1.1
275 235.585 1.3
300 227.324 1.685
例如这样的!!!!我自己用vba编写的算出来怎么感觉不对啊!是根据<钻井工程理论和技术>那本书177
页的校正平均角法计算的!!!!!
井斜角-- azim 方位角--INCL 测距--md
vba语句:
Private Sub CommandButton1_Click()
Dim i1 As Integer
i1 = 3
Dim x, y, azim, incl, md, tvd, f1, f2, azimz, inclz As Double
x = 0: y = 0: azim = 0: incl = 0: md = 0: tv = 0: f1 = 0: f2 = 0: azimz = 0: inclz = 0
Do Until Sheets(1).Cells(i1, 1).Value = Empty
md = Val(Sheets(1).Cells(i1, 1).Value) - Val(Sheets(1).Cells(i1 - 1, 1).Value)
azim = Val(Sheets(1).Cells(i1, 2).Value)
azim = azim / 360 * 6.28
azimz = Val(Sheets(1).Cells(i1, 2).Value) - Val(Sheets(1).Cells(i1 - 1, 2).Value)
azimz = azimz / 360 * 6.28
incl = Val(Sheets(1).Cells(i1, 3).Value)
incl = incl / 360 * 6.28
inclz = Val(Sheets(1).Cells(i1, 3).Value) - Val(Sheets(1).Cells(i1 - 1, 3).Value)
inclz = inclz / 360 * 6.28
f1 = 1 - (incl * incl) / 24
f2 = 1 - (azimz * azimz + inclz * inclz) / 24
tvd = f1 * md * Cos(incl) + tvd
x = f2 * md * Sin(incl) * Sin(azim) + x
y = f2 * md * Sin(incl) * Cos(azim) + y
Sheets(1).Cells(i1, 5).Value = x
Sheets(1).Cells(i1, 6).Value = y
Sheets(1).Cells(i1, 7).Value = tvd
i1 = i1 + 1
Loop
End Sub
哪位高手指点下错误啊!!!!!
