Poly(tope)make

use application "polytope";

use vars '$V1', '$V2', '$d1', '$d2', '$m1', '$m2', '$counter', '$V', '$P';

Matrizen, deren Zeilen die Ecken der jeweiligen Inputpolytope sind.

$V1 = $ARGV[0]->VERTICES;
$V2 = $ARGV[1]->VERTICES;

Ambientdimension der beiden Polytope

$d1 = scalar(@{$V1->row(0)}); #Länge einer Zeile von $V1
$d2 = scalar(@{$V2->row(0)});

Anzahl der Ecken der beiden Polytope

$m1 = scalar(@{$V1}); #Länge der Spalten von $V1
$m2 = scalar(@{$V2});

Initialisierte Eckenmatrix des Produkts

$V = new Matrix($m1*$m2, $d1+$d2-1);

Befuellen der Eckenmatrix

$counter = 0;
for(my $i=0; $i<$m1; $i++){
for(my $j=0; $j<$m2; $j++){

    # $vertex soll der Vektor (v,w), fuer je zwei Ecken v und w der Polytope, sein
    my $vertex = new Vector($d1+$d2-1);
    for(my $k=0; $k<$d1; $k++){
        $vertex->[$k]=($V1->row($i))->[$k]; #(i,k)-te Eintrag von $V1
    }
    for(my $k=1; $k<$d2; $k++){
        $vertex->[$d1-1+$k]=($V2->row($j))->[$k];
    }

    $V->row($counter) = $vertex;
    $counter++;
}

}

Das Produkt der Polytope

$P=new Polytope(VERTICES=>$V);
return $P;

Info Diskrete Geometrie I

Vorlesungszeiten: Mi, 14-16 und Do, 12-14, jeweils in MA041
Vorlesungsbeginn: Mi, 10.04.2019
Übung: Di, 16-18, MA 042
Übungsbeginn: 16.04.2019

Inhalt der Vorlesung: Es werden grundlegende Themen der diskreten Geometrie/Konvexgeometrie behandelt: Charakteristische und kombinatorische Eigenschaften konvexer Mengen, Polytope und ihre Darstellungen, gemischte Volumina konvexer Körper.

Literatur:
Alexander Barvinok, A course in Convexity, AMS.
Peter M. Gruber, Convex and Discrete Geometry, Springer.
Michael Joswig & Thorsten Theobald, Algorithmische Geometrie, Springer.
Jiri Matousek, Lectures on Discrete Geometry, Springer.
Günter M. Ziegler, Lectures on Polytopes, Springer.