OUTPUT BUFFER:
#!/usr/local/bin/tclsh load libtclfastme0.1.so set nbSeq {10 300 100} foreach nb $nbSeq { set Lnom [list] set Ldst [list] unset -nocomplain T for {set i 0} {$i < $nb} {incr i} { set nom1 "seq-$i" lappend Lnom $nom1 set T($nom1,$nom1) 0.0 for {set j [expr {$i+1}]} {$j < $nb} {incr j} { set nom2 "seq-$j" set T($nom1,$nom2) [expr {rand()}] set T($nom2,$nom1) $T($nom1,$nom2) } } foreach n1 $Lnom { foreach n2 $Lnom { lappend Ldst $T($n1,$n2) } } puts "[fastme $Lnom $Ldst -init_tree OLS -branch_lengths bal -swap bal]" puts "[fastme $Lnom $Ldst -init_tree BAL -branch_lengths bal -swap bal]" puts "[fastme $Lnom $Ldst -init_tree OLS -branch_lengths OLS -swap bal]" puts "[fastme $Lnom $Ldst -init_tree OLS -branch_lengths OLS -swap OLS]" } exit