
set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]


set form {
  GuidoForm form_1 {
    -default_buttons
    -label "Omnidirectional variogram"
    GuidoPanel panel_1 {
    -layout BoxLayout Y_AXIS
      GuidoTextArea gainfocus {
      -visible true
      -default "This text area is here to remove focus and highlighting from the second GuidoTextArea
                This text area must have visible set to true in order to gain focus"
      -height 0
      -width 0
      }
      GuidoLabel space {
      -height 0.5
      }
      GuidoScrollPane scroll_1 {
      -height 13
      -width 70
        GuidoTextArea text_1 {
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
Variograms can be directional or omnidirectional.

Directional variograms only consider sample pairs which are aligned within a certain orientation.   An example of a directional variogram is one in which only those sample pairs which are due north or south of one another are used.

An omnidirectional variogram is one in which sample orientation is not considered, and all sample pairs are used.
An omnidirectional variogram is defined by setting the spread angle to 90.  The azimuth and plunge values are irrelevant.

Generally, the omnidirectional variogram will be the 'best' or 'least scattered' variogram, as it will contain more data points than a directional variogram.  Since it will usually be the 'best' variogram, an omnidirectional variogram is a good place to start."
        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}

set status [ SclFunction "GEOLOGY DATABASE DISCONNECT" {} ]

set status [ SclFunction "BM EXIT" {
  frm20103={
    {
      exit_mode="E"
    }
  }
}]

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  file="gc130.mdl"
  mode="openInNewLayer"
}]

set status [ SclFunction "VARIOGRAM MODELLING" {} ]

set status [ SclFunction "VG RELOAD" {
  frm20460={
    {
      _action=display
      location="gold_cut"
      id="17"
      str=""
      dfield="D1"
      minval=""
      maxval=""
      windows={
        {
          azimuth="0"
          plunge="0"
          spread="90"
          spr_limit=""
          chart_colour="black"
        }
      }
      min0=""
      min1=""
      min2=""
      max0=""
      max1=""
      max2=""
      lag="2"
      maxdist="100"
      negative="NEGATIVES"
      fname="omnidirectional"
      report_format=".not - Surpac Note File"
      display_report="N"
      lag_minimum="1"
      lag_maximum="20"
      lag_increment="1"
    }
  }
}]


set status [ SclFunction "VG VARIANCE" {} ]



set form {
  GuidoForm form_2 {
    -default_buttons
    -label "Omnidirectional variogram"
    GuidoPanel panel_2 {
    -layout BoxLayout Y_AXIS
      GuidoTextArea gainfocus {
      -visible true
      -default "This text area is here to remove focus and highlighting from the second GuidoTextArea
                This text area must have visible set to true in order to gain focus"
      -height 0
      -width 0
      }
      GuidoLabel space {
      -height 0.5
      }
      GuidoScrollPane scroll_2 {
      -height 18
      -width 70
        GuidoTextArea text_2 {
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
Note that the initial lag value of 2 has created a poor quality or 'scattered' variogram.  The next form will set the lag to 7.6, which will result in a 'better' variogram.

After this macro is completed, you can modify the lag value by one of the following methods to see what effect the lag value has on the quality of the variogram:

1. Select Variogram - Experimental variogram lag, enter a value and APPLY the form.

2. Drag the lag slider at the top right corner of the window.

3. Use the < and > buttons on either side of the lag slider.
Note that these buttons will modify the lag by the increment specified on the Advanced tab of the first variogram modelling form.

4. Use the right and left arrow keys on the keyboard to modify the lag by 0.1"
        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}

set status [ SclFunction "VG LAG" {
  frm77005={
    {
      _action=display
      lag="7.6"
    }
  }
}]

set status [ SclFunction "RECALL ANY FILE" {
  file="_omnidirectional.vgm"
  mode="none"
}]

set form {
  GuidoForm form_3 {
    -default_buttons
    -label "Omnidirectional variogram"
    GuidoPanel panel_3 {
    -layout BoxLayout Y_AXIS
      GuidoTextArea gainfocus {
      -visible true
      -default "This text area is here to remove focus and highlighting from the second GuidoTextArea
                This text area must have visible set to true in order to gain focus"
      -height 0
      -width 0
      }
      GuidoLabel space {
      -height 0.5
      }
      GuidoScrollPane scroll_3 {
      -height 15
      -width 70
        GuidoTextArea text_3 {
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
A variogram model is made up of a nugget, and one or more sill-range structures.

The nugget is the value of the model on the Y axis.

The sill is the Y axis distance above the nugget for a structure.

The range is the distance along the X axis value for a given sill value.

Up to five sill-range structures can be used, but often one will be enough.

The nugget and sill-range structures may be modified graphically, or may be defined exactly, as on the following form."
        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}

set status [ SclFunction "VG REPORT MODEL" {
  frm20490={
    {
      _action=display
      mod_type="Spherical"
      nugget="0.65"
      sill0="0.35"
      range0="24"
      sill1=""
      range1=""
      sill2=""
      range2=""
      sill3=""
      range3=""
      sill4=""
      range4=""
      notefile="omnidirectional_variogram"
    }
  }
}]

set status [ SclFunction "SAVE EXP VG" {
  exp_vg_name="omnidirectional.evg"
  frm00121={
    {
      _action="display"
    }
  }
}]

set status [ SclFunction "SAVE VG MODEL" {
  vg_model_name="omnidirectional.vgm"
  frm00121={
    {
      _action="display"
    }
  }
}]

set status [ SclFunction "VG EXIT" {} ]


puts ""
puts ""
puts " macro _04_omnidirectional_variogram.tcl completed"
puts ""



