Quelle  gpolygons_objectselements.include  Sprache: unbekannt

gap> mat := [ [ 1, 1, 0, 0, 0, 1, 0 ], [ 1, 0, 0, 1, 1, 0, 0 ],
>          [ 1, 0, 1, 0, 0, 0, 1 ], [ 0, 1, 1, 1, 0, 0, 0 ],
>          [ 0, 1, 0, 0, 1, 0, 1 ], [ 0, 0, 0, 1, 0, 1, 1 ],
>          [ 0, 0, 1, 0, 1, 1, 0 ] ];
[ [ 1, 1, 0, 0, 0, 1, 0 ], [ 1, 0, 0, 1, 1, 0, 0 ], [ 1, 0, 1, 0, 0, 0, 1 ], 
  [ 0, 1, 1, 1, 0, 0, 0 ], [ 0, 1, 0, 0, 1, 0, 1 ], [ 0, 0, 0, 1, 0, 1, 1 ], 
  [ 0, 0, 1, 0, 1, 1, 0 ] ]
gap> gp := GeneralisedPolygonByIncidenceMatrix(mat);
<projective plane order 2>
gap> p := Random(Points(gp));
<a point in <projective plane order 2>>
gap> UnderlyingObject(p);
7
gap> l := Random(Lines(gp));
&lt;a line in &lt;projective plane order 2&<span style='color:red'>gt;&gt;
gap&gt; UnderlyingObject(l);
[ 4, 6, 7 ]
gap&gt; ObjectToElement(gp,1,4);
&lt;a point in &lt;projective plane order 2&gt;&gt;
gap&gt; ObjectToElement(gp,2,5);
Error, &lt;obj&gt; does not represent a line of &lt;gp&gt; called from
&lt;function "unknown"&gt;( &='color:red'>lt;arguments&gt; )
 called from read-eval loop at line 18 of *stdin*
you can 'quit;' to quit to outer loop, or
you can 'return;' to continue
brk&gt; quit;
gap&gt; ObjectToElement(gp,2,[1,2,3]);
Error, &lt;obj&gt; does not represent a line of &lt;gp&gt; called from
&lt;function "unknown"&gt;( &='color:red'>lt;arguments&gt; )
 called from read-eval loop at line 18 of *stdin*
you can 'quit;' to quit to outer loop, or
you can 'return;' to continue
brk&gt; quit;
gap&gt; ObjectToElement(gp,[1,2,6]);
&lt;a line in &lt;projective plane order 2&<span style='color:red'>gt;&gt;