Working Kerr effect; PDM; speedups; removed unused files

[4yp.git] / txFilter.m

function x = txFilter(modData, rolloff, span, sps)
  %% Transmitter pulse-shaping (root raised cosine) filter.
  %% Inputs:
  %%  - modData: modulated data
  %%  - rolloff: rolloff factor in root raised cosine filter.
  %%  - span: filter span (number of symbols)
  %%  - sps: samples per symbol
  %% Output:
  %%  - x: pulse-shaped waveform

  txfilter = comm.RaisedCosineTransmitFilter...
               ('Shape', 'Square root', ...
                'RolloffFactor', rolloff, ...
                'FilterSpanInSymbols', span, ...
                'OutputSamplesPerSymbol', sps, ...
                'Gain', sqrt(sps)); % so that output has energy 1

  coef = coeffs(txfilter);
  filter_fft = fft(coef.Numerator, length(modData) * sps);
  modData_fft = fft(upsample(modData, sps));
  x = ifft(modData_fft .* filter_fft.');
  l = (length(coef.Numerator) - 1) / 2;
  x = [x(l:end); x(1:l-1)];
end