|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T f
Length: 1247 (0x4df)
Types: TextFile
Names: »fs.awk«
└─⟦db229ac7e⟧ Bits:30007240 EUUGD20: SSBA 1.2 / AFW Benchmarks
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21E/musbus/fs.awk«
#
# Script awk : fs.awk
#
# $Header: fs.awk,v 5.1 87/09/25 04:49:51 kenj Exp $
#
# modified to be used with chrono - Philippe Dax - 15/6/88
#
/^\t / { next }
/^$/ { next }
/^\.\/disktime/ {
if (!fail) {
w+=$5; w2+=$5*$5; r+=$6; r2+=$6*$6; c+=$7; c2+=$7*$7; ok++
}
fail=0; iter++; next
}
{ print "** Iteration ",iter+1," Failed: ",$0; fail=1; }
END {
if (fail) iter++
if (ok != iter) {
printf "For %d successful iterations from %d attempts ...\n",ok,iter
iter=ok
}
if (iter > 0) {
printf "Write: %.1f Kbytes per second ",w/iter
if (iter > 1) {
var = (w2-2*w*w/iter+w*w/iter)/(iter-1)
if ( var < 0. ) var = -var
printf " (standard deviation %.1f Kb)",sqrt(var)
}
printf "\nRead: %.1f Kbytes per second ",r/iter
if (iter > 1) {
var = (r2-2*r*r/iter+r*r/iter)/(iter-1)
if ( var < 0. ) var = -var
printf " (standard deviation %.1f Kb)",sqrt(var)
}
printf "\nCopy: %.1f Kbytes per second ",c/iter
if (iter > 1) {
var = (c2-2*c*c/iter+c*c/iter)/(iter-1)
if ( var < 0. ) var = -var
printf " (standard deviation %.1f Kb)",sqrt(var)
}
print
}
else {
print "Write: -- no measured results!!"
print "Read: -- no measured results!!"
print "Copy: -- no measured results!!"
}
}