Code: Select all
polymake > $r = root_system('A3');
polymake: ERROR: Undefined subroutine &Polymake ::User::root_system called at input line 1.
Code: Select all
polymake > $r = root_system('A3');
polymake: ERROR: Undefined subroutine &Polymake ::User::root_system called at input line 1.
Code: Select all
my $neweq = new Vector([0]);
for(my $j=0;$j<$n;$j++){
if($j==$l){
$neweq = $neweq|new Vector([1]);
} elsif($j==$l+$i){
$neweq = $neweq|new Vector([-1]);
} else {
$neweq = $neweq|new Vector([0]);
}
}
Code: Select all
my $neweq = new Vector($n + 1); # automatically fills with zeroes
$neweq->[$l + 1] = 1;
$neweq->[$l + $i + 1] = -1;