Advertisement
JoelSjogren

Untitled

Sep 27th, 2020
210
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.73 KB | None | 0 0
  1. R.<x0,y0,x1,y1,x2,y2,x3,y3,r0,r1,r2,r3> = PolynomialRing(QQ, order='lex')
  2.  
  3. def tangent(Pi, Pj):
  4. xi, yi, ri = Pi
  5. xj, yj, rj = Pj
  6. return ideal((xi-xj)^2+(yi-yj)^2-(ri+rj)^2)
  7.  
  8. P = [(x0, y0, r0),
  9. (x1, y1, r1),
  10. (x2, y2, r2),
  11. (x3, y3, r3)]
  12.  
  13. I = (tangent(P[0], P[1]) +
  14. tangent(P[0], P[2]) +
  15. tangent(P[0], P[3]) +
  16. tangent(P[1], P[2]) +
  17. tangent(P[1], P[3]) +
  18. tangent(P[2], P[3]))
  19.  
  20. G = I.groebner_basis()
  21.  
  22. """
  23. sage: G
  24. Polynomial Sequence with 65 Polynomials in 12 Variables
  25. sage: G[-1]
  26. r0^2*r1^2*r2^2 - 2*r0^2*r1^2*r2*r3 + r0^2*r1^2*r3^2 - 2*r0^2*r1*r2^2*r3 - 2*r0^2*r1*r2*r3^2 + r0^2*r2^2*r3^2 - 2*r0*r1^2*r2^2*r3 - 2*r0*r1^2*r2*r3^2 - 2*r0*r1*r2^2*r3^2 + r1^2*r2^2*r3^2
  27. """
  28.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement