mirror of
git://projects.qi-hardware.com/ben-wpan.git
synced 2024-12-23 09:12:04 +02:00
70 lines
1.2 KiB
Plaintext
70 lines
1.2 KiB
Plaintext
|
#!/bin/sh
|
||
|
|
||
|
usage()
|
||
|
{
|
||
|
echo "usage: $0 [-f font] prefix frequency" 1>&2
|
||
|
exit 1
|
||
|
}
|
||
|
|
||
|
|
||
|
font=
|
||
|
term=
|
||
|
output=
|
||
|
while true; do
|
||
|
case "$1" in
|
||
|
-f) [ "$2" ] || usage
|
||
|
shift
|
||
|
font=$1
|
||
|
shift;;
|
||
|
-p) [ "$2" ] || usage
|
||
|
shift
|
||
|
term="set term png"
|
||
|
output="set output \"$1\""
|
||
|
shift;;
|
||
|
*)
|
||
|
break;;
|
||
|
esac
|
||
|
done
|
||
|
|
||
|
[ "$2" ] || usage
|
||
|
[ "$3" ] && usage
|
||
|
|
||
|
prefix=$1
|
||
|
f=$2
|
||
|
|
||
|
../fft -s 100 -d -w hamming 100 <./$prefix-$f >_tmp
|
||
|
set `./norm _tmp`
|
||
|
|
||
|
xm=$1.0 # sample number of y peak
|
||
|
ym=$2 # magnitude of y peak
|
||
|
n=$3 # total number of samples
|
||
|
span=6.25 # ADC sample rate in MHz / decimation (100 MHz/16)
|
||
|
|
||
|
gnuplot -persist <<EOF
|
||
|
$term
|
||
|
$output
|
||
|
|
||
|
set label "$prefix" at graph 0.03, graph 0.93 font "$font,22"
|
||
|
set label sprintf("+%.1f dB", $ym) at graph 0.03, graph 0.82 font "$font,18"
|
||
|
|
||
|
set label sprintf("%.1f MHz", $f-0.5) \
|
||
|
at graph 0.97, graph 0.93 right font "$font,22"
|
||
|
set label sprintf("+%.1f ppm", (($xm/$n-0.5)*$span+0.5)/($f-0.5)*1000000) \
|
||
|
at graph 0.97, graph 0.82 right font "$font,18"
|
||
|
|
||
|
set xrange [-2.5:2.5]
|
||
|
set yrange [-70:0]
|
||
|
|
||
|
set mxtics 10
|
||
|
set mytics 2
|
||
|
set grid
|
||
|
|
||
|
set xlabel "MHz from nominal frequency of test wave"
|
||
|
|
||
|
set style fill solid 1
|
||
|
plot "_tmp" using ((\$0/$n-0.5)*$span+0.5):(\$1-$ym) with lines notitle, \
|
||
|
"<echo -0.9 -$ym 0.2" with boxes notitle
|
||
|
EOF
|
||
|
|
||
|
rm -f _tmp
|