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/132
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

87 lines
1.7 KiB
Plaintext

/tmp/clpq
yes
| ?- [library('clpqr/examples/simplex')].
{consulting /freyung/christian/sicstus2.1.9.clp/library/clpqr/examples/simplex.pl...}
{/freyung/christian/sicstus2.1.9.clp/library/clpqr/examples/simplex.pl consulted, 240 msec 15360 bytes}
yes
| ?- time(example(N,V,O)).
%%% Timing 00:00:00.020 0.020
N = 1,
O = 17200,
V = [40,160] ? ;
%%% Timing 00:00:00.040 0.040
N = 2,
O = 7,
V = [1,0,3/2] ? ;
%%% Timing 00:00:00.030 0.030
N = 3,
O = 18850,
V = [38,170] ? ;
%%% Timing 00:00:00.030 0.030
N = 4,
O = 310,
V = [7,2] ? ;
%%% Timing 00:00:00.030 0.030
N = 5,
O = 5,
V = [0,0,5/2] ? ;
%%% Timing 00:00:00.040 0.040
N = 6,
O = -7,
V = [1,0,3/2] ? ;
%%% Timing 00:00:00.110 0.110
N = 7,
O = -70,
V = [3,0,0,4,2,0,5] ? ;
%%% Timing 00:00:00.110 0.110
N = 8,
O = -39/2,
V = [0,7/2,0,0,0,1/2,0] ? ;
%%% Timing 00:00:00.410 0.410
N = 9,
O = 11429082625/9792,
V = [555967/58752,203455/39168,43955/3264,1175/272,705/68,0,60,3728575/58752,305075/4896,28375/408,2275/34,1200/17,0,0,0,0,0,24000/17] ? ;
%%% Timing 00:00:00.620 0.620
N = utility,
O = 977650/21,
V = [0,3400/21,200/7,1000/7,2000/3,0,0,0,1000,0,13400/7,13500/7,0,13900/7,4000,8350/21,45800/21,0,0,1000,500,2000,100,5000,250,600,800/7,0] ? ;
%%% Timing 00:00:00.330 0.330
N = electricity,
O = 109400/7,
V = [0,3000/7,200/7,_A,_B,0,0,0,_C,_D,_E,_F,_G,_H,1000,500,2000,100],
{_A+9/13*_G=<21400/91},
{_G>=0},
{_A>=0},
{_D=1300/7+3/2*_A+1/2*_G},
{_F=7900/7-_G},
{_H=13900/7+_G},
{_C=5700/7-3/2*_A-1/2*_G},
{_E=13400/7-_G},
{_B=3800/7-_A} ? ;
%%% Timing 00:00:00.440 0.440
N = water,
O = 23450,
V = [0,0,0,1000,0,0,50,_A,1000/3,_B,4000,0,7450/3,0,0,5000,250,600,_C,0],
{_C=5*_A},
{_A>=0},
{_B=1850/3-_A},
{_A=<200/9} ? ;
%%% Timing 00:00:00.070 0.070
no
| ?-