/[marvin]/marvin/src/libnn/env.ml
ViewVC logotype

Diff of /marvin/src/libnn/env.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by srv89, Thu Jul 10 20:06:52 2003 UTC revision 1.5 by matthieu, Tue Jul 15 16:50:09 2003 UTC
# Line 52  Line 52 
52    
53  class type environmentType =  class type environmentType =
54  object  object
   
55    (**    (**
56      Displays a string on _channel.      Displays a string on _channel.
57    *)    *)
# Line 66  object Line 65  object
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  (**  (**
# Line 80  object Line 90  object
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
# Line 94  object Line 109  object
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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26