!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define character family*128
let family "&1"
!
go\load 'family'":circle,averaged" /first image /into image global
go\load 'family'":circle,averaged" /axis u rel /into u
!
gtvl\clear
set\panel 1 /position plot /aspect 1
greg1\limits 0.01 30 0 5 /var u%coord image[1] /xlog
greg1\histogram u%coord image[1]
greg1\box
go\load 'family'":circle,averaged" /unit /into unit
greg1\label "U ["'u%unit'"]" /x
!label 'unit' /y
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
