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/CLPQR/clpq.pl
vsc e5f4633c39 This commit was generated by cvs2svn to compensate for changes in r4,
which included commits to RCS files with non-trunk default branches.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-04-09 19:54:03 +00:00

79 lines
1.9 KiB
Prolog

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% clp(q,r) version 1.3.3 %
% %
% (c) Copyright 1992,1993,1994,1995 %
% Austrian Research Institute for Artificial Intelligence (OFAI) %
% Schottengasse 3 %
% A-1010 Vienna, Austria %
% %
% File: clpq.pl %
% Author: Christian Holzbaur christian@ai.univie.ac.at %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:- module( clpq, [
{}/1,
maximize/1,
minimize/1,
inf/2, inf/4, sup/2, sup/4,
bb_inf/3,
bb_inf/5,
ordering/1,
entailed/1,
dump/3
]).
:- multifile
user:portray/1,
user:portray_message/2.
:- dynamic
user:portray/1,
user:portray_message/2.
%
user:portray( rat(A,B)) :-
nonvar( A), % during debugging ...
nonvar( B),
portray_rat( A, B).
% Must write a space before negative numbers if called e.g. in the
% context of writing F=rat(A,B).
%
portray_rat(A, B) :-
( A<0, B==1 -> write(' '), write(A)
; B==1 -> write(A)
; A<0 -> write(' '), write(A/B)
; write(A/B)
).
%
% Don't report export of private predicates from clpq
%
%
user:portray_message( warning, import(_,_,clpq,private)).
this_linear_solver( clpq).
:- use_module( 'clpq/arith_q').
:- ensure_loaded(
[
'clpq/itf3',
'clpq/store' % early because of macros
% but after itf3
]).
:- use_module( 'clpq/geler').
:- use_module( 'clpq/nfq').
:- use_module( 'clpq/class').
:- ensure_loaded(
[
'clpq/project',
'clpq/bv',
'clpq/ineq',
'clpq/redund',
'clpq/fourmotz',
'clpq/bb',
'clpq/dump'
]).