diff --git a/vegas.mm b/vegas.mm index 1135d8b98e2026c29e1dc27c106656004baaaeb4..e5d24e6c869c1b27494983c431157080f91ef32a 100644 --- a/vegas.mm +++ b/vegas.mm @@ -651,10 +651,10 @@ exporter[stream_OutputStream, {content__Rule}, intsize_Integer: 4] := Module[{ (* delta to array with OU bins *) delta = Join[{1}, ConstantArray[delta, nrbins], {1}]; - quant[[i ;; nrq nrbins + 2 ;; nrq]] = delta iteration histogram[[;; , 2]]; + quant[[i ;; nrq (nrbins + 2) ;; nrq]] = delta iteration histogram[[;; , 2]]; If[And @@ EqualTo[0] /@ histogram[[;; , 3]], - quant[[nrq (nrbins + 2) + i ;; ;; nrq]] = quant[[i ;; nrq nrbins + 2 ;; nrq]]^2/iteration + quant[[nrq (nrbins + 2) + i ;; ;; nrq]] = quant[[i ;; nrq (nrbins + 2) ;; nrq]]^2/iteration (*else*), quant[[nrq (nrbins + 2) + i ;; ;; nrq]] = delta^2 iteration ( histogram[[;; , 3]]^2 (-1 + iteration) + histogram[[;; , 2]]^2