Changeset cc055e0 in git


Ignore:
Timestamp:
Apr 10, 2018, 5:18:26 PM (6 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
Children:
ad3f9d3251be478eb821609173621d0466a50772c1af7fb9ab8e720d1a1fed0afc5d8e134af9d107
Parents:
b8ee1dfa9dba7b7a899c793b3be8f9d27110344b
Message:
fix doc/format: fpalgebras.lib
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/fpalgebras.lib

    rb8ee1df rcc055e0  
    11////////////////////////////////////////////////////////////////
    2 version="version fpalgebras.lib 4.1.1.0 Mar_2018 ";
     2version="version fpalgebras.lib 4.1.1.0 Mar_2018 "; // $Id$
    33category="Noncommutative";
    44info="
    55LIBRARY: fpalgebras.lib
    66AUTHORS: Karim Abou Zeid,       karim.abou.zeid at rwth-aachen.de
    7 @*       Grischa Studzinski,    grischa.studzinski at rwth-aachen.de
     7         Grischa Studzinski,    grischa.studzinski at rwth-aachen.de
    88
    99Support: Project II.6 in the transregional collaborative research centre
     
    1616operatorAlgebra(string a, int d);
    1717baumslagSolitar(int n, int m, int d, list #);
    18 baumslag(int m, int n, int d);
     18baumslagGroup(int m, int n, int d);
    1919crystallographicGroupP1(int d);
    2020crystallographicGroupPM(int d);
     
    5353RETURN: ring
    5454NOTE: - the ring contains the ideal I, which contains the required relations
    55 @*    - a gives the name of the algebra
    56 @*    - d gives the degreebound for the Letterplace ring
    57 @*
    58 @*    a must be one of the following:
    59 @*      integrodiff3
    60 @*      toeplitz
    61 @*      weyl1
    62 @*      usl2
    63 @*      usl2h
    64 @*      shift1inverse
    65 @*      exterior2
    66 @*      quadrowmm
    67 @*      shift1
    68 @*      weyl1inverse
    69 @*
    70 @*    This is a collection of common algebras
    71 @*
     55      - a gives the name of the algebra
     56      - d gives the degreebound for the Letterplace ring
     57
     58      a must be one of the following:
     59        integrodiff3
     60        toeplitz
     61        weyl1
     62        usl2
     63        usl2h
     64        shift1inverse
     65        exterior2
     66        quadrowmm
     67        shift1
     68        weyl1inverse
     69
     70      This is a collection of common algebras
     71
    7272"
    7373{
     
    178178RETURN: ring
    179179NOTE: - the ring contains the ideal I, which contains the required relations
    180 @*    - in the group case: A = a^(-1), B = b^(-1)
    181 @*    - negativ input is only allowed in the group case!
    182 @*    - d gives a degreebound and must be >m,n
    183 @*
    184 @*    This is a family
    185 @*
     180      - in the group case: A = a^(-1), B = b^(-1)
     181      - negativ input is only allowed in the group case!
     182      - d gives a degreebound and must be >m,n
     183
     184      This is a family
    186185"
    187186{
     
    219218   export(I);
    220219   if (baseringdef == 1) {setring save;}
    221    return(Mr); 
     220   return(Mr);
    222221  }
    223222  else
     
    237236   if (n==0) {p = b(1);}
    238237   else
    239    {if (n > 0) 
     238   {if (n > 0)
    240239    {
    241240     p = a(1)*b(2);
     
    250249   if (m==0) {q = b(1);}
    251250   else
    252    {if (m > 0) 
     251   {if (m > 0)
    253252    {
    254253     q = b(1)*a(2);
     
    264263   export(I);
    265264   if (baseringdef == 1) {setring save;}
    266    return(Gr);
    267   }
    268 }
    269 example {
     265   return(Gr);
     266  }
     267}
     268example
     269{
    270270  "EXAMPLE:"; echo = 2;
    271271  def R = baumslagSolitar(2,3,4); setring R;
     
    277277RETURN: ring
    278278NOTE: - the ring contains the ideal I, which contains the required relations
    279 @*    - Baumslag group with the following presentation
    280 @*      < a, b | a^m = b^n = 1 >
    281 @*    -d gives the degreebound for the Letterplace ring
    282 @*
    283 @*    This is a family
    284 @*
     279      - Baumslag group with the following presentation
     280        < a, b | a^m = b^n = 1 >
     281      -d gives the degreebound for the Letterplace ring
     282
     283      This is a family
    285284"
    286285{
     
    299298 return(R);
    300299}
    301 example {
    302   "EXAMPLE:"; echo = 2;
    303   def R = baumslag(2,3,4); setring R;
     300example
     301{
     302  "EXAMPLE:"; echo = 2;
     303  def R = baumslagGroup(2,3,4); setring R;
    304304  I;
    305305}
     
    314314RETURN: ring
    315315NOTE: - the ring contains the ideal I, which contains the required relations
    316 @*    - p1 group with the following presentation
    317 @*      < x, y | [x, y] = 1 >
    318 @*    -d gives the degreebound for the Letterplace ring
     316      - p1 group with the following presentation
     317        < x, y | [x, y] = 1 >
     318      -d gives the degreebound for the Letterplace ring
    319319"
    320320{
    321321 if (d < 2){ERROR("Degreebound is to small for choosen example!");}
    322  
     322
    323323 int baseringdef;
    324324 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    330330 def R = makeLetterplaceRing(d);
    331331 setring R;
    332  ideal I = x(1)*y(2)-y(1)*x(2)-1, X(1)*x(2)-1, x(1)*X(2)-1, y(1)*Y(2)-1, Y(1)*y(2)-1;
    333  I = simplify(I,2);
    334  export(I);
    335  if (baseringdef == 1) {setring save;}
    336  return(R);
    337 }
    338 example {
     332 ideal I = x(1)*y(2)-y(1)*x(2)-1, X(1)*x(2)-1, x(1)*X(2)-1, y(1)*Y(2)-1, Y(1)*y(2)-1;
     333 I = simplify(I,2);
     334 export(I);
     335 if (baseringdef == 1) {setring save;}
     336 return(R);
     337}
     338example
     339{
    339340  "EXAMPLE:"; echo = 2;
    340341  def R = crystallographicGroupP1(5); setring R;
     
    351352/* { */
    352353/*  if (d < 3){ERROR("Degreebound is to small for choosen example!");} */
    353  
     354
    354355/*  int baseringdef; */
    355356/*  if (defined(basering)) // if a basering is defined, it should be saved for later use */
     
    361362/*  def R = makeLetterplaceRing(d); */
    362363/*  setring R; */
    363 /*  ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-r(1)*r(2), r(1)*r(2)-1, r(1)*x(2)*r(3)-X(1), r(1)*y(2)*r(3)-Y(1),x(1)*X(2)-1, */ 
     364/*  ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-r(1)*r(2), r(1)*r(2)-1, r(1)*x(2)*r(3)-X(1), r(1)*y(2)*r(3)-Y(1),x(1)*X(2)-1, */
    364365/* X(1)*x(2)-1, Y(1)*y(2)-1,  y(1)*Y(2)-1; */
    365366/*  I = simplify(I,2); */
     
    373374RETURN: ring
    374375NOTE: - the ring contains the ideal I, which contains the required relations
    375 @*    - pm group with the following presentation
    376 @*      < x, y, m | [x, y] = m^2 = 1, m^-1*x*m = x, m^-1*y*m = y^-1 >
    377 @*    - d gives the degreebound for the Letterplace ring
     376      - pm group with the following presentation
     377        < x, y, m | [x, y] = m^2 = 1, m^-1*x*m = x, m^-1*y*m = y^-1 >
     378      - d gives the degreebound for the Letterplace ring
    378379"
    379380{
    380381 if (d < 3){ERROR("Degreebound is to small for choosen example!");}
    381  
     382
    382383 int baseringdef;
    383384 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    389390 def R = makeLetterplaceRing(d);
    390391 setring R;
    391  ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-m(1)*m(2), m(1)*m(2)-1, m(1)*x(2)*m(3)-x(1), m(1)*y(2)*m(3)-Y(1),x(1)*X(2)-1, 
     392 ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-m(1)*m(2), m(1)*m(2)-1, m(1)*x(2)*m(3)-x(1), m(1)*y(2)*m(3)-Y(1),x(1)*X(2)-1,
    392393X(1)*x(2)-1, Y(1)*y(2)-1,  y(1)*Y(2)-1;
    393394 I = simplify(I,2);
     
    396397 return(R);
    397398}
    398 example {
     399example
     400{
    399401  "EXAMPLE:"; echo = 2;
    400402  def R = crystallographicGroupPM(5); setring R;
     
    406408RETURN: ring
    407409NOTE: - the ring contains the ideal I, which contains the required relations
    408 @*    - pg group with the following presentation
    409 @*      < x, y, t | [x, y] = 1, t^2 = x, t^-1*y*t = y^-1 >
    410 @*    - d gives the degreebound for the Letterplace ring
     410      - pg group with the following presentation
     411        < x, y, t | [x, y] = 1, t^2 = x, t^-1*y*t = y^-1 >
     412      - d gives the degreebound for the Letterplace ring
    411413"
    412414{
    413415 if (d < 3){ERROR("Degreebound is to small for choosen example!");}
    414  
     416
    415417 int baseringdef;
    416418 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    422424 def R = makeLetterplaceRing(d);
    423425 setring R;
    424  ideal I = x(1)*y(2)-y(1)*x(2)-1, t(1)*t(2) - x(1), T(1)*y(2)*t(3)-Y(1), X(1)*x(2)-1, x(1)*X(2)-1, 
     426 ideal I = x(1)*y(2)-y(1)*x(2)-1, t(1)*t(2) - x(1), T(1)*y(2)*t(3)-Y(1), X(1)*x(2)-1, x(1)*X(2)-1,
    425427Y(1)*y(2)-1,  y(1)*Y(2)-1, t(1)*T(2)-1, T(1)*t(2)-1;
    426428 I = simplify(I,2);
     
    429431 return(R);
    430432}
    431 example {
     433example
     434{
    432435  "EXAMPLE:"; echo = 2;
    433436  def R = crystallographicGroupPG(5); setring R;
     
    440443RETURN: ring
    441444NOTE: - the ring contains the ideal I, which contains the required relations
    442 @*    - p2mm group with the following presentation
    443 @*      < x, y, p, q | [x, y] = [p, q] = p^2 = q^2 = 1, p^-1*x*p = x, q^-1*x*q = x^-1, p^-1*y*p = y^-1, q^-1*y*q = y >
    444 @*    - d gives the degreebound for the Letterplace ring
     445      - p2mm group with the following presentation
     446        < x, y, p, q | [x, y] = [p, q] = p^2 = q^2 = 1, p^-1*x*p = x, q^-1*x*q = x^-1, p^-1*y*p = y^-1, q^-1*y*q = y >
     447      - d gives the degreebound for the Letterplace ring
    445448"
    446449{
    447450 if (d < 3){ERROR("Degreebound is to small for choosen example!");}
    448  
     451
    449452 int baseringdef;
    450453 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    456459 def R = makeLetterplaceRing(d);
    457460 setring R;
    458  ideal I = x(1)*y(2)-y(1)*x(2)-1, p(1)*q(2)-q(1)*p(2)-1, p(1)*p(2) - 1, q(1)*q(2) - 1, p(1)*y(2)*p(3)-Y(1), p(1)*x(2)*p(3)-x(1), 
     461 ideal I = x(1)*y(2)-y(1)*x(2)-1, p(1)*q(2)-q(1)*p(2)-1, p(1)*p(2) - 1, q(1)*q(2) - 1, p(1)*y(2)*p(3)-Y(1), p(1)*x(2)*p(3)-x(1),
    459462 q(1)*y(2)*q(3)-y(1), q(1)*x(2)*q(3)-X(1), X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1,  x(1)*y(2)-y(1)*x(2)- p(1)*p(2),
    460463 x(1)*y(2)-y(1)*x(2)- q(1)*q(2), p(1)*p(2)-q(1)*q(2);
     
    464467 return(R);
    465468}
    466 example {
     469example
     470{
    467471  "EXAMPLE:"; echo = 2;
    468472  def R = crystallographicGroupP2MM(5); setring R;
     
    474478RETURN: ring
    475479NOTE: - the ring contains the ideal I, which contains the required relations
    476 @*    - p2 group with the following presentation
    477 @*      < x, y, m, t | [x, y] = t^2 = 1, m^2 = y, t^-1*x*t = x, m^-1*x*m = x^-1, t^-1*y*t = y^-1, t^-1*m*t = m^-1 >
    478 @*    - d gives the degreebound for the Letterplace ring
     480      - p2 group with the following presentation
     481        < x, y, m, t | [x, y] = t^2 = 1, m^2 = y, t^-1*x*t = x, m^-1*x*m = x^-1, t^-1*y*t = y^-1, t^-1*m*t = m^-1 >
     482      - d gives the degreebound for the Letterplace ring
    479483"
    480484{
    481485 if (d < 3){ERROR("Degreebound is to small for choosen example!");}
    482  
     486
    483487 int baseringdef;
    484488 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    490494 def R = makeLetterplaceRing(d);
    491495 setring R;
    492  ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-t(1)*t(2), m(1)*m(2)-y(1), t(1)*t(2) - 1, t(1)*x(2)*t(3)-x(1), 
    493 M(1)*x(2)*m(3)-X(1), t(1)*y(2)*t(3)-Y(1), t(1)*m(2)*t(3)-M(1), X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1, 
     496 ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-t(1)*t(2), m(1)*m(2)-y(1), t(1)*t(2) - 1, t(1)*x(2)*t(3)-x(1),
     497M(1)*x(2)*m(3)-X(1), t(1)*y(2)*t(3)-Y(1), t(1)*m(2)*t(3)-M(1), X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1,
    494498m(1)*M(2)-1, M(1)*m(2)-1;
    495499 I = simplify(I,2);
     
    498502 return(R);
    499503}
    500 example {
     504example
     505{
    501506  "EXAMPLE:"; echo = 2;
    502507  def R = crystallographicGroupP2(5); setring R;
     
    508513RETURN: ring
    509514NOTE: - the ring contains the ideal I, which contains the required relations
    510 @*    - p2gg group with the following presentation
    511 @*      < x, y, u, v | [x, y] = (u*v)^2 = 1, u^2 = x, v^2 = y, v^-1*x*v = x^-1, u^-1*y*u = y^-1 >
    512 @*    - d gives the degreebound for the Letterplace ring
     515      - p2gg group with the following presentation
     516        < x, y, u, v | [x, y] = (u*v)^2 = 1, u^2 = x, v^2 = y, v^-1*x*v = x^-1, u^-1*y*u = y^-1 >
     517      - d gives the degreebound for the Letterplace ring
    513518"
    514519{
    515520 if (d < 4){ERROR("Degreebound is to small for choosen example!");}
    516  
     521
    517522 int baseringdef;
    518523 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    524529 def R = makeLetterplaceRing(d);
    525530 setring R;
    526  ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-u(1)*v(2)*u(3)*v(4), u(1)*v(2)*u(3)*v(4)-1, u(1)*u(2)-x(1), v(1)*v(2) - y(1), 
    527 V(1)*x(2)*v(3)-X(1), U(1)*y(2)*u(3)-Y(1), 
     531 ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-u(1)*v(2)*u(3)*v(4), u(1)*v(2)*u(3)*v(4)-1, u(1)*u(2)-x(1), v(1)*v(2) - y(1),
     532V(1)*x(2)*v(3)-X(1), U(1)*y(2)*u(3)-Y(1),
    528533X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1, u(1)*U(2)-1, U(1)*u(2)-1, v(1)*V(2)-1, V(1)*v(2)-1;
    529534 I = simplify(I,2);
     
    532537 return(R);
    533538}
    534 example {
     539example
     540{
    535541  "EXAMPLE:"; echo = 2;
    536542  def R = crystallographicGroupP2GG(5); setring R;
     
    542548RETURN: ring
    543549NOTE: - the ring contains the ideal I, which contains the required relations
    544 @*    - cm group with the following presentation
    545 @*      < x, y, t | [x, y] = t^2 = 1, t^-1*x*t = x*y, t^-1*y*t = y^-1 >   
    546 @*    - d gives the degreebound for the Letterplace ring
     550      - cm group with the following presentation
     551        < x, y, t | [x, y] = t^2 = 1, t^-1*x*t = x*y, t^-1*y*t = y^-1 >
     552      - d gives the degreebound for the Letterplace ring
    547553"
    548554{
    549555 if (d < 3){ERROR("Degreebound is to small for choosen example!");}
    550  
     556
    551557 int baseringdef;
    552558 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    558564 def R = makeLetterplaceRing(d);
    559565 setring R;
    560  ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-t(1)*t(2), t(1)*t(2)-1, 
    561 t(1)*x(2)*t(3)-x(1)*y(2), t(1)*y(2)*t(3)-Y(1), 
     566 ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-t(1)*t(2), t(1)*t(2)-1,
     567t(1)*x(2)*t(3)-x(1)*y(2), t(1)*y(2)*t(3)-Y(1),
    562568X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1;
    563569 I = simplify(I,2);
     
    566572 return(R);
    567573}
    568 example {
     574example
     575{
    569576  "EXAMPLE:"; echo = 2;
    570577  def R = crystallographicGroupCM(5); setring R;
     
    576583RETURN: ring
    577584NOTE: - the ring contains the ideal I, which contains the required relations
    578 @*    - c2mm group with the following presentation
    579 @*      < x, y, m, r | [x, y] = m^2 = r^2 = 1, m^-1*y*m = y^-1, m^-1*x*m = x*y, r^-1*y*r = y^-1, r^-1*x*r = x^-1, m^-1*r*m = r^-1 >
    580 @*    - d gives the degreebound for the Letterplace ring
     585      - c2mm group with the following presentation
     586        < x, y, m, r | [x, y] = m^2 = r^2 = 1, m^-1*y*m = y^-1, m^-1*x*m = x*y, r^-1*y*r = y^-1, r^-1*x*r = x^-1, m^-1*r*m = r^-1 >
     587      - d gives the degreebound for the Letterplace ring
    581588"
    582589{
    583590 if (d < 3){ERROR("Degreebound is to small for choosen example!");}
    584  
     591
    585592 int baseringdef;
    586593 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    592599 def R = makeLetterplaceRing(d);
    593600 setring R;
    594  ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-m(1)*m(2), x(1)*y(2)-y(1)*x(2)-r(1)*r(2), m(1)*m(2)-1,  r(1)*r(2)-1, 
    595  m(1)*m(2)-r(1)*r(2), m(1)*y(2)*m(3)-Y(1), m(1)*x(2)*m(3)-x(1)*y(2), (1)*y(2)*r(3)-Y(1), r(1)*x(2)*r(3)-X(1), m(1)*r(2)*m(3)-r(1), 
     601 ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-m(1)*m(2), x(1)*y(2)-y(1)*x(2)-r(1)*r(2), m(1)*m(2)-1,  r(1)*r(2)-1,
     602 m(1)*m(2)-r(1)*r(2), m(1)*y(2)*m(3)-Y(1), m(1)*x(2)*m(3)-x(1)*y(2), (1)*y(2)*r(3)-Y(1), r(1)*x(2)*r(3)-X(1), m(1)*r(2)*m(3)-r(1),
    596603X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1;
    597604 I = simplify(I,2);
     
    600607 return(R);
    601608}
    602 example {
     609example
     610{
    603611  "EXAMPLE:"; echo = 2;
    604612  def R = crystallographicGroupC2MM(5); setring R;
     
    610618RETURN: ring
    611619NOTE: - the ring contains the ideal I, which contains the required relations
    612 @*    - p4 group with the following presentation
    613 @*      < x, y, r | [x, y] = r^4 = 1, r^-1*x*r = x^-1, r^-1*x*r = y >   
    614 @*    - d gives the degreebound for the Letterplace ring
     620      - p4 group with the following presentation
     621        < x, y, r | [x, y] = r^4 = 1, r^-1*x*r = x^-1, r^-1*x*r = y >
     622      - d gives the degreebound for the Letterplace ring
    615623"
    616624{
    617625 if (d < 5){ERROR("Degreebound is to small for choosen example!");}
    618  
     626
    619627 int baseringdef;
    620628 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    626634 def R = makeLetterplaceRing(d);
    627635 setring R;
    628  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(1)*r(2)*r(3)*r(4)-1, 
    629  r(1)*r(2)*r(3)*x(4)*r(5)-X(1), r(1)*r(2)*r(3)*x(4)*r(5)-y(1), 
     636 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(1)*r(2)*r(3)*r(4)-1,
     637 r(1)*r(2)*r(3)*x(4)*r(5)-X(1), r(1)*r(2)*r(3)*x(4)*r(5)-y(1),
    630638X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1;
    631639 I = simplify(I,2);
     
    634642 return(R);
    635643}
    636 example {
     644example
     645{
    637646  "EXAMPLE:"; echo = 2;
    638647  def R = crystallographicGroupP4(5); setring R;
     
    644653RETURN: ring
    645654NOTE: - the ring contains the ideal I, which contains the required relations
    646 @*    - p4mm group with the following presentation
    647 @*      < x, y, r, m | [x, y] = r^4 = m^2 = 1, r^-1*y*r = x^-1, r^-1*x*r = y, m^-1*x*m = y, m^-1*r*m = r^-1 >
    648 @*    - d gives the degreebound for the Letterplace ring
     655      - p4mm group with the following presentation
     656        < x, y, r, m | [x, y] = r^4 = m^2 = 1, r^-1*y*r = x^-1, r^-1*x*r = y, m^-1*x*m = y, m^-1*r*m = r^-1 >
     657      - d gives the degreebound for the Letterplace ring
    649658"
    650659{
    651660 if (d < 5){ERROR("Degreebound is to small for choosen example!");}
    652  
     661
    653662 int baseringdef;
    654663 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    660669 def R = makeLetterplaceRing(d);
    661670 setring R;
    662  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(1)*r(2)*r(3)*r(4)-1, 
    663  r(1)*r(2)*r(3)*x(4)*r(5)-X(1), r(1)*r(2)*r(3)*x(4)*r(5)-y(1), 
     671 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(1)*r(2)*r(3)*r(4)-1,
     672 r(1)*r(2)*r(3)*x(4)*r(5)-X(1), r(1)*r(2)*r(3)*x(4)*r(5)-y(1),
    664673X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1;
    665674 I = simplify(I,2);
     
    668677 return(R);
    669678}
    670 example {
     679example
     680{
    671681  "EXAMPLE:"; echo = 2;
    672682  def R = crystallographicGroupP4MM(5); setring R;
     
    678688RETURN: ring
    679689NOTE: - the ring contains the ideal I, which contains the required relations
    680 @*    - p4gm group with the following presentation
    681 @*      < x, y, r, t | [x, y] = r^4 = t^2 = 1, r^-1*y*r = x^-1, r^-1*x*r = y, t^-1*x*t = y, t^-1*r*t = x^-1*r^-1>
    682 @*    - d gives the degreebound for the Letterplace ring
     690      - p4gm group with the following presentation
     691        < x, y, r, t | [x, y] = r^4 = t^2 = 1, r^-1*y*r = x^-1, r^-1*x*r = y, t^-1*x*t = y, t^-1*r*t = x^-1*r^-1>
     692      - d gives the degreebound for the Letterplace ring
    683693"
    684694{
    685695 if (d < 5){ERROR("Degreebound is to small for choosen example!");}
    686  
     696
    687697 int baseringdef;
    688698 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    695705 setring R;
    696706 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(1)*r(2)*r(3)*r(4)-1, x(1)*y(2)-y(1)*x(2)-t(1)*t(2),
    697  t(1)*t(2)-1,  r(1)*r(2)*r(3)*r(4)-t(1)*t(2),  r(1)*r(2)*r(3)*y(4)*r(5)-X(1), r(1)*r(2)*r(3)*x(4)*r(5)-y(1), 
     707 t(1)*t(2)-1,  r(1)*r(2)*r(3)*r(4)-t(1)*t(2),  r(1)*r(2)*r(3)*y(4)*r(5)-X(1), r(1)*r(2)*r(3)*x(4)*r(5)-y(1),
    698708 t(1)*r(2)*t(3)-X(1)*r(2)*r(3)*r(4), X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1;
    699709 I = simplify(I,2);
     
    702712 return(R);
    703713}
    704 example {
     714example
     715{
    705716  "EXAMPLE:"; echo = 2;
    706717  def R = crystallographicGroupP4GM(5); setring R;
     
    712723RETURN: ring
    713724NOTE: - the ring contains the ideal I, which contains the required relations
    714 @*    - p3 group with the following presentation
    715 @*      < x, y, r | [x, y] = r^3 = 1, r^-1*x*r = x^-1*y, r^-1*y*r = x^-1>
    716 @*    - d gives the degreebound for the Letterplace ring
     725      - p3 group with the following presentation
     726        < x, y, r | [x, y] = r^3 = 1, r^-1*x*r = x^-1*y, r^-1*y*r = x^-1>
     727      - d gives the degreebound for the Letterplace ring
    717728"
    718729{
    719730 if (d < 4){ERROR("Degreebound is to small for choosen example!");}
    720  
     731
    721732 int baseringdef;
    722733 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    728739 def R = makeLetterplaceRing(d);
    729740 setring R;
    730  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(1)*r(2)*r(3)-1, 
     741 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(1)*r(2)*r(3)-1,
    731742  r(1)*r(2)*x(3)*r(4)-X(1)*y(2),  r(1)*r(2)*y(3)*r(4)-X(1), X(1)*x(2)-1, x(1)*X(2)-1,  Y(1)*y(2)-1,  y(1)*Y(2)-1;
    732743 I = simplify(I,2);
     
    735746 return(R);
    736747}
    737 example {
     748example
     749{
    738750  "EXAMPLE:"; echo = 2;
    739751  def R = crystallographicGroupP3(5); setring R;
     
    745757RETURN: ring
    746758NOTE: - the ring contains the ideal I, which contains the required relations
    747 @*    - p31m group with the following presentation
    748 @*      < x, y, r, t | [x, y] = r^2 = t^2 = (t*r)^3 = 1, r^-1*x*r = x, t^-1*y*t = y, t^-1*x*t = x^-1*y, r^-1*y*r = x*y^-1 >
    749 @*    - d gives the degreebound for the Letterplace ring
     759      - p31m group with the following presentation
     760        < x, y, r, t | [x, y] = r^2 = t^2 = (t*r)^3 = 1, r^-1*x*r = x, t^-1*y*t = y, t^-1*x*t = x^-1*y, r^-1*y*r = x*y^-1 >
     761      - d gives the degreebound for the Letterplace ring
    750762"
    751763{
    752764 if (d < 6){ERROR("Degreebound is to small for choosen example!");}
    753  
     765
    754766 int baseringdef;
    755767 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    762774 setring R;
    763775 ideal I = x(1)*y(2)-y(1)*x(2)-1, x(1)*y(2)-y(1)*x(2)-r(1)*r(2), x(1)*y(2)-y(1)*x(2)-t(1)*t(2), r(1)*r(2)-1, t(1)*t(2)-1,
    764  t(1)*r(2)*t(3)*r(4)*t(5)*r(6)-1, r(1)*r(2)-t(1)*t(2),  x(1)*y(2)-y(1)*x(2)-t(1)*r(2)*t(3)*r(4)*t(5)*r(6), 
     776 t(1)*r(2)*t(3)*r(4)*t(5)*r(6)-1, r(1)*r(2)-t(1)*t(2),  x(1)*y(2)-y(1)*x(2)-t(1)*r(2)*t(3)*r(4)*t(5)*r(6),
    765777 t(1)*r(2)*t(3)*r(4)*t(5)*r(6)-r(1)*r(2), t(1)*r(2)*t(3)*r(4)*t(5)*r(6)-t(1)*t(2),
    766  r(1)*x(2)*r(3)-x(1),  t(1)*y(2)*t(3)-y(1), t(1)*x(2)*t(3)-X(1)*y(2), r(1)*y(2)*r(3)-x(1)*Y(2), 
     778 r(1)*x(2)*r(3)-x(1),  t(1)*y(2)*t(3)-y(1), t(1)*x(2)*t(3)-X(1)*y(2), r(1)*y(2)*r(3)-x(1)*Y(2),
    767779 X(1)*x(2)-1, x(1)*X(2)-1, Y(1)*y(2)-1,  y(1)*Y(2)-1;
    768780 I = simplify(I,2);
     
    771783 return(R);
    772784}
    773 example {
     785example
     786{
    774787  "EXAMPLE:"; echo = 2;
    775788  def R = crystallographicGroupP31M(6); setring R;
     
    781794RETURN: ring
    782795NOTE: - the ring contains the ideal I, which contains the required relations
    783 @*    - p3m1 group with the following presentation
    784 @*      < x, y, r, m | [x, y] = r^3 = m^2 = 1, m^-1*r*m = r^2, r^-1*x*r = x^-1*y, r^-1*y*r = x^-1, m^-1*x*m = x^-1, m^-1*y*m = x^-1*y >
    785 @*    - d gives the degreebound for the Letterplace ring
     796      - p3m1 group with the following presentation
     797        < x, y, r, m | [x, y] = r^3 = m^2 = 1, m^-1*r*m = r^2, r^-1*x*r = x^-1*y, r^-1*y*r = x^-1, m^-1*x*m = x^-1, m^-1*y*m = x^-1*y >
     798      - d gives the degreebound for the Letterplace ring
    786799"
    787800{
    788801 if (d < 4){ERROR("Degreebound is to small for choosen example!");}
    789  
     802
    790803 int baseringdef;
    791804 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    805818 return(R);
    806819}
    807 example {
     820example
     821{
    808822  "EXAMPLE:"; echo = 2;
    809823  def R = crystallographicGroupP3M1(5); setring R;
     
    815829RETURN: ring
    816830NOTE: - the ring contains the ideal I, which contains the required relations
    817 @*    - p6 group with the following presentation
    818 @*      < x, y, r | [x, y] = r^6 = 1, r^-1*x*r = y, r^-1*y*r = x^-1*y>
    819 @*    - d gives the degreebound for the Letterplace ring
     831      - p6 group with the following presentation
     832        < x, y, r | [x, y] = r^6 = 1, r^-1*x*r = y, r^-1*y*r = x^-1*y>
     833      - d gives the degreebound for the Letterplace ring
    820834"
    821835{
    822836 if (d < 7){ERROR("Degreebound is to small for choosen example!");}
    823  
     837
    824838 int baseringdef;
    825839 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    839853 return(R);
    840854}
    841 example {
     855example
     856{
    842857  "EXAMPLE:"; echo = 2;
    843858  def R = crystallographicGroupP6(7); setring R;
     
    849864RETURN: ring
    850865NOTE: - the ring contains the ideal I, which contains the required relations
    851 @*    - p6mm group with the following presentation
    852 @*      < x, y, r, m | [x, y] = r^6 = m^2 = 1, r^-1*y*r = x^-1*y, r^-1*x*r = y, m^-1*x*m = x^-1, m^-1*y*m = x^-1*y, m^-1*r*m = r^-1*y>
    853 @*    - d gives the degreebound for the Letterplace ring
     866      - p6mm group with the following presentation
     867        < x, y, r, m | [x, y] = r^6 = m^2 = 1, r^-1*y*r = x^-1*y, r^-1*x*r = y, m^-1*x*m = x^-1, m^-1*y*m = x^-1*y, m^-1*r*m = r^-1*y>
     868      - d gives the degreebound for the Letterplace ring
    854869"
    855870{
    856871 if (d < 7){ERROR("Degreebound is to small for choosen example!");}
    857  
     872
    858873 int baseringdef;
    859874 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    865880 def R = makeLetterplaceRing(d);
    866881 setring R;
    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  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), 
     882 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,
     883 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),
    869884 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),
    870885 X(1)*x(2)-1, x(1)*X(2)-1, Y(1)*y(2)-1,  y(1)*Y(2)-1;
     
    874889 return(R);
    875890}
    876 example {
     891example
     892{
    877893  "EXAMPLE:"; echo = 2;
    878894  def R = crystallographicGroupP6MM(7); setring R;
     
    889905RETURN: ring
    890906NOTE: - the ring contains the ideal I, which contains the required relations
    891 @*    - The Dyck group with the following presentation
    892 @*      < x_1, x_2, ... , x_n | (x_1)^p1 = (x_2)^p2 = ... = (x_n)^pn = x_1 * x_2 * ... * x_n = 1 >
    893 @*    - negative exponents are allowed
    894 @*    - representation in the form x_i^p_i - x_(i+1)^p_(i+1)
    895 @*    - d gives the degreebound for the Letterplace ring
    896 @*
    897 @*    This is a family
    898 @*
     907      - The Dyck group with the following presentation
     908        < x_1, x_2, ... , x_n | (x_1)^p1 = (x_2)^p2 = ... = (x_n)^pn = x_1 * x_2 * ... * x_n = 1 >
     909      - negative exponents are allowed
     910      - representation in the form x_i^p_i - x_(i+1)^p_(i+1)
     911      - d gives the degreebound for the Letterplace ring
     912
     913      This is a family
    899914"
    900915{
     
    918933 for (i = n; i > 0; i--)
    919934 {
    920   if (P[i] >= 0) {for (j = 1; j <= P[i]; j++){q = lpMult(q,var(i));}} 
     935  if (P[i] >= 0) {for (j = 1; j <= P[i]; j++){q = lpMult(q,var(i));}}
    921936  else {for (j = 1; j <= -P[i]; j++){q = lpMult(q,var(i+n));}}
    922937  I = p - q,I;
    923938  p = q; q = 1;
    924939 }
    925  
    926  I = simplify(I,2);
    927  export(I);
    928  if (baseringdef == 1) {setring save;}
    929  return(R);
    930 }
    931 example {
     940
     941 I = simplify(I,2);
     942 export(I);
     943 if (baseringdef == 1) {setring save;}
     944 return(R);
     945}
     946example
     947{
    932948  "EXAMPLE:"; echo = 2;
    933949  intvec P = 1,2,3;
     
    941957RETURN: ring
    942958NOTE: - the ring contains the ideal I, which contains the required relations
    943 @*    - The Dyck group with the following presentation
    944 @*      < x_1, x_2, ... , x_n | (x_1)^p1 = (x_2)^p2 = ... = (x_n)^pn = x_1 * x_2 * ... * x_n = 1 >
    945 @*    - negative exponents are allowed
    946 @*    - representation in the form x_i^p_i - 1
    947 @*    - d gives the degreebound for the Letterplace ring
    948 @*
    949 @*    This is a family
    950 @*
     959      - The Dyck group with the following presentation
     960        < x_1, x_2, ... , x_n | (x_1)^p1 = (x_2)^p2 = ... = (x_n)^pn = x_1 * x_2 * ... * x_n = 1 >
     961      - negative exponents are allowed
     962      - representation in the form x_i^p_i - 1
     963      - d gives the degreebound for the Letterplace ring
     964
     965      This is a family
    951966"
    952967{
     
    971986 {
    972987  p = 1;
    973   if (P[i] >= 0) {for (j = 1; j <= P[i]; j++){p = lpMult(p,var(i));}} 
     988  if (P[i] >= 0) {for (j = 1; j <= P[i]; j++){p = lpMult(p,var(i));}}
    974989  else {for (j = 1; j <= -P[i]; j++){p = lpMult(p,var(i+n));}}
    975990  I = p - 1,I;
    976991 }
    977  
    978  I = simplify(I,2);
    979  export(I);
    980  if (baseringdef == 1) {setring save;}
    981  return(R);
    982 }
    983 example {
     992
     993 I = simplify(I,2);
     994 export(I);
     995 if (baseringdef == 1) {setring save;}
     996 return(R);
     997}
     998example
     999{
    9841000  "EXAMPLE:"; echo = 2;
    9851001  intvec P = 1,2,3;
     
    9941010RETURN: ring
    9951011NOTE: - the ring contains the ideal I, which contains the required relations
    996 @*    - The Dyck group with the following presentation
    997 @*      < x_1, x_2, ... , x_n | (x_1)^p1 = (x_2)^p2 = ... = (x_n)^pn = x_1 * x_2 * ... * x_n = 1 >
    998 @*    - only positive exponents are allowed
    999 @*    - no inverse generators needed
    1000 @*    - d gives the degreebound for the Letterplace ring
    1001 @*
    1002 @*    This is a family
    1003 @*
     1012      - The Dyck group with the following presentation
     1013        < x_1, x_2, ... , x_n | (x_1)^p1 = (x_2)^p2 = ... = (x_n)^pn = x_1 * x_2 * ... * x_n = 1 >
     1014      - only positive exponents are allowed
     1015      - no inverse generators needed
     1016      - d gives the degreebound for the Letterplace ring
     1017
     1018      This is a family
    10041019"
    10051020{
     
    10091024 for (i = 1; i <= size(P); i++) {if (P[i] < 0){ERROR("Exponents must be positive!");}}
    10101025 for (i = 1; i <= size(P); i++) {if (d < P[i]){ERROR("Degreebound is to small!");}}
    1011  
     1026
    10121027
    10131028 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    10261041 {
    10271042  p = 1;
    1028   for (j = 1; j <= P[i]; j++){p = lpMult(p,var(i));} 
     1043  for (j = 1; j <= P[i]; j++){p = lpMult(p,var(i));}
    10291044  I = p - 1,I;
    10301045 }
    1031  
    1032  I = simplify(I,2);
    1033  export(I);
    1034  if (baseringdef == 1) {setring save;}
    1035  return(R);
    1036 }
    1037 example {
     1046
     1047 I = simplify(I,2);
     1048 export(I);
     1049 if (baseringdef == 1) {setring save;}
     1050 return(R);
     1051}
     1052example
     1053{
    10381054  "EXAMPLE:"; echo = 2;
    10391055  intvec P = 1,2,3;
     
    10511067RETURN: ring
    10521068NOTE: - the ring contains the ideal I, which contains the required relations
    1053 @*    - The Fibonacci group F(2, m) with the following presentation
    1054 @*      < x_1, x_2, ... , x_m | x_i * x_(i + 1) = x_(i + 2) >
    1055 @*    - d gives the degreebound for the Letterplace ring
    1056 @*
    1057 @*    This is a family
    1058 @*
    1059 "
     1069      - The Fibonacci group F(2, m) with the following presentation
     1070        < x_1, x_2, ... , x_m | x_i * x_(i + 1) = x_(i + 2) >
     1071      - d gives the degreebound for the Letterplace ring
     1072
     1073      This is a family
     1074"
     1075{
    10601076// TODO: basefield Q oder F2?
    10611077// TODO: inverse Elemente!
    1062 {
    10631078 if (m < 3) {ERROR("At least three generators are required!");}
    10641079 if (d < 2) {ERROR("Degree bound must be at least 2!");}
     
    10841099  p = lpMult(var(i+m),var(i))-1;
    10851100  I = I,p;
    1086  }
    1087  I = simplify(I,2);
    1088  export(I);
    1089  if (baseringdef == 1) {setring save;}
    1090  return(R);
    1091 }
    1092 example {
     1101 }
     1102 I = simplify(I,2);
     1103 export(I);
     1104 if (baseringdef == 1) {setring save;}
     1105 return(R);
     1106}
     1107example
     1108{
    10931109  "EXAMPLE:"; echo = 2;
    10941110  def R = fibonacciGroup(3,5); setring R;
     
    11061122RETURN: ring
    11071123NOTE: - the ring contains the ideal I, which contains the required relations
    1108 @*    - g gives the number of the example (1 - 5)
    1109 @*    - d gives the degreebound for the Letterplace ring
    1110 @*
    1111 @*    This is a family
    1112 @*
     1124      - g gives the number of the example (1 - 5)
     1125      - d gives the degreebound for the Letterplace ring
     1126
     1127      This is a family
     1128
    11131129The examples are found in
    11141130Classification of the finite generalized tetrahedron groups
     
    11171133finite generalized tetrahedron group in the Tsarnarov-case, which are
    11181134not equivalent to a presentation for an ordinary tetrahedron group.
    1119 @*
    11201135"
    11211136{
     
    11231138 if ((g == 1 && d < 6)||(g == 2 && d < 6)||(g == 3 && d < 5)||(g == 4 && d < 4)||(g == 5 && d < 5))
    11241139 {ERROR("Degreebound is to small for choosen example!");}
    1125  
     1140
    11261141 int baseringdef,i,j;
    11271142 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    11341149 setring R;
    11351150 ideal I;
    1136  if (g == 1) 
     1151 if (g == 1)
    11371152 {I = x(1)*x(2)*x(3)*x(4)*x(5)-1, y(1)*y(2)-1, z(1)*z(2)*z(3)-1, x(1)*y(2)*x(3)*y(4)*x(5)*y(6)-1, x(1)*x(2)*z(3)*x(4)*x(5)*z(6)-1,
    11381153      y(1)*z(2)*y(3)*z(4)-1;
    11391154 }
    11401155 if (g == 2)
    1141  {I = x(1)*x(2)*x(3)-1, y(1)*y(2)*y(3)-1, z(1)*z(2)*z(3)*z(4)*z(5)-1,x(1)*y(2)*x(3)*y(4)-1,x(1)*z(2)*x(3)*z(4)-1, 
     1156 {I = x(1)*x(2)*x(3)-1, y(1)*y(2)*y(3)-1, z(1)*z(2)*z(3)*z(4)*z(5)-1,x(1)*y(2)*x(3)*y(4)-1,x(1)*z(2)*x(3)*z(4)-1,
    11421157      y(1)*z(2)*z(3)*y(4)*z(5)*z(6)-1;
    11431158 }
     
    11511166 {I =  x(1)*x(2)*x(3)-1, y(1)*y(2)*y(3)-1, z(1)*z(2)*z(3)*z(4)*z(5)-1,x(1)*y(2)*x(3)*y(4)-1, x(1)*z(2)*x(3)*z(4)-1, y(1)*z(2)*y(3)*z(4)-1;
    11521167 }
    1153  
    1154  I = simplify(I,2);
    1155  export(I);
    1156  if (baseringdef == 1) {setring save;}
    1157  return(R);
    1158 }
    1159 example {
     1168
     1169 I = simplify(I,2);
     1170 export(I);
     1171 if (baseringdef == 1) {setring save;}
     1172 return(R);
     1173}
     1174example
     1175{
    11601176  "EXAMPLE:"; echo = 2;
    11611177  def R = tetrahedronGroup(3,5); setring R;
     
    11731189RETURN: ring
    11741190NOTE: - the ring contains the ideal I, which contains the required relations
    1175 @*    - g gives the number of the example (1 - 14)
    1176 @*    - d gives the degreebound for the Letterplace ring
    1177 @*
    1178 @*    This is a family
    1179 @*
     1191      - g gives the number of the example (1 - 14)
     1192      - d gives the degreebound for the Letterplace ring
     1193
     1194      This is a family
     1195
    11801196The examples are found in
    11811197Classification of the finite generalized tetrahedron groups
    11821198by Gerhard Rosenberger and Martin Scheer.
    11831199The 14 examples are denoted in theorem 2.12
    1184 @*
    11851200"
    11861201{
     
    11881203 if ((g == 1 && d < 20)||(g == 2 && d < 21)||(g == 3 && d < 10)||(g == 4 && d < 12)||(g == 5 && d < 10)||(g == 6 && d < 18)||(g == 7 && d < 20)||(g == 8 && d < 16)||(g == 9 && d < 10)||(g == 10 && d < 14)||(g == 11 && d < 16)||(g == 12 && d < 24)||(g == 13 && d < 28)||(g == 14 && d < 37))
    11891204 {ERROR("Degreebound is to small for choosen example!");}
    1190  
     1205
    11911206 int baseringdef;
    11921207 if (defined(basering)) // if a basering is defined, it should be saved for later use
     
    11991214 setring R;
    12001215 ideal I;
    1201  
    1202  if (g == 1) 
     1216
     1217 if (g == 1)
    12031218 {I = a(1)*a(2)-1, b(1)*b(2)*b(3)-1,
    12041219  a(1)*b(2)*a(3)*b(4)*a(5)*b(6)*b(7)*a(8)*b(9)*b(10)*a(11)*b(12)*a(13)*b(14)*a(15)*b(16)*b(17)*a(18)*b(19)*b(20)-1;
     
    12621277 return(R);
    12631278}
    1264 example {
     1279example
     1280{
    12651281  "EXAMPLE:"; echo = 2;
    12661282  def R = triangularGroup(3,10); setring R;
Note: See TracChangeset for help on using the changeset viewer.