Chaotic_code/inverse_tables2.m

   1 function inv_perm_tabs= inverse_tables2(tab)\r
   2 tab2=reshape(tab,1,[]);\r
   3 le=length(tab2);\r
   4 inv_perm_tabs=zeros(1,le);\r
   5 for ir = 1 :le\r
   6     inv_perm_tabs(tab2(ir)) = ir ;\r
   7 end\r
   8 %inv_perm_tabs=reshape(inv_perm_tabs,size(tab,1),size(tab,2));\r