muon-chamber ( -- )

Vocabulary

bubble-chamber

Inputs

None

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: bubble-chamber

: muon-chamber ( -- )
    bubble-chamber-window 1000 [ <muon> add-particle ] times
    dup particles>> [ collide randomize-collision-theta ] each
    drop ;