From ebdcdb651d4edb23bd7e719fc1428b24d06a3cf0 Mon Sep 17 00:00:00 2001 From: Bastian Bloessl Date: Mon, 20 Jan 2014 14:22:34 +0100 Subject: [PATCH] utils: add power measure script --- utils/power.R | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 utils/power.R diff --git a/utils/power.R b/utils/power.R new file mode 100644 index 0000000..e1682da --- /dev/null +++ b/utils/power.R @@ -0,0 +1,13 @@ +library(TTR) +library(ggplot2) + +### test file +in.file <- file('/tmp/ofdm.bin', 'rb') + +sig <- readBin(in.file, double(), n=10000, size=4, endian='little') + +sig <- sig[seq(1, length(sig), 2)] + 1i * sig[seq(2, length(sig), 2)] + +pow <- abs(sig)^2 + +plot(SMA(pow, 1600), type='l')