message = 'mytextmsg'; %input('Enter the message word: ', 's');
% Convert message to binary
binaryMessage = reshape(dec2bin(message, 8).', 1, 8 * length(message));
% Ensure the binary message has length N (pad with zeros or truncate if necessary)
N = 32;
signal = [];
carrier = [];
T = 180;
t = 0:2*pi/(T-1):2*pi; % Creating 180 samples for one cosine
binaryMessage = binaryMessage(1:N);
% Convert binary message to numeric values (0 and 1)
s = double(binaryMessage) - '0';
% Display the binary message
disp('Binary Message:');
disp(binaryMessage);
% Plot the binary message
subplot(3,1,1);
stem(1:length(s), s); % Use length(s) as the x-axis to match the length of s
set(gca,'XTick',1:N);
title('Binary information');
% Generation of bit pattern/bit stream (Polar NRZ type)
for k = 1:N
if s(1, k) == 0
sig = -ones(1, T); % T no. of MINUS ONES for bit 0
else
sig = ones(1, T); % T no. of ONES for bit 1
end
c = cos(t);
carrier = [carrier c];
signal = [signal sig];
end
bpsk_sig = signal .* carrier; % Modulating the signal
plot(1:N*T, bpsk_sig);
