source code
/* The Computer Language Benchmarks game
https://salsa.debian.org/benchmarksgame-team/benchmarksgame/
Naive transliteration from Michael Ferguson's Chapel program
contributed by Isaac Gouy
added mtime side-effect
*/
class Body {
internal double x, y, z, vx, vy, vz, mass;
internal Body(double x, double y, double z,
double vx, double vy, double vz, double mass){
this.x = x;
this.y = y;
this.z = z;
this.vx = vx;
this.vy = vy;
this.vz = vz;
this.mass = mass;
}
internal double VectorSumOfSquares(Body b) {
return Math.Pow(x - b.x, 2.0) +
Math.Pow(y - b.y, 2.0) + Math.Pow(z - b.z, 2.0);
}
internal double VelocitySumOfSquares() {
return vx*vx + vy*vy + vz*vz;
}
}
class Startup {
static double PI = 3.141592653589793;
static double SOLAR_MASS = 4 * PI * PI;
static double DAYS_PER_YEAR = 365.24;
static void InitSun(Body[] bodies) {
double px = 0.0;
double py = 0.0;
double pz = 0.0;
Body b;
for(int i=0; i < bodies.Length; ++i) {
b = bodies[i];
px += b.vx * b.mass;
py += b.vy * b.mass;
pz += b.vz * b.mass;
}
b = bodies[0];
b.vx = -px / SOLAR_MASS;
b.vy = -py / SOLAR_MASS;
b.vz = -pz / SOLAR_MASS;
}
static void Advance(Body[] bodies, double dt) {
double dx, dy, dz, dposNormSq, mag, mj, mi;
for(int i=0; i < bodies.Length; ++i) {
for(int j=i+1; j < bodies.Length; ++j) {
dx = bodies[i].x - bodies[j].x;
dy = bodies[i].y - bodies[j].y;
dz = bodies[i].z - bodies[j].z;
dposNormSq = dx*dx + dy*dy + dz*dz;
mag = dt / (dposNormSq * Math.Sqrt(dposNormSq));
mj = bodies[j].mass * mag;
bodies[i].vx -= dx * mj;
bodies[i].vy -= dy * mj;
bodies[i].vz -= dz * mj;
mi = bodies[i].mass * mag;
bodies[j].vx += dx * mi;
bodies[j].vy += dy * mi;
bodies[j].vz += dz * mi;
}
}
for(int i=0; i < bodies.Length; ++i) {
bodies[i].x += bodies[i].vx * dt;
bodies[i].y += bodies[i].vy * dt;
bodies[i].z += bodies[i].vz * dt;
}
}
static double Energy(Body[] bodies){
double e = 0.0;
for (int i=0; i < bodies.Length; ++i) {
e += 0.5 * bodies[i].mass * bodies[i].VelocitySumOfSquares();
for (int j=i+1; j < bodies.Length; ++j) {
e -= (bodies[i].mass * bodies[j].mass) /
Math.Sqrt(bodies[i].VectorSumOfSquares(bodies[j]));
}
}
return e;
}
static void Nbody(int n) {
var bodies = new Body[]{
// sun
new Body(0.0, 0.0, 0.0, 0.0, 0.0, 0.0, SOLAR_MASS),
// jupiter
new Body(
4.84143144246472090e+00,
-1.16032004402742839e+00,
-1.03622044471123109e-01,
1.66007664274403694e-03 * DAYS_PER_YEAR,
7.69901118419740425e-03 * DAYS_PER_YEAR,
-6.90460016972063023e-05 * DAYS_PER_YEAR,
9.54791938424326609e-04 * SOLAR_MASS
),
new Body(
// saturn
8.34336671824457987e+00,
4.12479856412430479e+00,
-4.03523417114321381e-01,
-2.76742510726862411e-03 * DAYS_PER_YEAR,
4.99852801234917238e-03 * DAYS_PER_YEAR,
2.30417297573763929e-05 * DAYS_PER_YEAR,
2.85885980666130812e-04 * SOLAR_MASS
),
new Body(
// uranus
1.28943695621391310e+01,
-1.51111514016986312e+01,
-2.23307578892655734e-01,
2.96460137564761618e-03 * DAYS_PER_YEAR,
2.37847173959480950e-03 * DAYS_PER_YEAR,
-2.96589568540237556e-05 * DAYS_PER_YEAR,
4.36624404335156298e-05 * SOLAR_MASS
),
new Body(
// neptune
1.53796971148509165e+01,
-2.59193146099879641e+01,
1.79258772950371181e-01,
2.68067772490389322e-03 * DAYS_PER_YEAR,
1.62824170038242295e-03 * DAYS_PER_YEAR,
-9.51592254519715870e-05 * DAYS_PER_YEAR,
5.15138902046611451e-05 * SOLAR_MASS
)
};
InitSun(bodies);
Console.WriteLine("{0:f9}",Energy(bodies));
for (int i=0; i<n; ++i) {
Advance(bodies, 0.01);
}
Console.WriteLine("{0:f9}",Energy(bodies));
Console.Out.Flush();
}
public static void Main(String[] args) {
int n = (args.Length > 0) ? Int32.Parse(args[0]) : 1000;
// in-process warmup
Console.SetOut(new StreamWriter(Console.OpenStandardOutput()));
for (int i=0; i<3000; ++i) {
Nbody(n);
}
Console.Out.Flush();
// mtime side-effect
using (FileStream fs = File.Create("./one")) { }
Nbody(n);
// mtime side-effect
using (FileStream fs = File.Create("./two")) { }
}
}