|
Revision 4, 0.5 kB
(checked in by thesz, 2 years ago)
|
Added script for conducting experiments. Added some experiments parameters. Less debug info (faster execution). Fixed 'send back in time' bug in heat1d.
|
- Property svn:executable set to
*
|
| Line | |
|---|
| 1 |
#!/usr/bin/tclsh |
|---|
| 2 |
|
|---|
| 3 |
set argsvars {programname expparamsfile} |
|---|
| 4 |
|
|---|
| 5 |
if {[llength $argv]<[llength $argsvars]} { |
|---|
| 6 |
puts "usage: runexperiment $argsvars" |
|---|
| 7 |
} |
|---|
| 8 |
|
|---|
| 9 |
foreach $argsvars $argv break |
|---|
| 10 |
|
|---|
| 11 |
foreach hd {0 1 2 3 4 5} { |
|---|
| 12 |
exec ./$programname --file=../common_parameters --file=$expparamsfile --hierDepth=$hd >asd |
|---|
| 13 |
set ticksline [exec grep "Total .* ticks" asd | tail -n 1] |
|---|
| 14 |
regexp {Total ([0-9]+) ticks} $ticksline _ tickcount |
|---|
| 15 |
puts "hd $hd: ticks $tickcount, proc ticks [expr $tickcount*(1<<$hd)], fifo [exec grep maxql asd | tail -n 1]" |
|---|
| 16 |
} |
|---|
