%exmple73_figure
%==============
% clf reset;
clc
% figrect=get(gcf,'Position');
% set(gcf,'Position',[figrect(1:2) 300 300]);
% clf reset
echo off

P=[-3 -2 -2 0 0 0 0 +2 +2 +3;
    0 +1 -1 +2 +1 -1 -2 +1 -1 0];
C=[1 1 1 2 2 2 2 1 1 1];

T=ind2vec(C);

clc
% figure(1)
figure('name','輸入矢量圖示','numbertitle','off');
colormap(hsv)
plotvec(P,C)
alabel('p(1)','p(2)','Input Vectors')