suosuo.m

suoha.rar 哈梭matlab源程序

function [R,T,Skk]=suosuo(xnc,xn);
%比较大小
dxn=diff(xn);
if length(unique(xn))==5 & length(unique(dxn))==1 & length(unique(xnc))==1;
    R=8*13^2+max(xn)*13+unique(xnc);
    T=15;
    Skk='同花顺';
elseif length(unique(xn))==2 & dxn(1)+dxn(4)>0;
    R=7*13^2;
    T=10;
    Skk='铁枝(四张)';
elseif length(unique(xn))==2 & dxn(2)+dxn(3)>0;
    R=6*13^2+xn(3)*13;
    T=5;
    Skk='葫芦';
elseif length(unique(xnc))==1;
    R=5*13^2+max(xn)*13+unique(xnc);
    T=1;
    Skk='同花';
elseif length(unique(xn))==5 & length(find(dxn==1))==4;
    R=4*13^2+max(xn)*13+xnc(xn==max(xn));
    T=1;
    Skk='顺子';
elseif length(find(xn==xn(3)))==3;
    R=3*13^2+xn(3)*13;
    T=1;
    Skk='三条';
elseif length(unique(xn))==3;
    R=2*13^2+max(xn(dxn==0))*13+max(xnc(xn==max(xn(dxn==0))));
    T=1;
    Skk='兔胚';
elseif length(unique(xn))==4;
    R=13^2+max(xn(dxn==0))*13+max(xnc(xn==max(xn(dxn==0))));
    T=1;
    Skk='单胚';
else
    R=max(xn)*13+xnc(xn==max(xn));
    T=1;
    Skk='单张';
end