ben-wpan/usrp/sps/norm

#!/usr/bin/perl

for ($n = 0; <>; $n++) {
	if ($_ > $ym || !defined $ym) {
		$xm = $n;
		chop($ym = $_);
	}
}

print "$xm $ym $n\n";
usrp/sps/: spectrum scan utilities (work in progress) - collect: set up a test transmission at each available frequency, then then record the signal seen by the USRP2 - norm: extract parameters necessary for normalization - viz: visualize the spectrum with gnuplot - row: generate rows of spectra with "viz" 2011-03-03 23:26:31 -03:00			`#!/usr/bin/perl`

			`for ($n = 0; <>; $n++) {`
			`if ($_ > $ym \|\| !defined $ym) {`
			`$xm = $n;`
			`chop($ym = $_);`
			`}`
			`}`

			`print "$xm $ym $n\n";`