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')