From 955f01b64c0ffa04e2df967d3642bb29683a4e00 Mon Sep 17 00:00:00 2001
From: Clemens Heuberger <clemens.heuberger@aau.at>
Date: Sat, 1 Nov 2014 21:17:11 +0100
Subject: [PATCH] Trac #17263: Reduce empirical plot to given resolution

---
 src/sage/combinat/fsm_fourier.pyx | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/src/sage/combinat/fsm_fourier.pyx b/src/sage/combinat/fsm_fourier.pyx
index 43060114aaa..2d9eda1e3c1 100644
--- a/src/sage/combinat/fsm_fourier.pyx
+++ b/src/sage/combinat/fsm_fourier.pyx
@@ -2278,10 +2278,15 @@ file in = input("%s-empirical.dat").line();
 real[][] a=in.dimension(0,0);
 a=transpose(a);
 real[] x=a[0];
-real[] y=a[1];
+real[] y_min=a[1];
+real[] y_max=a[2];
 int i;
 for(i=0; i<x.length; ++i) {
-  draw((x[i],y[i]), blue);
+  if (y_min[i] < y_max[i]) {
+    draw((x[i],y_min[i])--(x[i],y_max[i]), blue);
+  } else {
+    draw((x[i],y_min[i]), blue);
+  }
 }
 
 file in = input("%s-fourier.dat").line();
@@ -2300,17 +2305,21 @@ yaxis(Left,RightTicks(trailingzero));
         width_per_period = width/periods
         points_per_period = width_per_period * resolution
 
-        empirical = self.cache.fluctuation_empirical(
-            self.q ** start,
-            self.q ** end)
+        empirical = _reduce_resolution_(
+            self.cache.fluctuation_empirical(
+                self.q ** start,
+                self.q ** end),
+            start,
+            end,
+            int(resolution * width))
 
         fourier = self.cache.fluctuation_fourier(start,
                                                  end,
                                                  points_per_period)
 
         with open("%s-empirical.dat" % prefix, "w") as f:
-            for x, y in empirical:
-                f.write("%g %g\n" % (x, y))
+            for x, y, z in empirical:
+                f.write("%g %g %g\n" % (x, y, z))
         with open("%s-fourier.dat" % prefix, "w") as f:
             for x, y in fourier:
                 f.write("%g %g\n" % (x, y))