%求近似熵函數
function??apen=myAPEN3（input_signalinput_minput_r）?%input_signal為要求近似熵的序列，input_m為給定的模式的維數，input_r為相似容限
x?=?input_signal;
r?=?input_r*std（x）;
[input_rowinput_col]?=?size（x）;?%輸入的信號序列一般為1行n列
n?=?input_col;?%信號的點數
for?kkk=1:2
????m?=?input_m+kkk-1;
????rownum?=?n-m+1;?%構造的m維矢量的行數
????X?=?zeros（rownumm）;?%構造信號矩陣
????for?i=1:1:rownum
????????for?j=1:1:m
????????????X（ij）?=?x（i+j-1）;
????????end
????end
????sumC（kkk）?=?0;
????for?ii=1:1