blob: 4e94e5b84eb17931216273f9a456f8eeeeb1cf69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Fix errors caused by wrong parameter type:
* File "mathexpr.ml", line 423, characters 55-56:
* Error: This expression has type int but an expression was expected of type
* float
--- flashdot-1.1.4/mathexpr/mathexpr.ml
+++ flashdot-1.1.4/mathexpr/mathexpr.ml
@@ -419,7 +419,6 @@
| "NegativeBinomial" ->
let p = float'_of_string (aod cont_type "P" "1.0") in
let n = float'_of_string (aod cont_type "N" "1.0") in
- (*uncomment this for ocamlgsl > 0.5 ::::let n = int_of_float n in::::*)
fun () -> foi (Gsl_randist.negative_binomial rng p n)
| "Pascal" ->
let p = float'_of_string (aod cont_type "P" "1.0") in
@@ -4094,7 +4093,6 @@
| "NegativeBinomialPDF" ->
let p = float'_of_string (aod cont_type "P" "1.0") in
let n = float'_of_string (aod cont_type "N" "1.0") in
- (*uncomment this for ocamlgsl > 0.5 ::::let n = int_of_float n in::::*)
fun x -> Gsl_randist.negative_binomial_pdf (int_of_float x) p n
| "PascalPDF" ->
let p = float'_of_string (aod cont_type "P" "1.0") in
|
GitWeb
