Skip to content

Instantly share code, notes, and snippets.

@ruescasd
Created September 11, 2017 15:56
Show Gist options
  • Save ruescasd/eca78f728ddb80bddbe88295147bf6ca to your computer and use it in GitHub Desktop.
Save ruescasd/eca78f728ddb80bddbe88295147bf6ca to your computer and use it in GitHub Desktop.
use application 'polytope';
my $inequalities = [
[2, -1, 0, 0, 0],
[6, 0, -1, 0, 0],
[6, 0, 0, -1, 0],
[10, 0, 0, 0, -1],
[0, 1, 0, 0, 0],
[0, 0, 1, 0, 0],
[0, 0, 0, 1, 0],
[0, 0, 0, 0, 1]
];
my $equations = [
[-94, 17, 8, 4, 2]
];
my $e = new Polytope(INEQUALITIES=>$inequalities,EQUATIONS=>$equations);
print $e->LATTICE_POINTS;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment