FreeDV
/
codec2
mirror of https://github.com/drowe67/codec2.git
1
0
Fork 0
Code Issues Releases Wiki Activity

tcohpsk running without fading raw files

ms-warning-cleanup-2
drowe67 2023-07-13 12:25:50 +09:30 committed by David Rowe
parent 276b510f12
commit 2e89c91d45
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
octave/channel_lib.m
View File

@ -1,4 +1,4 @@
% channel.m % channel_lib.m
% %
% Commonly used channel simulation functions % Commonly used channel simulation functions

12
octave/tcohpsk.m
View File

@ -1,7 +1,7 @@
% tcohpsk.m % tcohpsk.m
% David Rowe Oct 2014 % 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 % 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 % 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.ct = 4;
acohpsk.ftrack_en = ftrack_en; acohpsk.ftrack_en = ftrack_en;
[spread spread_2ms hf_gain] = init_hf_model(Fs, frames*acohpsk.Nsymbrowpilot*afdmdv.M); if fading_en
hf_n = 1; [spread spread_2ms hf_gain] = init_hf_model(Fs, frames*acohpsk.Nsymbrowpilot*afdmdv.M);
nhfdelay = floor(hf_delay_ms*Fs/1000); hf_n = 1;
ch_fdm_delay = zeros(1, acohpsk.Nsymbrowpilot*M + nhfdelay); nhfdelay = floor(hf_delay_ms*Fs/1000);
ch_fdm_delay = zeros(1, acohpsk.Nsymbrowpilot*M + nhfdelay);
end
% simulated SSB tx filter % simulated SSB tx filter