DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T f

⟦4abe89b25⟧ TextFile

    Length: 1247 (0x4df)
    Types: TextFile
    Names: »fs.awk«

Derivation

└─⟦db229ac7e⟧ Bits:30007240 EUUGD20: SSBA 1.2 / AFW Benchmarks
    └─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21E/musbus/fs.awk« 

TextFile

#
# 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!!"
	}
}