. Kgi=kreo, length(cycg2_ddl),length(cycg2_ddl)+1:length(cycg2_ddl)+... length(vect_int))

. Kgd=kreo, 1:length(cycg2_ddl),length(cycg2_ddl)+length(vect_int)+1:end)

K. Kgd, M. Kid, and L. File=, Blocs_harmonique_',num2str(nd)] save (file

. F=sqrt, 2/pi; clear K_0 M_0 nd=28; nd file=['Blocs_harmonique_',num2str(nd)] save (file