//[Test] Deactivated, because failing & to much variations
public static void SlottedDiskRotationTest(
[Values(LevelSetEvolution.FastMarching, LevelSetEvolution.ExtensionVelocity, LevelSetEvolution.ScalarConvection, LevelSetEvolution.Fourier)] LevelSetEvolution lsEvo,
[Values(LevelSetHandling.Coupled_Once, LevelSetHandling.LieSplitting, LevelSetHandling.Coupled_Iterative)] LevelSetHandling lsHandl,
[Values(TimeSteppingScheme.ImplicitEuler, TimeSteppingScheme.CrankNicolson, TimeSteppingScheme.BDF2)] TimeSteppingScheme tsScheme,
[Values(0.25)] double cLength)
{
Assert.False(lsEvo == LevelSetEvolution.ScalarConvection, "ScalarConvection is not working due to wrong Agglomeration!");
var C = PhysicalBasedTestcases.ChannelFlow.CF_LevelSetRotationTest(2, cLength, lsEvo, lsHandl, tsScheme);
using (var solver = new XNSE_SolverMain())
{
solver.Init(C);
solver.RunSolverMode();
double[] BmQ_RB = solver.ComputeBenchmarkQuantities_RisingBubble();
double err_thrsld = 1e-4;
double[] xCutout = new double[] { -0.1, 0.1 };
ZalesaksDisk disk = new ZalesaksDisk(xCutout, -0.1, cLength);
double diskArea = disk.GetArea();
// area
double err = Math.Abs(diskArea - BmQ_RB[0]);
Assert.Less(err, err_thrsld, "error in area");
Console.WriteLine("error in area = {0}", err);
// x-position
err = Math.Abs(0.0 - BmQ_RB[1]);
Assert.Less(err, err_thrsld, "error in x-position too high");
Console.WriteLine("error in x-position = {0}", err);
// y-position
err = Math.Abs(0.0 - BmQ_RB[2]);
Assert.Less(err, err_thrsld, "error in y-position too high");
Console.WriteLine("error in y-position = {0}", err);
// x-velocity
err = Math.Abs(0.0 - BmQ_RB[4]);
Assert.Less(err, err_thrsld, "error in x-velocity too high");
Console.WriteLine("error in x-velocity = {0}", err);
// y-velocity
err = Math.Abs(0.0 - BmQ_RB[5]);
Assert.Less(err, err_thrsld, "error in y-velocity too high");
Console.WriteLine("error in y-velocity = {0}", err);
}
}
/// <summary>
///
/// </summary>
/// <returns></returns>
public static XRheology_Control CF_LevelSetRotationTest(int boundarySetup = 1, double characteristicLength = 1.0, LevelSetEvolution lsEvo = LevelSetEvolution.FastMarching,
LevelSetHandling lsHandl = LevelSetHandling.Coupled_Once, XRheology_Control.TimesteppingScheme tsScheme = XRheology_Control.TimesteppingScheme.ImplicitEuler)
{
int p = 2;
int kelem = 16;
double cLength = characteristicLength;
XRheology_Control C = new XRheology_Control();
// basic database options
// ======================
#region db
C.DbPath = null; //_DbPath;
C.savetodb = C.DbPath != null;
C.ProjectName = "XNSE/elementalTest";
C.ProjectDescription = "Two-phase flow for testing the level set movement in solid body rotation";
#endregion
// DG degrees
// ==========
#region degrees
C.FieldOptions.Add("VelocityX", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("VelocityY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("Pressure", new FieldOpts()
{
Degree = p - 1,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("PhiDG", new FieldOpts()
{
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("Phi", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("Curvature", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
#endregion
// Physical Parameters
// ===================
#region physics
C.PhysicalParameters.rho_A = 1;
C.PhysicalParameters.rho_B = 1;
C.PhysicalParameters.mu_A = 1;
C.PhysicalParameters.mu_B = 1;
C.PhysicalParameters.Sigma = 0.0;
C.PhysicalParameters.IncludeConvection = true;
C.PhysicalParameters.Material = true;
#endregion
// grid generation
// ===============
#region grid
double L = 1;
double H = 1;
C.GridFunc = delegate() {
double[] Xnodes = GenericBlas.Linspace(-L / 2, L / 2, kelem + 1);
double[] Ynodes = GenericBlas.Linspace(-H / 2, H / 2, kelem + 1);
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes, periodicX: false);
grd.EdgeTagNames.Add(1, "velocity_inlet_lower");
grd.EdgeTagNames.Add(2, "velocity_inlet_upper");
grd.EdgeTagNames.Add(3, "velocity_inlet_left");
grd.EdgeTagNames.Add(4, "velocity_inlet_right");
grd.DefineEdgeTags(delegate(double[] X) {
byte et = 0;
if (Math.Abs(X[1] + H / 2) <= 1.0e-8)
{
et = 1;
}
if (Math.Abs(X[1] - H / 2) <= 1.0e-8)
{
et = 2;
}
if (Math.Abs(X[0] + L / 2) <= 1.0e-8)
{
et = 3;
}
if (Math.Abs(X[0] - L / 2) <= 1.0e-8)
{
et = 4;
}
return(et);
});
return(grd);
};
#endregion
// Initial Values
// ==============
#region init
Func <double[], double> PhiFunc;
switch (boundarySetup)
{
case 1:
{
// elliptoid
double[] center = new double[] { 0.15, 0.0 };
double[] shape = new double[] { 1, 0.36 };
double radius = cLength;
PhiFunc = (X => ((X[0] - center[0]).Pow2() / shape[0] + (X[1] - center[1]).Pow2() / shape[1]).Sqrt() - radius);
break;
}
case 2:
{
// slotted disk
double[] xCutout = new double[] { -0.1, 0.1 };
double yCutout = -0.1;
double radius = cLength;
ZalesaksDisk disk = new ZalesaksDisk(xCutout, yCutout, radius);
PhiFunc = (X => disk.SignedDistanceLevelSet(X));
break;
}
default:
PhiFunc = (X => - 1);
break;
}
C.InitialValues_Evaluators.Add("Phi", PhiFunc);
C.InitialValues_Evaluators.Add("VelocityX#A", X => - X[1]);
C.InitialValues_Evaluators.Add("VelocityX#B", X => - X[1]);
C.InitialValues_Evaluators.Add("VelocityY#A", X => X[0]);
C.InitialValues_Evaluators.Add("VelocityY#B", X => X[0]);
#endregion
// boundary conditions
// ===================
#region BC
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#A", X => - X[1]);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#B", X => - X[1]);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityX#A", X => - X[1]);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityX#B", X => - X[1]);
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#A", X => - X[1]);
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#B", X => - X[1]);
C.AddBoundaryValue("velocity_inlet_right", "VelocityX#A", X => - X[1]);
C.AddBoundaryValue("velocity_inlet_right", "VelocityX#B", X => - X[1]);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityY#A", X => X[0]);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityY#B", X => X[0]);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityY#A", X => X[0]);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityY#B", X => X[0]);
C.AddBoundaryValue("velocity_inlet_left", "VelocityY#A", X => X[0]);
C.AddBoundaryValue("velocity_inlet_left", "VelocityY#B", X => X[0]);
C.AddBoundaryValue("velocity_inlet_right", "VelocityY#A", X => X[0]);
C.AddBoundaryValue("velocity_inlet_right", "VelocityY#B", X => X[0]);
#endregion
// advanced settings for Fourier-Level-Set
// ======================
#region Fourier level-set
switch (lsEvo)
{
case LevelSetEvolution.Fourier:
{
switch (boundarySetup)
{
case 1:
{
int numSp = 640;
double[] FourierP = new double[numSp];
double[] samplP = new double[numSp];
double[] center = new double[] { 0.15, 0.0 };
double radius = cLength;
for (int sp = 0; sp < numSp; sp++)
{
FourierP[sp] = sp * (2 * Math.PI / (double)numSp);
samplP[sp] = radius / (Math.Cos(FourierP[sp]).Pow2() + Math.Sin(FourierP[sp]).Pow2() / 0.36).Sqrt();
}
C.FourierLevSetControl = new FourierLevSetControl(FourierType.Polar, 2 * Math.PI, FourierP, samplP, 1.0 / (double)kelem)
{
center = center,
FourierEvolve = Fourier_Evolution.MaterialPoints,
centerMove = CenterMovement.Reconstructed,
PeriodicFunc = (X => radius / (Math.Cos(X).Pow2() + Math.Sin(X).Pow2() / 0.36).Sqrt())
};
C.AdvancedDiscretizationOptions.SST_isotropicMode = SurfaceStressTensor_IsotropicMode.Curvature_Fourier;
break;
}
case 2:
{
throw new ArgumentException("Fourier Level-Set is not suitable for Slotted Disk");
}
default:
break;
}
break;
}
default:
break;
}
#endregion
// misc. solver options
// ====================
#region solver
C.ComputeEnergy = false;
C.VelocityBlockPrecondMode = MultigridOperator.Mode.SymPart_DiagBlockEquilib;
C.LinearSolver.NoOfMultigridLevels = 1;
C.NonLinearSolver.MaxSolverIterations = 50;
C.LinearSolver.MaxSolverIterations = 50;
C.NonLinearSolver.MinSolverIterations = 4;
C.LinearSolver.MinSolverIterations = 4;
//C.Solver_MaxIterations = 50;
C.NonLinearSolver.ConvergenceCriterion = 1e-8;
C.LinearSolver.ConvergenceCriterion = 1e-8;
//C.Solver_ConvergenceCriterion = 1e-8;
C.LevelSet_ConvergenceCriterion = 1e-6;
C.LSContiProjectionMethod = Solution.LevelSetTools.ContinuityProjectionOption.ContinuousDG;
C.Option_LevelSetEvolution = lsEvo;
C.AdvancedDiscretizationOptions.FilterConfiguration = CurvatureAlgorithms.FilterConfiguration.NoFilter;
C.AdvancedDiscretizationOptions.SST_isotropicMode = Solution.XNSECommon.SurfaceStressTensor_IsotropicMode.LaplaceBeltrami_ContactLine;
#endregion
// Timestepping
// ============
#region time
C.CompMode = AppControl._CompMode.Transient;
C.Timestepper_LevelSetHandling = lsHandl;
C.Timestepper_Scheme = tsScheme;
double dt = 1e-2;
C.dtMax = dt;
C.dtMin = dt;
C.Endtime = 1000;
C.NoOfTimesteps = 10;
C.saveperiod = 1;
#endregion
return(C);
}
