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

SCM Repository

[smlnj] View of /sml/trunk/src/eXene/examples/nbody/simul.sig
ViewVC logotype

View of /sml/trunk/src/eXene/examples/nbody/simul.sig

Parent Directory Parent Directory | Revision Log Revision Log

Revision 845 - (download) (as text) (annotate)
Thu Jun 21 16:25:49 2001 UTC (18 years, 4 months ago) by blume
File size: 446 byte(s)
eXene compiles and works again
signature SIM = sig

    structure V : sig
	type vect
	val proj2d: vect -> { x: real, y: real }

    type vect = V.vect

    type 'a body = { p: vect, v: vect, m: real, data: 'a }

    datatype 'a msg =
	NEW_DT of real
      | NEW_N of int
      | NEW_BODY of 'a body
      | QUERY of 'a body list CML.chan
      | STOP

    val run:
	{ G: real, bodies: 'a body list, dt: real, n: int,
	  msgchan: 'a msg CML.chan }
	-> CML.thread_id

ViewVC Help
Powered by ViewVC 1.0.0