...
agr — Adjust grid to points and well data
Syntax
| Panel |
|---|
| bgColor | #FFFFAA |
|---|
| borderWidth | 1 |
|---|
| borderStyle | solid |
|---|
|
agr hiname [dis fixed_radius] [rad radius_factor] *max* max_radius [sav] [conic] [tensor [fac influencefactor]] |
...
| No Format |
|---|
| bgColor | #eeeeee |
|---|
| borderWidth | 1 |
|---|
|
set i 0 ; # initialize i
# adjust grid 5 times
while {$i lt 5} {
agr ggg dis 5000 ; # adjust grid in workspace to points in workspace ggg using a fixed radius of 5000.
incr i ; # add one to i
}
|
...
| No Format |
|---|
| bgColor | #eeeeee |
|---|
| borderWidth | 1 |
|---|
|
# example of using agr to update a grid
# well data is located in workspace welldata
# the grid to be updated is in active
mhi updatedgrid ; # the grid is saved in updated grid
set radius 5000 ; # radius of updating
set iterations 10 ; # max iterations
set iter 1 ; # initiate a loop variable
set tell 0 ; # initiate a counter variable
while {$iter == 1} {
mlo updatedgrid ; # move low updatedgrid
set rad [expr $radius * (1 - 0.06 * $tell)]
agr welldata rad $rad ; # adjust grid using an influence radius
mhi updatedgrid ; # move high updated grid
mlo welldata ; # move down welldata
zap dif updatedgrid ; # zap and get difference to grid
# well data differences to the grid is in the scalar part
set zmi [gvar zsmin] ; # get scalar zmin
set zma [gvar zsmax] ; # get scalar zmax
set val [expr $zmi + $zma] ; # add min and max
if {$val lt< 1 amp&& $val > -1} {set iter 0} ; # check difference and stop if OK
mlo updatedgrid ; # move low updatedgrid
incr tell ; # increment the tell variable
if {$tell >= $iterations} { ; # test if counter is greater than max iterations
break ; # break the loop
}
}
# the result is now in updatedgrid
|
...