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