~mdw
/
rocl
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
45c362b
)
Fix output formatting a little.
author
mdw
<mdw>
Thu, 23 Sep 2004 14:08:21 +0000
(14:08 +0000)
committer
mdw
<mdw>
Thu, 23 Sep 2004 14:08:21 +0000
(14:08 +0000)
elite-tantalus
patch
|
blob
|
blame
|
history
diff --git
a/elite-tantalus
b/elite-tantalus
index
8a29191
..
478d5ba
100755
(executable)
--- a/
elite-tantalus
+++ b/
elite-tantalus
@@
-7,7
+7,7
@@
package require "vector" "1.0.0"
package require "graph" "1.0.0"
set gg {1 2 3 4 5 6 7 8}
package require "graph" "1.0.0"
set gg {1 2 3 4 5 6 7 8}
-set maxdist
8
0
+set maxdist
10
0
set minratio 10
for {set i 0} {$i < [llength $argv]} {incr i} {
set minratio 10
for {set i 0} {$i < [llength $argv]} {incr i} {
@@
-69,7
+69,9
@@
foreach g $gg {
set dd [$lv get $i $j]
set r [expr {$dd/"$d.0"}]
if {$r >= $minratio} {
set dd [$lv get $i $j]
set r [expr {$dd/"$d.0"}]
if {$r >= $minratio} {
- puts "$g: [worldname $w] -> [worldname $ww]: $d $dd ($r)"
+ puts [format "%14s %-8s -> %-8s %5.1f %5.1f (%5.1f)" \
+ $g [worldname $w] [worldname $ww] \
+ [expr {$d/10.0}] [expr {$dd/10.0}] $r]
}
}
}
}
}
}