From c4c98f913bf8df7bb774dceaac5f4973e5a63536 Mon Sep 17 00:00:00 2001
From: Raymond Knopp <raymond.knopp@eurecom.fr>
Date: Thu, 22 Aug 2013 08:41:19 +0000
Subject: [PATCH] added some OCTAVE scripts for OFDM generation in
 ARCH/EXMIMO/USERSPACE/OCTAVE

git-svn-id: http://svn.eurecom.fr/openair4G/trunk@4091 818b1a75-f10b-46b9-bf7c-635c3b92a50f
---
 .../ARCH/EXMIMO/USERSPACE/OCTAVE/txsig_ofdm.m | 27 +++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 targets/ARCH/EXMIMO/USERSPACE/OCTAVE/txsig_ofdm.m

diff --git a/targets/ARCH/EXMIMO/USERSPACE/OCTAVE/txsig_ofdm.m b/targets/ARCH/EXMIMO/USERSPACE/OCTAVE/txsig_ofdm.m
new file mode 100644
index 0000000000..a0c9591dbe
--- /dev/null
+++ b/targets/ARCH/EXMIMO/USERSPACE/OCTAVE/txsig_ofdm.m
@@ -0,0 +1,27 @@
+dual_tx=1;
+cbmimo1=0;
+
+if (cbmimo1)
+  oarf_config(0,1,dual_tx,255);
+  amp = pow2(7)-1;
+  n_bit = 8;
+else
+  oarf_config_exmimo(1902600000,1,dual_tx,30);
+  amp = pow2(15)-1;
+  n_bit = 16;
+end
+
+s = zeros(76800,2);
+s(:,1) = 8*floor(amp*OFDM_TX_FRAME(512,211,128,120,8));
+s(:,2) = 8*floor(amp*OFDM_TX_FRAME(512,211,128,120,8));
+
+
+%s(:,1) = amp * (exp(sqrt(-1)*.5*pi*(0:((76800)-1))));
+%s(:,2) = amp * (exp(sqrt(-1)*.5*pi*(0:((76800)-1))));
+
+if (cbmimo1)
+  oarf_set_tx_gain(110,110,110,110);
+end
+oarf_send_frame(0,s,n_bit);
+
+plot(20*log10(abs(fft(s(:,1)))))
-- 
GitLab