carrier_modulations.m

国外大学的同志作出来的好程序

function packet_rf_data=carrier_modulations(packet_data, carrier_freq, sampling_rate, symbol_rate, ps_filter);
%pulse shaping and carrier modulations
%
%
%make packet_data a colum vector
if size(packet_data, 2)>1,
    packet_data=packet_data.';
end

%upsampling of the data
upsampling_rate=sampling_rate/symbol_rate;
upsampled_data=upsample(packet_data, upsampling_rate);

%pulse-shaping
shaped_data=conv(upsampled_data, ps_filter);
if size(shaped_data, 2)>1,
    shaped_data=shaped_data.';
end

%RF-modulation
time_vector=[1:length(shaped_data)].'/sampling_rate;
packet_rf_data=real(shaped_data.* exp(2*pi*sqrt(-1)*(carrier_freq)*time_vector));

packet_rf_data=packet_rf_data/max(abs(packet_rf_data));