|
|
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: 1237 (0x4d5)
Types: TextFile
Names: »fs.awk«
└─⟦db229ac7e⟧ Bits:30007240 EUUGD20: SSBA 1.2 / AFW Benchmarks
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21F/musbus/fs.awk«
#
# Script awk : fs.awk
#
# $Header: fs.awk,v 5.1 87/09/25 04:49:51 kenj Exp $
#
# modifie pour tourner avec 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 "Ecriture: %.1f Koctets par seconde ",w/iter
if (iter > 1) {
var = (w2-2*w*w/iter+w*w/iter)/(iter-1)
if ( var < 0. ) var = -var
printf " (ecart-type %.1f Ko)",sqrt(var)
}
printf "\nLecture: %.1f Koctets par seconde ",r/iter
if (iter > 1) {
var = (r2-2*r*r/iter+r*r/iter)/(iter-1)
if ( var < 0. ) var = -var
printf " (ecart-type %.1f Ko)",sqrt(var)
}
printf "\nCopie: %.1f Koctets par seconde ",c/iter
if (iter > 1) {
var = (c2-2*c*c/iter+c*c/iter)/(iter-1)
if ( var < 0. ) var = -var
printf " (ecart-type %.1f Ko)",sqrt(var)
}
print
}
else {
print "Write: -- no measured results!!"
print "Read: -- no measured results!!"
print "Copy: -- no measured results!!"
}
}