1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
(* ocamlgsl - OCaml interface to GSL *)
(* Copyright (©) 2002-2005 - Olivier Andrieu *)
(* distributed under the terms of the GPL version 2 *)
(** Vector of floats implemented with a [float array] *)
type double_vector_flat = private {
data : float array;
off : int;
len : int;
stride : int;
}
type vector = double_vector_flat
val check : vector -> vector
(** @raise Failure if [off], [len] or [stride] designate an invalid
subvector of [data] *)
(** {3 Operations} *)
val create : ?init:float -> int -> vector
val of_array : float array -> vector
val to_array : vector -> float array
val length : vector -> int
val get : vector -> int -> float
val set : vector -> int -> float -> unit
val set_all : vector -> float -> unit
val set_zero : vector -> unit
val set_basis : vector -> int -> unit
val memcpy : src:vector -> dst:vector -> unit
val copy : vector -> vector
val swap_element : vector -> int -> int -> unit
val reverse : vector -> unit
external add : vector -> vector -> unit
= "ml_gsl_vector_add"
external sub : vector -> vector -> unit
= "ml_gsl_vector_sub"
external mul : vector -> vector -> unit
= "ml_gsl_vector_mul"
external div : vector -> vector -> unit
= "ml_gsl_vector_div"
external scale : vector -> float -> unit
= "ml_gsl_vector_scale"
external add_constant : vector -> float -> unit
= "ml_gsl_vector_add_constant"
external is_null : vector -> bool
= "ml_gsl_vector_isnull"
external max : vector -> float
= "ml_gsl_vector_max"
external min : vector -> float
= "ml_gsl_vector_min"
external minmax : vector -> float * float
= "ml_gsl_vector_minmax"
external max_index : vector -> int
= "ml_gsl_vector_maxindex"
external min_index : vector -> int
= "ml_gsl_vector_minindex"
external minmax_index : vector -> int * int
= "ml_gsl_vector_minmaxindex"
(** {3 No-copy operations} *)
val subvector : ?stride:int -> vector -> off:int -> len:int -> vector
val view_array :
?stride:int -> ?off:int -> ?len:int -> float array -> vector
|
