# 0.12 Appendix: a matlab program for generating prime length fft  (Page 2/3)

 Page 2 / 3

The following programs print the program statements that carry out the operation $I\otimes {D}_{k}\otimes I$ and $I\otimes {D}_{k}^{t}\otimes I$ . They are modeled after kpi in the text.

function kpi(d,g,r,c,n,Y,X,fid) % kpi(d,g,r,c,n,Y,X,fid);% Kronecker Product : A(d(1)) kron ... kron A(d(n)) % g : permutation of 1,...,n% r : [r(1),...,r(n)] % c : [c(1),..,c(n)]% r(i) : rows of A(d(i)) % c(i) : columns of A(d(i))% n : number of terms for i = 1:na = 1; for k = 1:(g(i)-1)if i>find(g==k) a = a * r(k);else a = a * c(k);end endb = 1; for k = (g(i)+1):nif i>find(g==k) b = b * r(k);else b = b * c(k);end end% Y = (I(a) kron A(d(g(i))) kron I(b)) * X; if i == 1S1 = sprintf([Y,' = ID%dI(%d,%d,',X,'); '],d(g(i)),a,b);S2 = sprintf(['%% ',Y,' = (I(%d) kron D%d kron I(%d)) * ',X],a,d(g(i)),b);fprintf(fid,'%-35s%s\n',S1,S2); elseif d(g(i)) ~= 1S1 = sprintf([Y,' = ID%dI(%d,%d,',Y,'); '],d(g(i)),a,b);S2 = sprintf(['%% ',Y,' = (I(%d) kron D%d kron I(%d)) * ',Y],a,d(g(i)),b);fprintf(fid,'%-35s%s\n',S1,S2); endend function kpit(d,g,r,c,n,Y,X,fid) % kpit(g,r,c,n,Y,X,fid);% (transpose) % Kronecker Product : A(d(1))' kron ... kron A(d(n))'% g : permutation of 1,...,n % r : [r(1),...,r(n)]% c : [c(1),..,c(n)] % r(i) : rows of A(d(i))'% c(i) : columns of A(d(i))' % n : number of termsfor i = 1:n a = 1;for k = 1:(g(i)-1) if i>find(g==k) a = a * r(k);else a = a * c(k);end endb = 1; for k = (g(i)+1):nif i>find(g==k) b = b * r(k);else b = b * c(k);end end% x = (I(a) kron A(d(g(i)))'' kron I(b)) * x; if i == nS1 = sprintf([Y,' = ID%dtI(%d,%d,',X,'); '],d(g(i)),a,b);S2 = sprintf(['%% ',Y,' = (I(%d) kron D%d'' kron I(%d)) * ',X],a,d(g(i)),b);fprintf(fid,'%-35s%s\n',S1,S2); elseif d(g(i)) ~= 1S1 = sprintf([X,' = ID%dtI(%d,%d,',X,'); '],d(g(i)),a,b);S2 = sprintf(['%% ',X,' = (I(%d) kron D%d'' kron I(%d)) * ',X],a,d(g(i)),b);fprintf(fid,'%-35s%s\n',S1,S2); endend

## Programs for computing multiplicative constants

The following programs carry out the operation of ${F}_{{d}_{1}}\otimes \cdots \otimes {F}_{{d}_{K}}$ where $F$ is the reconstruction matrix in a linear convolution algorithm. See the appendix, Bilinear Forms for Linear Convolution.'

function u = KFt(f,r,c,u) % u = (F^t kron ... kron F^t)*u% (transpose) % f = [f(1),...,f(K)]% r : r(i) = rows of F(i) % c : c(i) = columns of F(i)% u : length(u) = prod(c); K = length(f);for i = 1:K m = prod(c(1:i-1));n = prod(r(i+1:K)); u = IFtI(f(i),r(i),c(i),m,n,u);end function y = IFtI(s,r,c,m,n,x); % y = (I(m) kron F(s)^t kron I(n))*x% (transpose) % r : rows of F(s)% c : columns of F(s) v = 0:n:n*(c-1);u = 0:n:n*(r-1); for i = 0:m-1for j = 0:n-1 y(v+i*c*n+j+1) = Ftop(s,x(u+i*r*n+j+1));end end function y = Ftop(k,x) if k == 1, y = x;elseif k == 2, y = F2t(x); elseif k == 3, y = F3t(x);elseif k == 4, y = F4t(x); elseif k == 6, y = F6t(x);elseif k == 8, y = F8t(x); elseif k == 18, y = F18t(x);end`

The following programs carry out the operation of ${G}_{{p}_{1}^{{e}_{1}}}\otimes \cdots \otimes {G}_{{p}_{K}^{{e}_{K}}}$ were $G$ is given by Equation 13 and Equation 14 from Bilinear Forms for Circular Convolution .

How we are making nano material?
what is a peer
What is meant by 'nano scale'?
What is STMs full form?
LITNING
scanning tunneling microscope
Sahil
what is Nano technology ?
write examples of Nano molecule?
Bob
The nanotechnology is as new science, to scale nanometric
brayan
nanotechnology is the study, desing, synthesis, manipulation and application of materials and functional systems through control of matter at nanoscale
Damian
Is there any normative that regulates the use of silver nanoparticles?
what king of growth are you checking .?
Renato
What fields keep nano created devices from performing or assimulating ? Magnetic fields ? Are do they assimilate ?
why we need to study biomolecules, molecular biology in nanotechnology?
?
Kyle
yes I'm doing my masters in nanotechnology, we are being studying all these domains as well..
why?
what school?
Kyle
biomolecules are e building blocks of every organics and inorganic materials.
Joe
anyone know any internet site where one can find nanotechnology papers?
research.net
kanaga
sciencedirect big data base
Ernesto
Introduction about quantum dots in nanotechnology
what does nano mean?
nano basically means 10^(-9). nanometer is a unit to measure length.
Bharti
do you think it's worthwhile in the long term to study the effects and possibilities of nanotechnology on viral treatment?
absolutely yes
Daniel
how to know photocatalytic properties of tio2 nanoparticles...what to do now
it is a goid question and i want to know the answer as well
Maciej
Abigail
for teaching engĺish at school how nano technology help us
Anassong
How can I make nanorobot?
Lily
Do somebody tell me a best nano engineering book for beginners?
there is no specific books for beginners but there is book called principle of nanotechnology
NANO
how can I make nanorobot?
Lily
what is fullerene does it is used to make bukky balls
are you nano engineer ?
s.
fullerene is a bucky ball aka Carbon 60 molecule. It was name by the architect Fuller. He design the geodesic dome. it resembles a soccer ball.
Tarell
what is the actual application of fullerenes nowadays?
Damian
That is a great question Damian. best way to answer that question is to Google it. there are hundreds of applications for buck minister fullerenes, from medical to aerospace. you can also find plenty of research papers that will give you great detail on the potential applications of fullerenes.
Tarell
what is the Synthesis, properties,and applications of carbon nano chemistry
Mostly, they use nano carbon for electronics and for materials to be strengthened.
Virgil
is Bucky paper clear?
CYNTHIA
carbon nanotubes has various application in fuel cells membrane, current research on cancer drug,and in electronics MEMS and NEMS etc
NANO
how did you get the value of 2000N.What calculations are needed to arrive at it
Privacy Information Security Software Version 1.1a
Good
Got questions? Join the online conversation and get instant answers! By By    By Prateek Ashtikar By  By 