#------------------------------------------------------
# Generate random number

proc random {{max 1.0} {min 0.0}} {
    global randomSeed

    set randomSeed [expr (7141*$randomSeed+54773) % 259200]
    set num  [expr $randomSeed/259200.0*($max-$min)+$min]
    return $num
}

set randomSeed 14823
set random_number 0
#------------------------------------------------------