基于C-C算法求解延迟时间和嵌入维数附matlab代码

%function [s,delt_s,s_cor]=C_CMethod(data) %this function calculate time delay and embedding demension with C-C %Method,which proved by H.S.Kim %skyhawk&flyinghawk % %****************调试程序段**************************** % clear all; % data=load('f:/sunpot/year sunpot number.txt'); % %************************************************ clc; clear; %data1=[0;0;0;0;0;0;0;0;0;0;0;0;1;0;1;1;1;1;1;0;2;0;0;0;0;0;2;0;0;0;0;4;0;0;1;1;0;0;0;0;0;0;0;2;26;55;36;43;17;20;9;9;6;7;8;7;1;0;0;1;1;4;23;8;9;18;15;15;5;8;13;25;40;20;13;17;9;6;5;7;3;0;0;2;1;3;1;5;7;5;13;8;3;3;3;11;12;9;2;4;1;1;2;2;0;1;0;0;0;1;1;1;1;2;3;1;0;0;0;1;2;0;2;1;1;2;0;0;0;0;1;0;0;1;0;1;0;0;2;0;1;2;1;0;1;0;3;0;2;0;0;1;0;0;0;0;0;0;1;1;1;0;1;2;0;0;1;0;0;0;0;1;0;1;0;0;0;0;0;0;0;0;0;0;1;1;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0]; %data2=[1;0;0;0;0;0;0;0;0;0;0;0;0;1;0;1;0;0;3;1;0;1;0;0;0;0;0;0;0;0;0;1;4;0;0;0;1;0;3;0;0;2;2;2;2;0;2;2;0;0;0;0;0;0;1;4;2;2;8;7;2;2;4;0;2;2;0;6;2;5;1;6;6;6;0;0;0;0;2;1;21;5;5;0;8;8;16;33;66;47;47;25;20;29;22;8;29;4;5;7;0;17;28;63;126;140;148;160;24;60;64;70;61;93;67;56;40;37;26;19;25;7;3;2;3;6;19;21;41;49;56;41;27;39;54;77;72;130;83;47;39;30;24;14;18;6;1;0;0;0;13;13;28;31;34;27;20;23;24;22;21;300;245;109;74;52;47;28;95;6;1;3;3;7;34;85;116;130;448;121;69;94;116;137;168;353;279;196;125;98;82;40;43;10;1;1;1;8;39;51;79;76;47;46;35;23;26;35;40;50;40;37;14;33;34;25;20;6;1;1;2;2;7;9;21;13;20;22;12;17;15;21;32;15;15;20;8;19;7;7;8;5;0;0;2;1;6;11;25;42;30;18;10;11;23;25;49;34;13;13;11;14;11;3;3;1;1;2;0;0;2;7;15;18;20;12;12;2;9;8;17;23;26;28;13;10;6;0;7;3;0;2;6;10;12;51;67;77;23;34;29;28;25;31;12;24;15;2;16;5;4;27;9;0;2;1;0;0;2;2;3;7;6;3;4;3;0;8;3;9;10;3;0;1;0;1;7;0;1;0;3;4;4;4;1;5;6;3;1;0;6;1;6;10;7;6;4;11;9;1;3;0;0;1;0;0;1;2;3;1;2;3;0;1;1;2;2;4;2;5;1;0;2;0;0;0;0;0;0;0;0;1;1;1;0;1;1;2;1;4;0;2;2;2;1;0;5;0;1;0;1;0;0;0;6;2;3;1;1]; %data3=[0;0;0;0;0;0;0;6;146;142;83;66;55;186;61;30;25;14;14;45;3;1;1;1;2;8;16;32;17;15;13;5;5;1;5;5;3;5;1;1;0;3;0;3;2;0;0;0;1;1;3;8;4;3;2;2;1;0;0;0;0;1;0;0;1;0;1;1;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;2;0;0;0;0;0;0;0;0;0;1;1;1;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;2;1;0;0;0;0;2;0;0;0;0;0;0;1;0;0;0;0;0;0;0;1;1;0;0;0;0;1;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0]; %data4=[1;0;0;0;0;0;0;0;0;0;0;1;0;0;2;0;2;1;0;1;1;1;0;0;1;0;0;0;0;0;0;0;0;2;2;4;2;0;2;2;2;3;3;3;5;5;1;1;4;0;0;0;1;0;2;2;6;21;38;84;79;61;46;45;42;44;50;41;48;20;18;16;18;2;0;0;0;2;16;35;29;47;42;49;40;20;47;45;72;131;74;72;56;34;19;4;9;0;0;0;0;4;2;11;11;17;37;27;25;13;18;28;37;60;46;34;20;15;16;5;6;0;0;0;0;2;2;0;8;9;10;12;10;8;14;9;29;35;30;23;19;12;5;6;4;0;0;0;0;3;2;2;7;10;8;12;6;1;6;5;9;17;5;6;11;7;6;2;1;0;0;0;0;0;1;0;1;4;4;3;2;0;0]; %data5=[0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;2;4;1;3;4;0;0;1;0;0;1;0;0;0;0;0;0;0;1;0;2;3;8;12;5;12;18;5;7;9;1;5;5;2;4;2;3;1;0;1;0;0;3;10;8;5;9;25;7;4;4;3;1;3;2;1;5;12;2;1;6;2;2;0;5;0;0;3;5;6;2;2;1;2;2;1;0;1;1;1;0;0;2;0;0;0;0;0;0;0;1;2;0;1;2;1;0;1;0;2;5;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;1;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0]; %data6=[0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;2;0;0;0;8;11;10;9;2;4;5;2;3;5;2;0;0;0;0;0;1;4;2;0;3;4;3;0;0;2;2;2;6;6;0;0;0;3;4;4;2;0;0;0;0;4;7;13;11;10;23;23;8;15;14;8;19;9;2;5;7;2;0;1;0;0;0;0;0;4;1;6;0;1;3;5;2;1;0;0;0;0;0;0;0;1;0;2;0;0;0;0;0;0;0;1;2;5;23;13;15;7;11;20;16;6;3;5;6;3;3;7;2;1;1;1;3;0;11;13;7;10;7;3;8;3;13;10;7;0;1;6;9;5;3;1;0;2;0;1;3;0;7;10;6;10;10;9;6;6;7;8;7;3;1;2;5;1;0;2;1;2;1;1;0;0;8;5;3;3;2;1;1;6;6]; %data7=[0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;2;1;0;0;0;0;0;1;0;2;1;2;0;1;1;0;1;0;2;1;0;0;0;0;1;1;0;0;0;0;0;0;0;0;0;0;0;0;2;0;0;0;2;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;1;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;2;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0]; %data8=[1;0;0;0;1;0;0;2;1;1;0;2;0;0;0;2;0;1;0;0;0;0;0;0;7;1;0;0;1;0;1;0;0;0;0;1;0;0;0;0;3;1;0;0;0;0;0;0;5;0;0;1;0;0;0;0;0;0;0;0;0;0;0;10;77;28;13;1;1;0;4;15;19;47;43;57;30;28;20;11;11;10;19;13;14;78;35;22;12;7;11;0;5;7;1;4;8;20;43;28;21;15;8;8;3;13;18;15;6;2;6;5;3;0;2;0;0;0;0;0;2;0;0;0;1;2;5;2;2;1;1;2;0;2;2;1;0;0;3;0;0;0;0;0;1;0;4;0;0;0;1;0;0;0;1;0;1;2;0;2;2;0;1;0;0;0;0;0;0;0;1;2;0;3;0;0;0;0;1]; %data9=[0;0;3;2;4;3;5;4;1;3;0;7;1;1;1;2;54;178;158;232;152;44;30;17;12;23;86;198;271;203;280;218;143;580;307;208;174;132;129;69;60;117;90;64;40;16;3;4;4;13;42;90;108;99;67;50;39;21;32;41;53;100;55;39;26;20;17;11;11;2;0;1;0;0;5;7;14;11;10;10;4;3;9;9;10;8;11;8;8;6;5;2;4;0;0;0;0;1;2;2;1;2;4;2;4;4;1;1;0;3;1;3;3;3;4;0;3;1;0;0;0;0;2;5;3;10;5;2;5;4;2;2;7;3;0;2;1;3;3;0;1;0;0;0;0;0;0;1;2;4;1;0;0;4;3;2;2;3;5;0;1;1;10;0;1;0;0;0;0;0;0;0;0;0]; %data10=[0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;15;21;9;2;2;0;0;0;1;0;0;0;0;0;0;1;0;0;2;0;0;1;102;58;36;16;15;5;3;1;2;2;3;2;0;0;0;0;0;0;0;3;3;3;3;5;1;2;2;4;0;2;1;0;1;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;8;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;1;2;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0]; %data11=[1;0;0;0;0;0;0;0;0;0;3;0;1;0;1;0;2;4;1;2;2;1;3;0;0;0;0;0;0;0;0;0;0;2;4;4;2;1;1;2;5;5;1;1;1;1;2;0;0;0;0;0;0;0;0;0;0;1;1;3;3;1;0;1;2;2;2;0;1;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;1;0;1;0;0;0;0;0;0;0;0;0;1;0;0;0;0;1;0;0;1;0;0;0;0;3;1;0;0;0;0;0;0;0;0;1;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;1;0;0;0;1;0;0]; %data12=[0;0;0;0;0;0;0;0;0;0;0;4;8;10;4;3;3;4;6;2;3;5;1;4;1;0;0;1;0;1;0;2;1;7;5;1;4;1;2;1;3;5;2;1;1;1;1;0;0;0;0;0;0;0;0;0;2;6;0;4;3;0;2;4;3;2;1;2;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;1;0;0;0;0;1;0;0;0;1;0;0;0;0;0;0;0;0;0;0;1;0;0;0;1;1;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;2;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;7;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0]; %data13=[0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;8;13;8;5;3;8;2;0;3;1;2;3;0;0;1;0;0;0;0;3;2;2;3;1;0;1;0;0;0;1;1;1;1;0;2;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0]; %data14=[0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;3;2;21;36;17;8;5;0;0;0;1;5;22;35;25;14;19;7;4;3;6;10;9;1;4;3;0;5;2;0;0;0;0;1;0;0;0