|
RegularChains[Inequations] - list of inequations of the regular chain
|
|
Calling Sequence
|
|
Inequations(rc, R)
|
|
|
Parameters
|
|
|
rc
|
-
|
regular chain of R
|
|
R
|
-
|
polynomial ring
|
|
|
|
|
|
Description
|
|
|
•
|
The command Inequations(rc,R) returns the set of the initials of rc.
|
|
•
|
By definition, a zero of the regular chain rc is a common zero of its equations that does not cancel any of the initials of rc.
|
|
•
|
This command is part of the RegularChains package, so it can be used in the form Inequations(..) only after executing the command with(RegularChains). However, it can always be accessed through the long form of the command by using RegularChains[Inequations](..).
|
|
|
|
Examples
|
|
|
>
|
|
|
>
|
![R := PolynomialRing([x, y, a, b, c, d, g, h])](/support/helpjp/helpview.aspx?si=5366/file02679/math80.png)
|
|
| (1) |
|
>
|
|
|
| (2) |
First, we compute the generic solutions of sys, that is a triangular decomposition of the zeros of sys in the sense of Kalkbrener.
|
>
|
 
|
|
![[[c*x+y*d-h, (a*d-b*c)*y-a*h+c*g]]](/support/helpjp/helpview.aspx?si=5366/file02679/math107.png)
| (3) |
Then we compute all the solutions (generic or not), that is a triangular decomposition in the sense of Lazard. For each computed regular chain, we show its equations and inequations.
|
>
|
|
|
![dec := [regular_chain, regular_chain, regular_chain, regular_chain, regular_chain, regular_chain, regular_chain, regular_chain, regular_chain, regular_chain, regular_chain]](/support/helpjp/helpview.aspx?si=5366/file02679/math116.png)
| (4) |
|
>
|
|
|
![[[c*x+d*y-h, (d*a-b*c)*y-h*a+c*g], [c*x+d*y-h, d*a-b*c, h*b-d*g], [a*x+b*y-g, d*y-h, c], [d*y-h, a, h*b-d*g, c], [c*x-h, h*a-c*g, b, d], [a*x+b*y-g, c, d, h], [c*x+d*y, d*a-b*c, g, h], [b*y-g, a, c, d, h], [y, a, c, g, h], [x, b, d, g, h], [a, b, c, d, g, h]]](/support/helpjp/helpview.aspx?si=5366/file02679/math123.png)
| (5) |
|
>
|
|
|
![[{c, d*a-b*c}, {c, d, h}, {a, d}, {d, h}, {c, h}, {a}, {c, d}, {b}, {}, {}, {}]](/support/helpjp/helpview.aspx?si=5366/file02679/math130.png)
| (6) |
|
>
|
![[seq([eq = Equations(dec[i], R), ineq = Inequations(dec[i], R)], i = 1 .. nops(dec))]](/support/helpjp/helpview.aspx?si=5366/file02679/math134.png)
|
|
![[[eq = [c*x+d*y-h, (d*a-b*c)*y-h*a+c*g], ineq = {c, d*a-b*c}], [eq = [c*x+d*y-h, d*a-b*c, h*b-d*g], ineq = {c, d, h}], [eq = [a*x+b*y-g, d*y-h, c], ineq = {a, d}], [eq = [d*y-h, a, h*b-d*g, c], ineq = {d, h}], [eq = [c*x-h, h*a-c*g, b, d], ineq = {c, h}], [eq = [a*x+b*y-g, c, d, h], ineq = {a}], [eq = [c*x+d*y, d*a-b*c, g, h], ineq = {c, d}], [eq = [b*y-g, a, c, d, h], ineq = {b}], [eq = [y, a, c, g, h], ineq = {}], [eq = [x, b, d, g, h], ineq = {}], [eq = [a, b, c, d, g, h], ineq = {}]]](/support/helpjp/helpview.aspx?si=5366/file02679/math137.png)
| (7) |
|
|
Download Help Document
Was this information helpful?
