16 my $ui = AA::UI->new('');
18 my $back = AA::Background->new('bg');
20 my $title = AA::Label->new('title');
22 'text' => 'Goldbergův algoritmus',
29 for (my $i=0; $i<5; $i++) {
30 my $v = AA::NetV->new("v$i");
34 'label' => ($i == 0) ? "Z" : ($i == 4) ? "S" : $i,
35 'h' => ($i == 0) ? 5 : 0,
41 for (my $i=0; $i<4; $i++) {
42 my $e = AA::NetE->new("e$i", $v[$i], $v[$i+1]);
48 for (my $i=1; $i<@v; $i++) {
49 my $ii = $i; # need to keep a copy in the current closure
50 $v[$i]->Bind('xs', sub { $e[$ii-1]->Get('f') - (($ii == @v-1) ? 0 : $e[$ii]->Get('f')) });
52 $v[4]->{XS}->Set('color', [0,1,0]);
56 $e[$i]->Set('f', $e[$i]->Get('f') + $df);
61 $v[$i]->Set('h', $v[$i]->Get('h') + 1);
66 for (my $i=0; $i<@v; $i++) {
67 $v[$i]->Set('hint', $i == $h);
73 if (!@ARGV || $ARGV[0] eq "1") {
75 sub { flow(0, 5); hint(1); },
77 sub { flow(1, 5); hint(2); },
79 sub { flow(2, 5); hint(3); },
81 sub { flow(3, 5); hint(-1); },
83 } elsif ($ARGV[0] eq "2") {
84 $title->Set('text', "Goldberg v úzkých");
85 for (my $i=0; $i<@v-1; $i++) {
86 $e[$i]->Set('c', 5-$i);
89 sub { flow(0, 5); hint(1); },
91 sub { flow(1, 4); hint(2); },
93 sub { flow(2, 3); hint(3); },
97 sub { flow(2, -1); hint(2); },
99 sub { flow(1, -1); hint(1); },
106 sub { flow(0, -1); hint(2); },
108 sub { flow(2, 1); hint(3); },
111 sub { flow(2, -1); hint(2); },
114 sub { flow(2, 1); hint(3); },
117 sub { flow(2, -1); hint(2); },
121 sub { flow(1, -1); hint(1); },
122 sub { flow(0, -1); hint(3); },
125 sub { flow(2, -1); hint(2); },
126 sub { flow(1, -1); hint(1); },
127 sub { flow(0, -1); hint(-1); },
129 } elsif ($ARGV[0] eq "3") {
130 $title->Set('text', "Goldberg s nejvyšším vrcholem");
131 for (my $i=0; $i<@v-1; $i++) {
132 $e[$i]->Set('c', 5-$i);
135 sub { flow(0, 5); hint(1); },
143 sub { flow(0, -1); hint(2); },
152 sub { flow(1, -1); hint(1); },
153 sub { flow(0, -1); hint(3); },
163 sub { flow(2, -1); hint(2); },
164 sub { flow(1, -1); hint(1); },
165 sub { flow(0, -1); hint(-1); },
168 die "What do you want?\n";
171 $ui->RunScenario($scenario);