summaryrefslogtreecommitdiffstats
path: root/petascope/test/testcases-wcps/31-Discrete_Fourier.test
diff options
context:
space:
mode:
Diffstat (limited to 'petascope/test/testcases-wcps/31-Discrete_Fourier.test')
-rw-r--r--petascope/test/testcases-wcps/31-Discrete_Fourier.test23
1 files changed, 23 insertions, 0 deletions
diff --git a/petascope/test/testcases-wcps/31-Discrete_Fourier.test b/petascope/test/testcases-wcps/31-Discrete_Fourier.test
new file mode 100644
index 0000000..8fbbc07
--- /dev/null
+++ b/petascope/test/testcases-wcps/31-Discrete_Fourier.test
@@ -0,0 +1,23 @@
+for c in (rgb) return
+encode(
+
+ coverage DFT
+ over $xx x(65:70),
+ $xy y(65:70)
+ values
+ condense +
+ over $ux x(65:70),
+ $uy y(65:70)
+ using
+ c[x($ux),y($uy)]
+ *
+ cos(
+ ( -2 * (22.0/7.0) )
+ *
+ (
+ ( (double) ($ux*$xx) / (70 - 65 + 1) )
+ +
+ ( (double) ($uy*$xy) / (70 - 65 + 1 ) )
+ )
+ )
+, "jpeg")