diff options
Diffstat (limited to 'octave')
| -rw-r--r-- | octave/channel_lib.m | 2 | ||||
| -rw-r--r-- | octave/tcohpsk.m | 12 |
2 files changed, 8 insertions, 6 deletions
diff --git a/octave/channel_lib.m b/octave/channel_lib.m index 6387d51..434f262 100644 --- a/octave/channel_lib.m +++ b/octave/channel_lib.m @@ -1,4 +1,4 @@ -% channel.m +% channel_lib.m % % Commonly used channel simulation functions diff --git a/octave/tcohpsk.m b/octave/tcohpsk.m index 00afafb..54bdeb1 100644 --- a/octave/tcohpsk.m +++ b/octave/tcohpsk.m @@ -1,7 +1,7 @@ % tcohpsk.m % David Rowe Oct 2014 % -% Octave coherent PSK modem script that hs two modes: +% Octave coherent PSK modem script that has two modes: % % i) tests the C port of the coherent PSK modem. This script loads % the output of unittest/tcohpsk.c and compares it to the output of @@ -254,10 +254,12 @@ acohpsk.f_fine_est = 0; acohpsk.ct = 4; acohpsk.ftrack_en = ftrack_en; -[spread spread_2ms hf_gain] = init_hf_model(Fs, frames*acohpsk.Nsymbrowpilot*afdmdv.M); -hf_n = 1; -nhfdelay = floor(hf_delay_ms*Fs/1000); -ch_fdm_delay = zeros(1, acohpsk.Nsymbrowpilot*M + nhfdelay); +if fading_en + [spread spread_2ms hf_gain] = init_hf_model(Fs, frames*acohpsk.Nsymbrowpilot*afdmdv.M); + hf_n = 1; + nhfdelay = floor(hf_delay_ms*Fs/1000); + ch_fdm_delay = zeros(1, acohpsk.Nsymbrowpilot*M + nhfdelay); +end % simulated SSB tx filter |