:- ensure_loaded(link_flood).

fixed_page_value(a, 10).

link_weight(a,b,1).
link_weight(a,c,0.7).
link_weight(a,d,3).
link_weight(a,c,0.3).
link_weight(b,q,50).
link_weight(c,q,0.1).



% :- (page_value(Node, Value), format(':- ~q,.~n', [page_value(Node, Value)]), fail); true.

/*
   page_value(Node, Value),
   VH is Value + 0.01,
   VL is Value - 0.01,
   format(':- page_value(~a, X), ~a < X, X < ~a.~n', [Node, VL, VH]),
   fail.

*/

go :-
	set_page_values,
	page_value(b, X), 1.58997 < X, X < 1.60997,
	page_value(d, T), 4.7899 < T, T < 4.8099,
	page_value(c, Z), 1.58997 < Z, Z < 1.60997,
	page_value(q, M), 2.54867 < M, M < 2.56867.
  