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/clpqr/examples/SESSION/019
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

77 lines
1.6 KiB
Plaintext

/tmp/clpr
yes
| ?- use_module(library('clpqr/monash')).
{compiling /freyung/christian/sicstus2.1.9.clp/library/clpqr/monash.pl...}
{loading /freyung/christian/sicstus2.1.9.clp/library/clpqr/printf.ql...}
{loaded /freyung/christian/sicstus2.1.9.clp/library/clpqr/printf.ql in module printf, 40 msec 27216 bytes}
{loading /freyung/christian/sicstus2.1.9.clp/library/clpqr/expand.ql...}
{loaded /freyung/christian/sicstus2.1.9.clp/library/clpqr/expand.ql in module expand, 40 msec 26832 bytes}
{/freyung/christian/sicstus2.1.9.clp/library/clpqr/monash.pl compiled, 130 msec 54848 bytes}
yes
| ?- expand, [library('clpqr/examples/monash/option')], noexpand.
{consulting /freyung/christian/sicstus2.1.9.clp/library/clpqr/examples/monash/option...}
{Warning: [B,C,P,X] - singleton variables in table/13 in lines 47-54}
{Warning: [B,P,S] - singleton variables in table/13 in lines 54-55}
{Warning: [B,C,S] - singleton variables in table/13 in lines 55-56}
{Warning: [C,P,S,X] - singleton variables in table/13 in lines 56-57}
>>> Sample goals (some with multiple answers):
go1(W), go2(S, W), go3(S, W), go4(S, W), go5(S, W)
{/freyung/christian/sicstus2.1.9.clp/library/clpqr/examples/monash/option consulted, 160 msec 10032 bytes}
yes
| ?- go1(W).
W = -4.75 ? ;
no
| ?- go2(S,W).
W = 5.25,
{S>=0.0},
{S<50.0} ? ;
{W>5.0},
{S=55.25-W},
{W=<5.25} ? ;
no
| ?- go3(S,W).
{W>=10.0},
{S=37.4-W},
{W=<37.4} ? ;
{W>=10.0},
{S=62.6+W} ? ;
no
| ?- go4(S,W).
W = 5.699999999999999,
{S>=0.0},
{S<20.0} ? ;
{S>=20.0},
{S<40.0},
{W=25.7-S} ? ;
W = -14.3,
{S>=40.0},
{S<60.0} ? ;
{S>=60.0},
{S<80.0},
{W= -74.3+S} ? ;
W = 5.699999999999999,
{S>=80.0} ? ;
no
| ?- go5(S,W).
no
| ?- ^D