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
Thank you for your attention!
--Julian Stoev