Galton box animation: Difference between revisions

{{task|Animation}}

<langsyntaxhighlight AutoHotkeylang="autohotkey">AutoTrim Off

}</langsyntaxhighlight>While the number of pegs, and falling space are configurable, here's output shortly after starting one configuration:

<langsyntaxhighlight lang="basic256">graphsize 150,125

return</langsyntaxhighlight>

<langsyntaxhighlight lang="bbcbasic"> maxBalls% = 10

UNTIL FALSE</langsyntaxhighlight>

<langsyntaxhighlight lang="c">#include <stdio.h>

}</langsyntaxhighlight>

<langsyntaxhighlight lang="d">import std.stdio, std.algorithm, std.random, std.array;

enum Cell : CellBaseType { empty ball = ' o',

ballwall = 'o|',

wall corner = '|+',

floor corner = '+-',

pin floor = '-.', }

this(in int x_, in int y_) nothrow @safe @nogc

nothrow const @safe @nogc invariant() {

final switch (box[y - 1][x]) with (Cell) {

finalcase switch (box[y - 1][x]) {empty:

casebox[y][x] = Cell.empty:;

box[y][x] = Cell.empty--;

box[y][x] = y--Cell.ball;

breakreturn;

case} ball,else wall,if corner,(box[y][x floor:- 1] == Cell.empty) {

// It's frozen. (It always piles on other balls).x++;

} else break;{

case pin: x--;

box[y][x] = Cell.empty;}

box[y][x] = y--Cell.ball;

if (box[y][x - 1] == Cell.empty &&break;

box[0][] = Cell.corner ~ [Cell.floor].replicate(boxW - 2) ~ Cell.corner;

box[$ - 1][] = ~ Cell.cornerbox[0][];

foreach (immutable r; 1 .. boxH - 1)

foreach (immutable nPins; 1 .. pinsBaseW + 1)

box[boxH - 2 - nPins][centerH + 1 - nPins + pin * 2] = Cell.pin;

foreach_reverse (const ref row; box)

writelnwritefln(cast"%(CellBaseType[]%c%)", row);

initializeBox();

drawBox();

b.doStep();

}</langsyntaxhighlight>

<langsyntaxhighlight Iconlang="icon">link graphics

end</langsyntaxhighlight>

First, we need to a representation forrepresent our pins:

<langsyntaxhighlight lang="j">initpins=: '* ' {~ '1'&i.@(-@|. |."_1 [: ":@-.&0"1 <:~/~)@i.</langsyntaxhighlight>

<langsyntaxhighlight lang="j"> initpins 4

* * * *</langsyntaxhighlight>

<langsyntaxhighlight lang="j">initSpins=: [: }.@|. (1- 2&^@>:) ]\ [: ,] (,~ ,.~)@]^:[ ,: bind '* '</langsyntaxhighlight>

<langsyntaxhighlight lang="j">init=: ' ',. ' ',.~ ] ,~ ' ',~ ' o' {~ (# ' ' ~: 1&{.)</langsyntaxhighlight>

<langsyntaxhighlight lang="j"> 3 (init initpins) 4

* * * * </langsyntaxhighlight>

<syntaxhighlight lang="text">bounce=: (C.~ ] <"1@:+ 0 1 -~/~ ? @: (2"0))"1 [: I. 'o*'&E."1&.|:</langsyntaxhighlight>

<syntaxhighlight lang="text">shift=: 4 :0

)</langsyntaxhighlight>

We will also want some way of preventing the balls from falling forever. For this task it's probably sufficient to introduce a baseline sufficientlyjust deep enough to hold the stacks (which have passed through the pins) and have later balls instantly fall as close as they can to the baseline once they are pastpassed the pins.

<langsyntaxhighlight lang="j">pins=: '*'&=

clean=: clean1@clean2</langsyntaxhighlight>

<langsyntaxhighlight lang="j"> nxt nxt 3 (init initpins) 4

</langsyntaxhighlight>

<langpre jstyle="overflow-x: scroll; white-space: pre; width: 100%"> nxt&.>^:a: <7 (init ' ',.' ',.~ initpins) 5

└─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┘</langpre>

my @tmpl;}

# four lines of space belowprintCollectors();

for (1System.out.4println() {;

sub say(Str $foo) { else

@output System.push:out.print( ' $foo,' "\n");

}

sub print System.out.println(Str $foo)'|' {);

sayint ""result for= ^100;

return next unless $pos.definedresult;

<pre> say @line>>.chr.join("");o

* Add a ball to mythe $padding = 0;board.

my// $aliveSet =ceiling True;and floor:

sub// hits-peg($x,Set $y) {walls:

box[r][0] = return not ($x - $y) %% 2;Cell.WALL

my @stats = 0 xxfor ($row-count *in 2box.reversed();) {

@coins[0] = 0; println()

while $alive {}

for (i in 0 until nMaxBalls + boxH) }{

sleep my $coinpos = @coins[$line - .1];

my $coin = $alive = Truecoin_icons[$halfstep];

my @board = } elsedo {

sub out $coinpos;{

}my(@stuff) = split '', shift;

my @coins[0]a = Nilreverse 1..$row_count;

}my elsif@b --= 1..$coins > 0 {row_count;

my @pairs = pairwise @coins[0]{ =($a, 0$b) } @a, @b;

sub printnl { display-boardmy($foo) = @coins,_; push @statsoutput, $_);foo . "\n" }

my($row-countx, $y) = $peg-lines@_;

<langsyntaxhighlight PicoLisplang="picolisp">(de galtonBox (Pins Height)

(wait 200) ) ) )</langsyntaxhighlight>

<syntaxhighlight lang PicoLisp="picolisp">(galtonBox 9 11)</langsyntaxhighlight>

<langsyntaxhighlight Prologlang="prolog">:- dynamic tubes/1.

<langsyntaxhighlight lang="purebasic">Global pegRadius, pegSize, pegSize2, height, width, delay, histogramSize, ball

Repeat: eventLoop(): ForEver</langsyntaxhighlight>

;given list of indices, increment those byvector 1@i

(define (vector-inc! v i) (vector-indicesset! isv i (add1 (vector-ref v i))))

;each step, every ball goes to the next row and a new ballballs isare added at the top center

;mapadjust col tofrom bin[-x,x] to index[0,2x]

;add a new ballballs to the live balls

(make-st (consappend (make-list (random 4) (make-pos 0 0)) live)

(begin (for-each (λ (i) (vector-inc-indices! bin-indices (st-bins s) i))) bin-indices)

<langsyntaxhighlight lang="ruby">$rows_of_pins = 12

end</langsyntaxhighlight>

<langsyntaxhighlight lang="tcl">package require Tcl 8.6

}</langsyntaxhighlight>

<langsyntaxhighlight XPL0lang="xpl0">include c:\cxpl\codes; \intrinsic code declarations

]</langsyntaxhighlight>