steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bubble-chamber: Rearrange the example configurations

db4
Eduardo Cavazos 2008-12-15 19:01:07 -06:00
parent 0884a3f162
commit 9b17f0a7f2
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
extra/bubble-chamber/bubble-chamber.factor
View File

@ -524,6 +524,24 @@ M:: <bubble-chamber> update-frame-buffer ( BUBBLE-CHAMBER -- )
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: hadron-chamber ( -- )
bubble-chamber-window
1000 [ hadron add-particle ] times
big-bang
drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Experimental
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: muon-chamber ( -- )
bubble-chamber-window
1000 [ muon add-particle ] times
dup particles>> [ collide randomize-collision-theta ] each
drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: original-big-bang ( -- ) : original-big-bang ( -- )
bubble-chamber bubble-chamber
{ 1000 1000 } >>size { 1000 1000 } >>size
@ -541,22 +559,6 @@ M:: <bubble-chamber> update-frame-buffer ( BUBBLE-CHAMBER -- )
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: hadron-chamber ( -- )
bubble-chamber-window
1000 [ hadron add-particle ] times
big-bang
drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: muon-chamber ( -- )
bubble-chamber-window
1000 [ muon add-particle ] times
dup particles>> [ collide randomize-collision-theta ] each
drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: original-big-bang-variant ( -- ) : original-big-bang-variant ( -- )
bubble-chamber-window bubble-chamber-window
1789 [ muon add-particle ] times 1789 [ muon add-particle ] times
@ -565,4 +567,3 @@ M:: <bubble-chamber> update-frame-buffer ( BUBBLE-CHAMBER -- )
111 [ axion add-particle ] times 111 [ axion add-particle ] times
dup particles>> [ collide randomize-collision-theta ] each dup particles>> [ collide randomize-collision-theta ] each
drop ; drop ;