m:=2;N:=2^m;

IiIj

IiIl

for i from 0 to N-1 do f[i]:=i+1; od;

IiIi

IiIj

IiIk

IiIl

W:=evalf(exp(-2*I*Pi/N));

XiMkISIiIiIh

for d from 0 to 1 do w:=W^(2*d); for b from 0 to 1 do X[2*b+d] := f[b] + w*f[2+b]; od; od; for i from 0 to N-1 do print(X[i]);od;

JCIiIiIiIQ==

JCEiIiIiIQ==

JCIiJSIiIQ==

JCEiIyIiIQ==

JCIiJyIiIQ==

JCEiIyIiIQ==

for c from 0 to 1 do for d from 0 to 1 do F[2*c+d] := add(X[2*b+d]*W^(b*(2*c+d)),b=0..1);print(2*c+d,F[2*c+d]); od;od;

NiQiIiEkIiM1RiM=

NiQiIiJeJCQhIiMiIiEkIiIjRic=

NiQiIiMkISIjIiIh

NiQiIiReJCQhIiMiIiFGJQ==

L:=[seq ([i,f[i]],i=0..N-1)];

NyY3JCIiISIiIjckRiUiIiM3JEYnIiIkNyRGKSIiJQ==

plot(L):plot(Lm,style=point,symbol=box);

LSUlUExPVEc2KC0lJ0NVUlZFU0c2JDdTNyQkISQrIiEiIiQhJCsiISIiNyQkITFubW07cDBrJiohIzokITFubW07cDBrJiohIzo3JCQhMUxMJDM8WFo9KiEjOiQhMUxMJDM8WFo9KiEjOjckJCExbW1tVCVwImUoKSEjOiQhMW1tbVQlcCJlKCkhIzo3JCQhMW5tbSI0bShHJCkhIzokITFubW0iNG0oRyQpISM6NyQkITFMTCQzaS45IXohIzokITFMTCQzaS45IXohIzo3JCQhMW5tOy9SPTB2ISM6JCExbm07L1I9MHYhIzo3JCQhMSwrXVA4I1w0KCEjOiQhMSwrXVA4I1w0KCEjOjckJCExbW07L3NpcW0hIzokITFtbTsvc2lxbSEjOjckJCExKioqKlwoeSRwWmkhIzokITEqKioqXCh5JHBaaSEjOjckJCExTExMJHlhRSJlISM6JCExTExMJHlhRSJlISM6NyQkITFtbW0iPnMlSGEhIzokITFtbW0iPnMlSGEhIzo3JCQhMiYqKioqKipcJCo0KSpcISM7JCEyJioqKioqKlwkKjQpKlwhIzs3JCQhKkRiXGMlISIpJCEqRGJcYyUhIik3JCQhKmxTdjklISIpJCEqbFN2OSUhIik3JCQhMmptbVQ/KVtvUCEjOyQhMmptbVQ/KVtvUCEjOzckJCExTExMJD1leEokISM6JCExTExMJD1leEokISM6NyQkITJGTExMdElmJEghIzskITJGTExMdElmJEghIzs3JCQhLHZqdTxcIyEjNSQhLHZqdTxcIyEjNTckJCEyT0xMTEJAJyk0IyEjOyQhMk9MTExCQCcpNCMhIzs3JCQhMigpKioqXFAncHNtIiEjOyQhMigpKioqXFAncHNtIiEjOzckJCEyIyoqKipcNzRfYzchIzskITIjKioqKlw3NF9jNyEjOzckJCExOkxMJDN4JXojKSEjOyQhMTpMTCQzeCV6IykhIzs3JCQhMExMJDNzJFFNJSEjOiQhMExMJDNzJFFNJSEjOjckJCExXm9tbTt6cikqISM9JCExXm9tbTt6cikqISM9NyQkIjJPTUwkZXp3NVYhIzwkIjJPTUwkZXp3NVYhIzw3JCQiMS4rK3YkUSNcIikhIzskIjEuKyt2JFEjXCIpISM7NyQkIjFOTExlIipbSDchIzokIjFOTExlIipbSDchIzo3JCQiMi0rKytxdnhsIiEjOyQiMi0rKytxdnhsIiEjOzckJCIyMSsrXV9xbjIjISM7JCIyMSsrXV9xbjIjISM7NyQkIjEsK11pJnBAWyMhIzokIjEsK11pJnBAWyMhIzo3JCQiK3ZnSEtIISIqJCIrdmdIS0ghIio3JCQiMmBtbW13YW5MJCEjOyQiMmBtbW13YW5MJCEjOzckJCIxLCsrXTJnb1AhIzokIjEsKytdMmdvUCEjOjckJCIxS0wkZVI8KmZUISM6JCIxS0wkZVI8KmZUISM6NyQkIjEtKytdKUh4ZSUhIzokIjEtKytdKUh4ZSUhIzo3JCQiMW1tO0ghby0qXCEjOiQiMW1tO0ghby0qXCEjOjckJCIyOSsrRFRPNVQmISM7JCIyOSsrRFRPNVQmISM7NyQkIjFtbW07V1RBZSEjOiQiMW1tbTtXVEFlISM6NyQkIjEqKioqXGkhKjNgaSEjOiQiMSoqKipcaSEqM2BpISM6NyQkIjFOTExMKnp5bSchIzokIjFOTExMKnp5bSchIzo3JCQiMU9MTDNOMSM0KCEjOiQiMU9MTDNOMSM0KCEjOjckJCIxcG07SFl0N3YhIzokIjFwbTtIWXQ3diEjOjckJCIxLSsrK3hHKip5ISM6JCIxLSsrK3hHKip5ISM6NyQkIjBubTs5QEJNKSEjOSQiMG5tOzlAQk0pISM5NyQkIjFPTExMYmRRKCkhIzokIjFPTExMYmRRKCkhIzo3JCQiLERPbDU7KiEjNSQiLERPbDU7KiEjNTckJCIxLStdUD9XbCYqISM6JCIxLStdUD9XbCYqISM6NyQkIiQrIiEiIiQiJCsiISIiLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJCIiISEiIiQiIiEhIiItJSVWSUVXRzYkOyQhJCsiISIiJCIkKyIhIiIlKERFRkFVTFRHLSUrQVhFU0xBQkVMU0c2JC1JI21pRzYjL0krbW9kdWxlbmFtZUc2IkksVHlwZXNldHRpbmdHSShfc3lzbGliRzYiNjVRI0xtNiIvJSdmYW1pbHlHUSE2Ii8lJXNpemVHUSMxMDYiLyUlYm9sZEdRJmZhbHNlNiIvJSdpdGFsaWNHUSV0cnVlNiIvJSp1bmRlcmxpbmVHUSZmYWxzZTYiLyUqc3Vic2NyaXB0R1EmZmFsc2U2Ii8lLHN1cGVyc2NyaXB0R1EmZmFsc2U2Ii8lK2ZvcmVncm91bmRHUShbMCwwLDBdNiIvJStiYWNrZ3JvdW5kR1EuWzI1NSwyNTUsMjU1XTYiLyUnb3BhcXVlR1EmZmFsc2U2Ii8lK2V4ZWN1dGFibGVHUSZmYWxzZTYiLyUpcmVhZG9ubHlHUSZmYWxzZTYiLyUpY29tcG9zZWRHUSZmYWxzZTYiLyUqY29udmVydGVkR1EmZmFsc2U2Ii8lK2ltc2VsZWN0ZWRHUSZmYWxzZTYiLyUscGxhY2Vob2xkZXJHUSZmYWxzZTYiLyU2c2VsZWN0aW9uLXBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lLG1hdGh2YXJpYW50R1EnaXRhbGljNiJRITYiLSUnU1lNQk9MRzYjJSRCT1hHLSUmU1RZTEVHNiMlJlBPSU5URy0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiJGciISIiLSUpQk9VTkRTX1lHNiMkIiQ/IiEiIi0lLUJPVU5EU19XSURUSEc2IyQiJUlQISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJV1QISIiLSUpQ0hJTERSRU5HNiI=