micke/cellular-automaton
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Something is not working, probably with boundary conditions

Browse source
This commit is contained in:
Mikael Nordin 2016-10-28 13:27:46 +02:00
parent beab14d5e8
commit 1bd35eaa1a
1 changed files with 23 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
2d.pl
View file

@ -72,8 +72,8 @@ sub print_arr {
}
print "\033[2J"; #clear the screen
print "\033[0;0H"; #jump to 0,0
#print "\033[2J"; #clear the screen
#print "\033[0;0H"; #jump to 0,0
my @initial = init;
foreach my $elem (values @initial) {
@ -86,47 +86,56 @@ for (my $gen = 0; $gen < $gens; $gen++) {
my @row;
for (my $y = 0; $y < $max; $y++) {
my $state;
# This is the upper column boundary
if($x == 0) {
# This is the left boundary of the row
if($y == 0 ) {
$state = $initial[$max -1][$max -1] . $initial[$max -1][$y] . $initial[$max -1][$y +1 ];
$state .= $initial[$x][$max -1] . $initial[$x][$y] . $initial[$x][$y +1 ];
$state .= $initial[$x +1][$max -1] . $initial[$x +1][$y] . $initial[$x +1][$y +1 ];
$state .= $initial[$x][$max -1] . $initial[$x][$y] . $initial[$x][$y +1 ];
$state .= $initial[$x +1][$max -1] . $initial[$x +1][$y] . $initial[$x +1][$y +1 ];
# This is the right boundary of the row
} elsif ($y == $max -1 ) {
$state = $initial[$max -1][$y-1] . $initial[$max -1][$y] . $initial[$max -1][0];
$state .= $initial[$x][$y-1] . $initial[$x][$y] . $initial[$x][0];
$state .= $initial[$x +1][$y-1] . $initial[$x +1][$y] . $initial[$x +1][0];
# Normal, we are not on the boundary
$state .= $initial[$x][$y-1] . $initial[$x][$y] . $initial[$x][0];
$state .= $initial[$x +1][$y-1] . $initial[$x +1][$y] . $initial[$x +1][0];
# Normal, we are not on the boundary of the row
} else {
$state = $initial[$max -1][$y - 1] . $initial[$max -1][$y] . $initial[$max -1][$y +1];
$state .= $initial[$x][$y - 1] . $initial[$x][$y] . $initial[$x][$y +1];
$state .= $initial[$x +1][$y - 1] . $initial[$x +1][$y] . $initial[$x +1][$y +1];
$state .= $initial[$x][$y - 1] . $initial[$x][$y] . $initial[$x][$y +1];
$state .= $initial[$x +1][$y - 1] . $initial[$x +1][$y] . $initial[$x +1][$y +1];
}
# This is bottom boundary of the column
} elsif ($x = $max -1) {
# This is the left boundary of the row
if($y == 0 ) {
$state = $initial[$x -1][$max -1] . $initial[$x -1][$y] . $initial[$x -1][$y +1 ];
$state .= $initial[$x][$max -1] . $initial[$x][$y] . $initial[$x][$y +1 ];
$state .= $initial[0][$max -1] . $initial[0][$y] . $initial[0][$y +1 ];
$state .= $initial[0][$max -1] . $initial[0][$y] . $initial[0][$y +1 ];
# This is the right boundary of the row
} elsif ($y == $max -1 ) {
$state = $initial[$x -1][$y-1] . $initial[$x -1][$y] . $initial[$x -1][0];
$state .= $initial[$x][$y-1] . $initial[$x][$y] . $initial[$x][0];
$state .= $initial[0][$y-1] . $initial[0][$y] . $initial[0][0];
# Normal, we are not on the boundary
$state .= $initial[0][$y-1] . $initial[0][$y] . $initial[0][0];
# Normal, we are not on the boundary of the row
} else {
$state = $initial[$x -1][$y - 1] . $initial[$x -1][$y] . $initial[$x -1][$y +1];
$state .= $initial[$x][$y - 1] . $initial[$x][$y] . $initial[$x][$y +1];
$state .= $initial[0][$y - 1] . $initial[0][$y] . $initial[0][$y +1];
$state .= $initial[0][$y - 1] . $initial[0][$y] . $initial[0][$y +1];
}
# Normal, we are not on the boundary of the column
} else {
# This is the left boundary of the row
if($y == 0 ) {
$state = $initial[$x -1][$max -1] . $initial[$x -1][$y] . $initial[$x -1][$y +1 ];
$state .= $initial[$x][$max -1] . $initial[$x][$y] . $initial[$x][$y +1 ];
$state .= $initial[$x +1][$max -1] . $initial[$x +1][$y] . $initial[$x +1][$y +1 ];
# This is the right boundary of the row
} elsif ($y == $max -1 ) {
$state = $initial[$x -1][$y-1] . $initial[$x -1][$y] . $initial[$x -1][0];
$state .= $initial[$x][$y-1] . $initial[$x][$y] . $initial[$x][0];
$state .= $initial[$x +1][$y-1] . $initial[$x +1][$y] . $initial[$x +1][0];
# Normal, we are not on the boundary
# Normal, we are not on the boundary of anything
} else {
$state = $initial[$x -1][$y - 1] . $initial[$x -1][$y] . $initial[$x -1][$y +1];
$state .= $initial[$x][$y - 1] . $initial[$x][$y] . $initial[$x][$y +1];
@ -140,9 +149,7 @@ for (my $gen = 0; $gen < $gens; $gen++) {
}
#print "\033[2J"; #clear the screen
#print "\033[0;0H"; #jump to 0,0
@initial = @column;
#print Dumper @initial;
#foreach my $elem (values @initial) {
# print_arr $elem;
# }