52 |
|
|
53 |
class type environmentType = |
class type environmentType = |
54 |
object |
object |
|
|
|
55 |
(** |
(** |
56 |
Displays a string on _channel. |
Displays a string on _channel. |
57 |
*) |
*) |
65 |
*) |
*) |
66 |
method setVerbosity : int-> unit |
method setVerbosity : int-> unit |
67 |
|
|
68 |
|
(** |
69 |
|
A set*. |
70 |
|
Sets the random limit for the weights generation |
71 |
|
*) |
72 |
|
method setRandLimit : float -> unit |
73 |
|
|
74 |
|
(** |
75 |
|
A get*. |
76 |
|
Gets the random limit for the weights generation |
77 |
|
*) |
78 |
|
method getRandLimit : float |
79 |
end |
end |
80 |
|
|
81 |
(** |
(** |
90 |
val mutable _verbosity = 0 |
val mutable _verbosity = 0 |
91 |
|
|
92 |
(** |
(** |
93 |
|
The weights random generator limit. |
94 |
|
*) |
95 |
|
val mutable _randLimit = 2.0 |
96 |
|
|
97 |
|
(** |
98 |
The channel on which LibNN is supposed to display its information. |
The channel on which LibNN is supposed to display its information. |
99 |
*) |
*) |
100 |
val mutable _channel = stderr |
val mutable _channel = stderr |
109 |
*) |
*) |
110 |
method setVerbosity newval = _verbosity <- newval |
method setVerbosity newval = _verbosity <- newval |
111 |
|
|
112 |
|
(** |
113 |
|
Sets the current random limit. |
114 |
|
*) |
115 |
|
method setRandLimit newval = _randLimit <- newval |
116 |
|
|
117 |
|
(** |
118 |
|
Gets the current random limit. |
119 |
|
*) |
120 |
|
method getRandLimit = _randLimit |
121 |
end |
end |
122 |
|
|
123 |
let env : environmentType option ref = ref None |
let env : environmentType option ref = ref None |