📄 qpsk.m
字号:
From: <由 Microsoft Internet Explorer 5 保存>
Subject:
Date: Tue, 6 Jan 2009 20:01:36 +0800
MIME-Version: 1.0
Content-Type: text/html;
charset="gb2312"
Content-Transfer-Encoding: 7bit
Content-Location: http://www.mathworks.com/matlabcentral/fx_files/18406/1/quad.m
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5579
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.5726" name=GENERATOR></HEAD>
<BODY><PRE>f=1000000;
len=length(b);
t=0:1/999:1;
qcar=[];icar=[]; %initialize in-phase and quadrature carriers
ic=[];qc=[]; %initialize in-phase and quadrature components;
for n=1:2:len
if b(n)==0 & b(n+1)==0;
temp=-1/sqrt(2)*ones(1,1000);
temp1=-1/sqrt(2)*ones(1,1000);
elseif b(n)==0 & b(n+1)==1;
temp=-1/sqrt(2)*ones(1,1000);
temp1=1/sqrt(2)*ones(1,1000);
elseif b(n)==1 & b(n+1)==0;
temp=1/sqrt(2)*ones(1,1000);
temp1=-1/sqrt(2)*ones(1,1000);
elseif b(n)==1 & b(n+1)==1;
temp=1/sqrt(2)*ones(1,1000);
temp1=1/sqrt(2)*ones(1,1000);
end
i=cos(2*pi*f*t);
q=sin(2*pi*f*t);
ic=[ic temp];
qc=[qc temp1];
icar=[icar i];
qcar=[qcar q];
end
qpsk=ic.*icar+qc.*qcar
plot(qpsk);</PRE></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -