a=【“壹天壹蘋果，醫生遠離我”】；
a _ space = find（ABS（a）= = 32）；
a_word=cell（長度（a _ space）+1，1）；
a _ word { 1 } = a（1:a _ space（1）-1）；
a _ word {長度（a _ space）+1 } = a（a _ space（end）+1:end）；
對於i=1:長度（a _ space）-1
a _ word { I+1 } = a（a _ space（I）+1:a _ space（I+1）-1）；
結束
%提取b中的單詞
b =【‘我想吃蘋果’”；
b _ space = find（ABS（b）= = 32）；
b_word=cell（長度（b _ space）+1，1）；
b _ word { 1 } = b（1:b _ space（1）-1）；
b _ word {長度（b _ space）+1 } = b（b _ space（end）+1:end）；
對於i=1:長度（b _ space）-1
b _ word { I+1 } = b（b _ space（I）+1:b _ space（I+1）-1）；
結束
%比較a、b
k = 1；結果=【】；
對於i=1:長度（a_word）
對於j=1:長度（b_word）
if strcmpi（a _ word { I }，b _ word { j }）= = 1
result { k } = a _ word { i }
k = k+1；
破裂
結束
結束
結束
n =長度（結果）
disp（結果）；
N =
2
壹個“蘋果”