original ( -- )

Vocabulary

bubble-chamber

Inputs

None

Outputs

None

Definition

USING: accessors kernel math random sequences ;

IN: bubble-chamber

: original ( -- )
    bubble-chamber-window 1789 [ <muon> add-particle ] times
    1300 [ <quark> add-particle ] times 1000
    [ <hadron> add-particle ] times 111
    [ <axion> add-particle ] times particles>>
    [ [ muon? ] filter random collide ]
    [ [ quark? ] filter random collide ]
    [ [ hadron? ] filter random collide ] tri ;