Posted to tcl by jima at Thu Feb 16 20:26:53 GMT 2017view raw
- # Dict is organized like:
- # TS ts {LOW low HIGH high} ...
- # Case 0: get the min of the LOW "column"
- set x {}
- tcl::mathfunc::min {*}[
- dict for {k v} $S(iD1) {lappend x [dict get $v low]};set x
- ]
- # Case 1: get the min of the LOW "column" for a range of values.
- # Consider left and right point to TS keys.
- # I think horrible shimmering happens heah...
- set x {}
- tcl::mathfunc::min {*}[
- dict for {k v} [
- lrange $S(iD1) $left $right
- ] {lappend x [dict get $v low]};set x
- ]