Changeset ddc90f4 in git


Ignore:
Timestamp:
Apr 9, 2018, 10:45:58 AM (5 years ago)
Author:
Karim Abou Zeid <karim23697@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
945ccc9d24666485bf37d032e929710f62e1063a
Parents:
55e2f630ba809259d5dff51dfa0c54c5f5abaa8e
Message:
Fix crystallographicGroupP6MM
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/fpalgebras.lib

    r55e2f63 rddc90f4  
    867867 ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-r(1)*r(2)*r(3)*r(4)*r(5)*r(6), r(1)*r(2)*r(3)*r(4)*r(5)*r(6)-1,
    868868 x(1)*y(2)-y(1)*x(2)-m(1)*m(2), r(1)*r(2)*r(3)*r(4)*r(5)*r(6)-m(1)*m(2), m(1)*m(2)-1, m(1)*x(2)*m(3)-X(1),  m(1)*y(2)*m(3)-X(1)*y(2),
    869  r(1)*r(2)*r(3)*r(4)*r(5)*x(6)*r(7)-y(1), r(1)*r(2)*r(3)*r(4)*r(5)*y(6)*r(7)-X(1)*y(2), M(1)*r(2)*m(3)- r(1)*r(2)*r(3)*r(4)*r(5)*y(6)
     869 r(1)*r(2)*r(3)*r(4)*r(5)*x(6)*r(7)-y(1), r(1)*r(2)*r(3)*r(4)*r(5)*y(6)*r(7)-X(1)*y(2), m(1)*r(2)*m(3)- r(1)*r(2)*r(3)*r(4)*r(5)*y(6),
    870870 X(1)*x(2)-1, x(1)*X(2)-1, Y(1)*y(2)-1,  y(1)*Y(2)-1;
    871871 I = simplify(I,2);
     
    876876example {
    877877  "EXAMPLE:"; echo = 2;
    878   def R = crystallographicGroupP6MM(5); setring R;
     878  def R = crystallographicGroupP6MM(7); setring R;
    879879  I;
    880880}
Note: See TracChangeset for help on using the changeset viewer.