Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
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