Fine-tuning the write-buffer proxy

Author: linas

opencog/persist/proxy/WriteBufferProxy.cc

@@ -385,14 +385,18 @@ void WriteBufferProxy::write_loop(void)
 // I guess we're good. Relax the high-water mark a bit.
 if (_high_water_mark < HIMAX)
 {
-_high_water_mark *= 5;
-_high_water_mark /= 4;
+_high_water_mark *= 17;
+_high_water_mark /= 16;
 }
 }
 else
 {
 // Oh no! Cannot keep up with the requested time limit!
 // Pause readers until the queue drains down a bit.
+// _mavg_out is how many we are able to actually write,
+// per ticker. Scaling sets a buffer size that should
+// be able to clear at exactly that rate. So this should
+// be able to hold the duty cycle to 1.0 as the mean value.
 nappy = 0;
 left = 0.0;
 double worst = fmax(_mavg_out_atoms, _mavg_out_values);