aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Fast-Fourier-transform/POV-Ray/fast-fourier-transform.povray
View file

@ -1,24 +1,24 @@
//cmd: +w0 +h0 -F -D
//Stockham algorithm
//Inspiration: http://wwwa.pikara.ne.jp/okojisan/otfft-en/optimization1.html
// cmd: +w0 +h0 -F -D
// Stockham algorithm
// Inspiration: http://wwwa.pikara.ne.jp/okojisan/otfft-en/optimization1.html
#version 3.7;
global_settings{ assumed_gamma 1.0 }
#default{ finish{ ambient 1 diffuse 0 emission 0}}
#macro Cstr(Comp)
concat("<",vstr(2, Comp,", ",0,-1),"j>")
concat("<",vstr(2, Comp,", ",0,-1),"j> ")
#end
#macro CdebugArr(data)
#for(i,0, dimension_size(data, 1)-1)
#debug concat(Cstr(data[i]), "\n")
#debug concat(Cstr(data[i]), " ", str(Abs(data[i]),-1,-1),"\n")
#end
#end
#macro R2C(Real) <Real, 0> #end
#macro CmultC(C1, C2) <C1.x * C2.x - C1.y * C2.y, C1.y * C2.x + C1.x * C2.y>#end
#macro CmultC(C1, C2) <C1.x * C2.x - C1.y * C2.y, C1.y * C2.x + C1.x * C2.y> #end
#macro Conjugate(Comp) <Comp.x, -Comp.y> #end
@ -26,6 +26,8 @@ global_settings{ assumed_gamma 1.0 }
bitwise_and((X > 0), (bitwise_and(X, (X - 1)) = 0))
#end
#macro Abs(C) sqrt(C.x * C.x + C.y * C.y) #end
#macro _FFT0(X, Y, N, Stride, EO)
#local M = div(N, 2);
#local Theta = 2 * pi / N;