1load_package linalg;
2
3
4
5hu := {
6   - n2 <= -1,
7   - n1 - n2 <= 0,
8   2*n1 + n2 <= 0,
9   5*n1 + 2*n2 <= 0,
10   5*n1 - n2 <= 0}$
11
12
13
14simplex(min, 0, hu);
15
16
17***** Error in simplex: Problem has no feasible solution.
18
19simplex(max, n1, hu);
20
21
22***** Error in simplex: Problem has no feasible solution.
23
24
25end;
26
27Tested on x86_64-pc-windows CSL
28Time (counter 1): 0 ms
29
30End of Lisp run after 0.00+0.06 seconds
31real 0.20
32user 0.04
33sys 0.01
34