Thanks for all its answers.
Even nonencounter way to measure the time correctly, since {Property.get ' time.total'} or not to take care it or also is inconsistent.
Somebody can explain to me that it really measures the time shown in the Oz explorer. already law the information that appears in
 
 
but the truth I don't even understand... in addition anybody can say to me as I capture that time shown in the Oz explorer, as well as already I've captured the successful nodes, failed nodes and so on, this last one I did it using the following:
 
stat(c: ... % number of choice nodes
     s: ... % number of solved nodes
     f: ...
 % number of failed nodes
     b: ... % number of suspended nodes
     start: ... % depth of current node
     depth: ... % depth of current subtree
     shape: ... %
 describes current subtree
    )
 
and it leaves from the code is the one that follows:
 
{Explorer.object add(statistics
                                    proc {$ I R}
                                              {Inspector.inspect {Record.subtractList R [start shape b]}}
                                              T = {Record.subtractList R [start shape b]}
                                              Li = {Record.toList T}
                                              Ch = {List.nth Li 1}
                                              Depth = {List.nth Li 2}
                                              Fa = {List.nth Li 3}
                                              Su = {List.nth Li 4}
                                              F={New Open.file
                                                 init(name:'ours.txt'
                                                             flags:[write text append]
                                                             mode:mode(owner:[read write]
                                                                              group:[read write]))}
                                              {F write(vs:'\n'#Ch#'\t\t'#Fa#'\t\t'#Su#'\t\t'#Depth#'\n')}
                                              {F close}
                                    end
                                    label: 'ESCRIBIR')}
 
Thank you very much!!!




LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com
_________________________________________________________________________________
mozart-users mailing list                               
[email protected]
http://www.mozart-oz.org/mailman/listinfo/mozart-users

Reply via email to