utils: add power measure script

2014-01-20 14:22:34 +01:00
parent 02ab43fe16
commit ebdcdb651d
1 changed files with 13 additions and 0 deletions
@@ -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')