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