public static void RunTests()
{
var a = Generate.Empty(4, 4);
a.Apply(new GenerateOp());
a += 1;
a = a.Apply(Ops.Add, new NdArray(1));
a = a.Add(1);
a = a.Sub(new NdArray(1));
a = Add.Apply(a, 1);
a = -a;
a = ++a;
a = Abs.Apply(a);
a = a.Reduce(Ops.Add);
a = Add.Reduce(a);
if (a.Value[0] != 48)
{
throw new Exception("Something went wrong");
}
}
protected void Reset(long size)
{
this.x = Generate.Random(size);
this.y = Generate.Random(size);
this.z = Generate.Random(size) * (TData)0.01;
var dist = 1f / Sqrt.Apply((this.x.Pow(2f) + this.y.Pow(2f) + this.z.Pow(2f)));
dist = dist - (TData)(0.8f - (new Random().NextDouble() * 0.1f));
this.x = XMAX * this.x * dist * Sign.Apply(.5f - Generate.Random(size));
this.y = YMAX * this.y * dist * Sign.Apply(.5f - Generate.Random(size));
this.z = ZMAX * this.z * dist * Sign.Apply(.5f - Generate.Random(size));
var magv = Cirklev(this.x, this.y, this.z);
var absangle = Atan.Apply(Abs.Apply(this.y / this.x));
var thetav = (TData)(Math.PI / 2) - absangle;
this.vx = (TData)(-1) * Sign.Apply(this.y) * Cos.Apply(thetav) * magv;
this.vy = Sign.Apply(this.x) * Sin.Apply(thetav) * magv;
this.vz = Generate.Zeroes(size);
}
public static T Solve(long width, long height, bool calculateDelta, long?fixedIterations = null)
{
if (fixedIterations == null)
{
calculateDelta = true;
}
var full = Generate.Zeroes(height + 2, width + 2);
var work = Generate.Zeroes(height, width);
var diff = Generate.Zeroes(height, width);
var tmpdelta = Generate.Zeroes(width);
var deltares = Generate.Empty(1);
full.Name = "full";
work.Name = "work";
diff.Name = "diff";
tmpdelta.Name = "tmpdelta";
var cells = full[R.Slice(1, -1), R.Slice(1, -1)];
var up = full[R.Slice(1, -1), R.Slice(0, -2)];
var left = full[R.Slice(0, -2), R.Slice(1, -1)];
var right = full[R.Slice(2, 0), R.Slice(1, -1)];
var down = full[R.Slice(1, -1), R.Slice(2, 0)];
cells.Name = "cells";
up.Name = "up";
left.Name = "left";
right.Name = "right";
down.Name = "down";
full[R.All, R.El(0)] += -273.5f;
full[R.All, R.El(-1)] += -273.5f;
full[0] += 40f;
full[-1] += -273.5f;
T epsilon = width * height * 0.002f;
T delta = epsilon + 1;
int i = 0;
work[R.All] = cells;
while (fixedIterations.HasValue ? (i < fixedIterations.Value) : epsilon < delta)
{
i++;
Add.Apply(work, up, work);
Add.Apply(work, left, work);
Add.Apply(work, right, work);
Add.Apply(work, down, work);
Mul.Apply(work, 0.2f, work);
//This will do the same but not in-place
// We need to recompile the kernels to
// support this
/*work += up;
* work += left;
* work += right;
* work += down;
* work *= 0.2f;*/
if (calculateDelta)
{
Sub.Apply(cells, work, diff);
Abs.Apply(diff, diff);
Add.Reduce(diff, 0, tmpdelta);
delta = Add.Reduce(tmpdelta, 0, deltares).Value[0];
}
cells[R.All] = work;
}
if (calculateDelta)
{
return(delta);
}
else
{
//Access the data to ensure it is flushed
return(full.Value[0]);
}
}
