Changeset ddc90f4 in git
- Timestamp:
- Apr 9, 2018, 10:45:58 AM (5 years ago)
- Branches:
- (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
- Children:
- 945ccc9d24666485bf37d032e929710f62e1063a
- Parents:
- 55e2f630ba809259d5dff51dfa0c54c5f5abaa8e
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/fpalgebras.lib
r55e2f63 rddc90f4 867 867 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, 868 868 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), 870 870 X(1)*x(2)-1, x(1)*X(2)-1, Y(1)*y(2)-1, y(1)*Y(2)-1; 871 871 I = simplify(I,2); … … 876 876 example { 877 877 "EXAMPLE:"; echo = 2; 878 def R = crystallographicGroupP6MM( 5); setring R;878 def R = crystallographicGroupP6MM(7); setring R; 879 879 I; 880 880 }
Note: See TracChangeset
for help on using the changeset viewer.