游程检验原理说明及相应程序

游程检验的程序及原理说明，附带部分检验数据，适合学习

clc;
clear;
% x=[4 5 8 36 58 7 9 3 44 56 88];
% y=[2 1 78 98 74 57 66 32 17];
x=[1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21];
y=[33 55 88 77 44 66 99 22];
[a m]=size（x）;[b n]=size（y）;
z=sort（[x y]）;
for i1=1:m+n
    for i2=1:m
        if z（i1）==x（i2）
            z1（i1）=0;
        end
    end
    for i3=1:n
        if z（i1）==y（i3）
            z1（i1）=1;
        end
    end
end
r=1;
for i=1:i1-1;
    j=i+1;
    if z1（i）~=z1（j）
        r1=1;
        r=r+r1;%计算R
    end
end
r
z1
w（::1）=[4 5 5 5 6 6 6 6 6 7 7 7 7;5 5 5 6 6 6 7 7 7 7 8 8 8;5 6 6 7 7 7 8 8 8 9 9 9 9;5 6 6 7 7 7 8 8 8 9 9 9 9;6 6 7 7 7 8 8 8 9 9 9 10 10;6 6 7 7 8 8 9 9 9 10 10 10 10;];
w（::2）=[14 14 15 15 16 16 16 16 17 17 17 17 17;14 15 16 16 16 17 17 18 18 18 18 18 18;15 16 16 17 17 1

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1321  2018-01-01 14:19  游程检验\youcheng.m

     文件     360343  2018-07-07 23:39  游程检验\游程检验.docx

     目录          0  2018-07-07 23:40  游程检验

----------- ---------  ---------- -----  ----

               361664                    3