Binary Phase Shift Keying

bpsk.m · 433 B · Mathematica Raw

1	clc;
2	clear all;
3	close all;
4	A = 5;
5	t = 0:0.001:1;
6	F1 = input ('carrier signal frequency');
7	F2 = input ('message signal frequency');
8	x = A.sin(2piF1t);
9	u = square(2piF2*t);
10	y = x.*u; subplot(3,1,1);
11	plot(t,x); xlabel('t');
12	ylabel('x(t)');
13	title('modulating signal')
14	subplot(3,1,2);
15	plot(t,u);
16	xlabel('t');
17	ylabel('u(t)');
18	title('carrier signal')
19	subplot(3,1,3);
20	plot(t,y);
21	xlabel('t');
22	ylabel('y(t)');
23	title('modulated signal')