Wrong behaviour in package Algebra`AlgebraicInequalities`

• To: mathgroup at smc.vnet.net
• Subject: [mg14845] Wrong behaviour in package Algebra`AlgebraicInequalities`
• From: Julian Stoev <stoev at usa.net>
• Date: Fri, 20 Nov 1998 02:16:54 -0500
• Organization: Seoul National University, Republic of Korea
• Sender: owner-wri-mathgroup at wolfram.com

```Dear All,

Here I will give two examples. They should give identical results, but
the second one fails. It has varaibles with subscripts.

In[44]:=
SemialgebraicComponents[{(1*L1*(L2*L1 - L12^2))/8 > 0, L12 > 0}, {L1,
L2, L12}]
Out[44]=
1
{{-1, -1, 2}, {-1, 1, 1}, {1, 1, -}}
8

In[45]:=
SemialgebraicComponents[{(1*Subscript[L, 1]*
(Subscript[L, 2]*Subscript[L, 1] - Subscript[L, 12]^2))/8 > 0,
Subscript[L, 12] > 0},
{Subscript[L, 1], Subscript[L, 2], Subscript[L, 12]}] Part::partd:
Part specification 1[[1]] is longer than depth of object.
Part::partd:
Part specification 1[[2]] is longer than depth of object.
Part::partd:
Part specification 1[[1]] is longer than depth of object.
General::stop:
Further output of Part::partd
will be suppressed during this calculation. Out[45]=
2 {{-1, -1, L}, {-1, -1,
(-1)[[1]]}, {-1, -1, -L   },
12

2
{-1, 1, L}, {-1, 1, (-1)[[1]]}, {-1, 1, -L   }, {1, -1, L},
12

2
{1, -1, 1[[1]]}, {1, -1, -L   }, {1, 1, L}, {1, 1, 1[[1]]},
12

2
{1, 1, -L   }}
12