?? four2two.m
字號:
function xn=four2two(yn);
%
%BBI 2000
if nargin<1;[y,yn]=two2four;end;
y=yn;ymin=min(y);ymax=max(y);ymax=max([ymax abs(ymin)]);
ymin=-abs(ymax);yn=(y-ymin)*3/(ymax-ymin );
I0=find(yn<0.5); yn(I0)=zeros(size(I0));
I1=find(yn>0.5 & yn<1.5); yn(I1)=ones(size(I1));
I2=find(yn>1.5 & yn<2.5); yn(I2)=ones(size(I2))*2;
I3=find(yn>=2.5); yn(I3)=ones(size(I3))*3;
T=[0 0 ; 0 1 ; 1 1 ; 1 0 ]; n=length(yn);
for i=1:n;
xn(i,:)=T(yn(i)+1,:);
end;
xn=xn';xn=xn(:); xn=xn';
if nargout<1;disp(xn);end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -