chiark - git - mdw - rocl/blob - elite-prices

   1 #! /usr/bin/tclsh
   2 #
   3 # $Id: elite-prices,v 1.2 2003/02/25 00:25:38 mdw Exp $
   4
   5 package require "elite" "1.0.0"
   6
   7 # --- An optimal trading pair ---
   8
   9 set lezaer   "1598f98a6581"
  10 set esmaonbe "7997d18a0d89"
  11
  12 set np [expr {[llength $products]/2}]
  13 puts -nonewline stderr "\[[string repeat { } $np]\] "
  14 puts -nonewline stderr "\[[string repeat { } 32]\]"
  15 puts -nonewline stderr "\r\[[string repeat { } $np]\] \["
  16 flush stderr
  17 foreach {a s} [list l $lezaer e $esmaonbe] {
  18   for {set f 0} {$f < 256} {incr f} {
  19     elite-market m $s $f
  20     foreach {t p} $products { destructure [list ${a}($f:$t) .] $m($t) }
  21     if {($f & 15) == 15} { puts -nonewline stderr "."; flush stderr }
  22   }
  23 }
  24 foreach {t p} $products {
  25   set tot($t) 0
  26   set min($t) 100000
  27   set max($t) -100000
  28 }
  29 set i 0
  30 foreach {t p} $products {
  31   incr i
  32   puts -nonewline stderr "\r\[[string repeat . $i]"
  33   puts -nonewline stderr "[string repeat { } [expr {$np - $i}]]\] "
  34   puts -nonewline stderr "\[[string repeat { } 32]\]"
  35   puts -nonewline stderr "\r\[[string repeat . $i]"
  36   puts -nonewline stderr "[string repeat { } [expr {$np - $i}]]\] \["
  37   set ll {}
  38   set ee {}
  39   for {set f 0} {$f < 256} {incr f} {
  40     lappend ll $l($f:$t)
  41     lappend ee $e($f:$t)
  42   }
  43   set j 0
  44   foreach pl $ll {
  45     foreach pe $ee {
  46       set pr [expr {$pl - $pe}]
  47       if {$pr < $min($t)} { set min($t) $pr }
  48       if {$pr > $max($t)} { set max($t) $pr }
  49       incr tot($t) $pr
  50     }
  51     incr j
  52     if {($j & 7) == 0} { puts -nonewline stderr "."; flush stderr }
  53   }
  54 }
  55 puts stderr ""
  56
  57 foreach {t p} $products {
  58   puts [format "%-15s %5d %4d %4d" $t \
  59       $min($t) [expr {$tot($t)/65536}] $max($t)]
  60 }