chanicon.m

数字通信第四版原书的例程

function [x,y] = chanicon

%       Copyright (c) 1996 by The MathWorks, Inc.
%       $Revision: 1.1 $  $Date: 1996/04/01 19:32:04 $

x = [05 15 10 10 05 10 18 14 13 7.5  13];
y = [70 70 70 85 92 85 79 82 90 88.5 90];
x1 = [13 50 50 87 82];
y1 = [90 95 85 90 89];
x1=[82 82 87 82 82 87];
y1=[90 93 90 87 93 90];
x1=[41 44 47 50 53 57 59];
y1=[90 87 93 87 93 87 90];
x = [x x1 100-x(length(x):-1:1)];
y = [y y1 y(length(y):-1:1)];
%plot(0,0,100,100,x, y)