This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/cplint/rib/hmml2.rules

45 lines
834 B
Plaintext
Raw Normal View History

2011-10-22 15:33:04 +01:00
/* Execution time 72.732000 LogSize 26.931472 Final I 14.929189
setting(setrand,rand(1230,45,123)).
setting(logsize_fraction,0.9).
setting(delta,-10).
setting(epsilon_fraction,100).
setting(max_rules,6000).
setting(depth_bound,inf).
setting(minimal_step,0.005).
setting(maximal_step,0.1).
setting(sample_size,478).
setting(verbosity,3).
*/
failure(B) :-
hmmf(B,[r0],C,2),
C>=1000.
success(B) :-
hmmf(B,[r0],C,2),
C<1000.
hmmf([p|B],C,D,E):0.280793 ; hmmf([s|B],C,F,E):0.719207 :-
E>0,
C=[r0|G],
tr(C,H),
I is E-1,
hmmf(B,[H|C],J,I),
D is J+900,
F is J+400.
hmmf([s|B],C,D,E):0.550416 ; hmmf([h|B],C,F,E):0.449584 :-
E>0,
C=[r1|G],
tr(C,H),
I is E-1,
hmmf(B,[H|C],J,I),
D is J+500,
F is J+400.
hmmf([],B,0,0).
tr([r0|B],r0):0.459350 ; tr([r0|B],r1):0.540650.
tr([r1|B],r0):0.508370 ; tr([r1|B],r1):0.491630.