User Portlet User Portlet

Discussions
I am fascinated by this system , especially this simple visualization. But I still do not understand , how is that possible ? Is it the symbolism ? Or how can this be so well calculated and displayed.
Thanks it helps me much. Nice WORK !!! 
OK i found it :f=Fourier[PadRight[my_list,n,0.]]
Thank you very much!