proc retrieveVariogramModelParameters { file } {
set name [$file getCurrentValue]
if {"$name" != ""} {
set buffer [GuidoExecServer "GetVariogramModellingParameters" [subst {VGModelName = "$name"} ]]
set status [GuidoGetParamBufferValue $buffer status]
if {$status >= 0} {
set model_type [GuidoGetParamBufferValue $buffer ModelType]
global model
if {"$model_type" == "Spherical"} {
$model setCurrentValue "SPHERICAL"
} elseif {"$model_type" == "Exponential"} {
$model setCurrentValue "EXPONENTIAL"
} elseif {"$model_type" == "Gaussian"} {
$model setCurrentValue "GAUSSIAN"
} elseif {"$model_type" == "Hole Effect"} {
$model setCurrentValue "HOLE EFFECT"
}
set num_structures [GuidoGetParamBufferValue $buffer NumStructures]
if {$num_structures > 5} {
set num_structures 5
}
if {"$model_type" == "Spherical" && $num_structures > 1} {
$model setCurrentValue "NESTED SPHERICAL"
}
global numstruct
$numstruct setCurrentValue $num_structures
global co
$co setCurrentValue [GuidoGetParamBufferValue $buffer Nugget]
for {set idx 0} {$idx < $num_structures} {incr idx} {
set i [expr $idx + 1]
global c$i
upvar 0 "c$i" field
set val [format %.6f [GuidoGetParamBufferValue $buffer "Sill$idx"]]
$field setCurrentValue $val
global a$i
upvar 0 "a$i" field
set val [format %.3f [GuidoGetParamBufferValue $buffer "Range$idx"]]
$field setCurrentValue $val
}
}
}
return 1
}
proc pitch_or_plunge {} {
global 0_5
global third_axis
global 0_6
if {"[$third_axis getCurrentValue]" == "Z"} {
$0_5 setLabel "Dip"
$0_6 setLabel "Pitch"
} else {
$0_5 setLabel "Plunge"
$0_6 setLabel "Dip"
}
}
GuidoForm frm20101 {
-default_buttons
-label "Kriging Parameters"
-layout BoxLayout Y_AXIS
-tip "20101_TIP_001"
GuidoPanel frm20101_34 {
-layout CentreLineLayout
GuidoFileBrowserField vg_model_file_name {
-action valueChanged {[retrieveVariogramModelParameters $vg_model_file_name]}
-display_length 32
-file_access read
-file_mask "*.vgm *.not"
-format none
-label "Variogram file name"
-max_length 256
-null true
-translate none
-tip GST_VG_FILENAME_TIP
}
GuidoComboBox model {
-label "Variogram model"
-value_in "SPHERICAL" "NESTED SPHERICAL" "EXPONENTIAL" "GAUSSIAN" "HOLE EFFECT"
-alternative_values "Spherical" "Nested Spherical" "Exponential" "Gaussian" "Hole Effect"
-legacy_action
-null false
-format none
}
GuidoLabel anonymous {
-label "Rotation Convention"
}
GuidoLabel rot_conv1 {
}
GuidoField numstruct {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 2
-format integer
-high_bound 5
-label "Number of structures"
-low_bound 1
-max_length 2
-null false
-tip "20101_TIP_002"
-translate none
}
}
GuidoFiller frm20101_35 {
-height 0.5
}
GuidoPanel parameters1 {
-layout BoxLayout Y_AXIS
GuidoPanel row0 {
-layout GridLayout 1 9
GuidoLabel 0_0 {
-label "Structure"
}
GuidoLabel 0_1 {
-label "Nugget"
}
GuidoLabel 0_2 {
-label "Sill"
}
GuidoLabel 0_3 {
-label "Range"
}
GuidoLabel 0_4 {
-label "Bearing"
}
GuidoLabel 0_5 {
-label "Plunge"
-action initial {[pitch_or_plunge]}
}
GuidoLabel 0_6 {
-label "Dip"
}
GuidoLabel 0_7 {
-label "Major/Semi"
}
GuidoLabel 0_8 {
-label "MINOR_RATIO_LABEL"
}
}
GuidoPanel row1 {
-layout GridLayout 1 9
GuidoLabel struc1 {
-label "1"
}
GuidoField co {
-default 0
-format double
-low_bound 0
-max_length 20
-next_focus c1
-null false
-tip "20101_TIP_003"
-translate upper
}
GuidoField c1 {
-default 0
-format double
-max_length 20
-next_focus a1
-null false
-tip "20101_TIP_004"
-translate upper
}
GuidoField a1 {
-default 0
-format double
-max_length 20
-next_focus azimuth1
-null false
-tip "20101_TIP_005"
-translate upper
}
GuidoField azimuth1 {
-default 0
-display_length 6
-format double
-high_bound 360
-low_bound 0
-max_length 20
-next_focus plunge1
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField plunge1 {
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus dip1
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField dip1 {
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus semi_ratio1
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField semi_ratio1 {
-default 1
-display_length 6
-format double
-max_length 20
-next_focus minor_ratio1
-tip GST_KRIG_HELP
-translate upper
}
GuidoField minor_ratio1 {
-default 1
-display_length 6
-format double
-max_length 20
-tip GST_KRIG_HELP
-translate upper
}
}
GuidoPanel row2 {
-layout GridLayout 1 9
GuidoLabel struc2 {
-label "2"
}
GuidoFiller co_hidden2 {
}
GuidoField c2 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-format double
-max_length 20
-next_focus a2
-null false
-tip "20101_TIP_004"
-translate upper
}
GuidoField a2 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-format double
-max_length 20
-next_focus azimuth2
-null false
-tip "20101_TIP_005"
-translate upper
}
GuidoField azimuth2 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 360
-low_bound 0
-max_length 20
-next_focus plunge2
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField plunge2 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus dip2
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField dip2 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus semi_ratio2
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField semi_ratio2 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 6
-format double
-max_length 20
-next_focus minor_ratio2
-tip GST_KRIG_HELP
-translate upper
}
GuidoField minor_ratio2 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 6
-format double
-max_length 20
-next_focus c3
-tip GST_KRIG_HELP
-translate upper
}
}
GuidoPanel row3 {
-layout GridLayout 1 9
GuidoLabel struc3 {
-label "3"
}
GuidoFiller co_hidden3 {
}
GuidoField c3 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-format double
-max_length 20
-next_focus a3
-null false
-tip "20101_TIP_004"
-translate upper
}
GuidoField a3 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-format double
-max_length 20
-next_focus azimuth3
-null false
-tip "20101_TIP_005"
-translate upper
}
GuidoField azimuth3 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 360
-low_bound 0
-max_length 20
-next_focus plunge3
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField plunge3 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus dip3
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField dip3 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus semi_ratio3
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField semi_ratio3 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 6
-format double
-max_length 20
-next_focus minor_ratio3
-tip GST_KRIG_HELP
-translate upper
}
GuidoField minor_ratio3 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 6
-format double
-max_length 20
-next_focus c4
-tip GST_KRIG_HELP
-translate upper
}
}
GuidoPanel row4 {
-layout GridLayout 1 9
GuidoLabel struc4 {
-label "4"
}
GuidoFiller co_hidden4 {
}
GuidoField c4 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-format double
-max_length 20
-next_focus a4
-null false
-tip "20101_TIP_004"
-translate upper
}
GuidoField a4 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-format double
-max_length 20
-next_focus azimuth4
-null false
-tip "20101_TIP_005"
-translate upper
}
GuidoField azimuth4 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 360
-low_bound 0
-max_length 20
-next_focus plunge4
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField plunge4 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus dip4
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField dip4 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus semi_ratio4
-null false
-tip GST_KRIG_HELP
-translate upper
}
GuidoField semi_ratio4 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 6
-format double
-max_length 20
-next_focus minor_ratio4
-tip GST_KRIG_HELP
-translate upper
}
GuidoField minor_ratio4 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 6
-format double
-max_length 20
-next_focus c5
-tip "20101_TIP_006"
-translate upper
}
}
GuidoPanel row5 {
-layout GridLayout 1 9
GuidoLabel struc5 {
-label "5"
}
GuidoFiller co_hidden5 {
}
GuidoField c5 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-format double
-max_length 20
-next_focus a5
-null false
-tip "20101_TIP_004"
-translate upper
}
GuidoField a5 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-format double
-max_length 20
-next_focus azimuth5
-null false
-tip "20101_TIP_005"
-translate upper
}
GuidoField azimuth5 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 360
-low_bound 0
-max_length 20
-next_focus plunge5
-null false
-tip "20101_TIP_006"
-translate upper
}
GuidoField plunge5 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus dip5
-null false
-tip "20101_TIP_006"
-translate upper
}
GuidoField dip5 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 0
-display_length 6
-format double
-high_bound 90
-low_bound -90
-max_length 20
-next_focus semi_ratio5
-null false
-tip "20101_TIP_006"
-translate upper
}
GuidoField semi_ratio5 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 6
-format double
-max_length 20
-next_focus minor_ratio5
-tip "20101_TIP_006"
-translate upper
}
GuidoField minor_ratio5 {
-dependency {"[ $model getCurrentValue]" == "NESTED SPHERICAL"}
-default 1
-display_length 6
-format double
-max_length 20
-tip "20101_TIP_006"
-translate upper
}
}
GuidoFiller frm20101_46 {
-height 1
}
GuidoPanel frm20101_51 {
-layout BoxLayout X_AXIS
GuidoLabel frm20101_22 {
-label "Number of descretisation points"
}
GuidoFiller frm20101_52 {
-width 1
}
GuidoPanel frm20081_52a {
-layout CentreLineLayout
GuidoField dpt0 {
-default 3
-display_length 2
-format integer
-high_bound 5
-label X
-low_bound 1
-max_length 1
-next_focus dpt1
-null false
-tip "20101_TIP_039"
-translate none
}
}
GuidoFiller frm20101_52 {
-width 1
}
GuidoPanel frm20081_52b {
-layout CentreLineLayout
GuidoField dpt1 {
-default 3
-display_length 2
-format integer
-high_bound 5
-label Y
-low_bound 1
-max_length 1
-next_focus dpt2
-null false
-tip "20101_TIP_039"
-translate none
}
}
GuidoFiller frm20101_52 {
-width 1
}
GuidoPanel frm20081_52b {
-layout CentreLineLayout
GuidoField dpt2 {
-default 3
-display_length 2
-format integer
-high_bound 5
-label Z
-low_bound 1
-max_length 1
-null false
-tip "20101_TIP_039"
-translate none
}
}
GuidoFiller frm20101_52 {
-width 1
}
}
GuidoFiller frm20101_53 {
-height 0.5
}
GuidoPanel p0 {
-layout BoxLayout X_AXIS
-border etched true
GuidoPanel p1 {
-layout CentreLineLayout
GuidoCheckBox debug {
-default false
-label "Include debug output"
-selected_value Y
-tip 20102_TIP_4
-unselected_value N
}
GuidoCheckBox constrain {
-default false
-label "Constrain interpolation"
-selected_value Y
-tip "Enter Y if you wish to restrict the blocks to be estimated or N for unconstrained estimation."
-unselected_value N
}
}
GuidoFiller f1 {
-width 2
}
GuidoPanel p2 {
-layout CentreLineLayout
GuidoFileBrowserField outfile {
-display_length 18
-file_mask reports|*.not
-format none
-label "REPORT_FILE_NAME"
-max_length 256
-next_focus constrain
-tip "REPORT_FILE_NAME_TIP"
-translate lower
-extension false
-file_access write
-null false
}
GuidoComboBox report_format {
-label "Format"
-display_length 16
-null true
-tip "The file format nominated here will be the output report format."
-value_in ".not - Surpac Note File" ".csv - Comma Separated (Spreadsheet)" ".htm - Hypertext Markup Language (Web)" ".html - Hypertext Markup Language (Web)" ".rtf - Rich Text Format (Microsoft Word)" ".pdf - Adobe Acrobat" ".ps - Postscript" ".log - Surpac log file"
}
}
}
}
GuidoField third_axis {
-visible false
-default 3
-display_length 3
}
}
