Ticket #6151: laplace.patch

boost/math/distributions/laplace.hpp

@@ -213 +213 @@
    }
 
    // Cdf interval value
-   if (-x < location)
-      result = exp( (-x-location)/scale )/2;
+   if (-x < -location)
+      result = exp( (-x+location)/scale )/2;
    else
-      result = 1 - exp( (location+x)/scale )/2;
+      result = 1 - exp( (-location+x)/scale )/2;
 
    return result;
 } // cdf complement