Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/eXene/examples/nbody/main.sml
ViewVC logotype

Annotation of /sml/trunk/src/eXene/examples/nbody/main.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 846 - (view) (download)

1 : blume 845 structure Main = struct
2 :     structure V = Sim.V
3 :     fun mkData (x, y, vx, vy, m, r, cs) = ((x, y), (vx, vy), m, r, cs)
4 :     val bodyData = map mkData
5 :     [( 0.0, 0.0, 0.0, 0.0, 1.99e33, 8, SOME "orange"),
6 :     (5.85e12, 0.0, 0.0, 4.76e6, 3.29e26, 2, SOME "yellow"),
7 :     (1.08e13, 0.0, 0.0, 3.51e6, 4.84e27, 4, SOME "green"),
8 :     (1.50e13, 0.0, 0.0, 2.97e6, 5.98e27, 4, SOME "blue"),
9 :     (2.25e13, 0.0, 0.0, 2.43e6, 6.57e26, 3, SOME "red"),
10 : blume 846 (7.80e13, 0.0, 0.0, 1.30e6, 1.90e30, 6, SOME "brown")
11 :     (*
12 : blume 845 (7.80e13, 0.0, 0.0, 1.30e6, 1.90e32, 6, SOME "brown"),
13 :     (~7.80e13, 0.0, 0.0, ~1.30e6, 1.90e32, 6, SOME "goldenrod1")
14 : blume 846 *)
15 : blume 845 ]
16 :    
17 :     structure AnimateSim = AnimateSimFun
18 :     (structure Sim = Sim
19 :     val bodyData = bodyData)
20 :    
21 :     val run = AnimateSim.doit
22 :     end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0