// ==========================
// Check boundary conditions
// ==========================
// ========================
// Check level set movement
// ========================
//[Test] Deactivated, because failing & to much variations
public static void LineMovementTest(
[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.5)] double cLength)
{
var C = PhysicalBasedTestcases.ChannelFlow.CF_LevelSetMovementTest(1, cLength, lsEvo, lsHandl, tsScheme);
using (var solver = new XNSE_SolverMain())
{
solver.Init(C);
solver.RunSolverMode();
double[] BmQ_LL = solver.ComputeBenchmarkQuantities_LineInterface();
double err_thrsld = 1e-4;
// length of contact-line
double err = Math.Abs(2 - BmQ_LL[0]);
Assert.Less(err, err_thrsld, "error interface length");
Console.WriteLine("error in interface length = {0}", err);
// area of species
err = Math.Abs(cLength * 1 - BmQ_LL[1]);
Assert.Less(err, err_thrsld, "error in area");
Console.WriteLine("error in area = {0}", err);
}
}
/// <summary>
/// Constructor for an XDG operator
/// </summary>
public XdgTimestepping(
XSpatialOperatorMk2 op,
IEnumerable <DGField> Fields,
IEnumerable <DGField> IterationResiduals,
TimeSteppingScheme __Scheme,
DelUpdateLevelset _UpdateLevelset = null,
LevelSetHandling _LevelSetHandling = LevelSetHandling.None,
MultigridOperator.ChangeOfBasisConfig[][] _MultigridOperatorConfig = null,
AggregationGridData[] _MultigridSequence = null,
double _AgglomerationThreshold = 0.1,
LinearSolverConfig LinearSolver = null, NonLinearSolverConfig NonLinearSolver = null) //
{
this.Scheme = __Scheme;
this.XdgOperator = op;
this.Parameters = op.InvokeParameterFactory(Fields);
foreach (var f in Fields.Cat(IterationResiduals).Cat(Parameters))
{
if (f != null && f is XDGField xf)
{
if (LsTrk == null)
{
LsTrk = xf.Basis.Tracker;
}
else
{
if (!object.ReferenceEquals(LsTrk, xf.Basis.Tracker))
{
throw new ArgumentException();
}
}
}
}
if (LsTrk == null)
{
throw new ArgumentException("unable to get Level Set Tracker reference");
}
bool UseX = Fields.Any(f => f is XDGField) || IterationResiduals.Any(f => f is XDGField);
SpeciesId[] spcToCompute = op.Species.Select(spcName => LsTrk.GetSpeciesId(spcName)).ToArray();
ConstructorCommon(op, UseX,
Fields, this.Parameters, IterationResiduals,
spcToCompute,
_UpdateLevelset,
_LevelSetHandling,
_MultigridOperatorConfig,
_MultigridSequence,
_AgglomerationThreshold,
LinearSolver, NonLinearSolver);
}
public static void CircleMovementTest_WithSurfaceTension(
[Values(LevelSetEvolution.FastMarching, LevelSetEvolution.ExtensionVelocity)] LevelSetEvolution lsEvo,
[Values(LevelSetHandling.LieSplitting, LevelSetHandling.Coupled_Once, LevelSetHandling.Coupled_Iterative)] LevelSetHandling lsHandl,
[Values(TimeSteppingScheme.CrankNicolson, TimeSteppingScheme.BDF2)] TimeSteppingScheme tsScheme)
{
var C = PhysicalBasedTestcases.ChannelFlow.CF_LevelSetMovementTest(2, 4, lsEvo, lsHandl, tsScheme);
double sigma = 1.0;
C.PhysicalParameters.Sigma = sigma;
double Pjump = sigma / 0.25;
C.InitialValues_Evaluators.Add("Pressure#A", X => Pjump);
}
//[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(XNSE_Control.TimesteppingScheme.ImplicitEuler, XNSE_Control.TimesteppingScheme.CrankNicolson, XNSE_Control.TimesteppingScheme.BDF2)] XNSE_Control.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 XNSE_Control CF_LevelSetMovementTest(int boundarySetup = 2, double characteristicLength = 1.0, LevelSetEvolution lsEvo = LevelSetEvolution.FastMarching,
LevelSetHandling lsHandl = LevelSetHandling.Coupled_Once, TimeSteppingScheme tsScheme = TimeSteppingScheme.ImplicitEuler)
{
int p = 2;
int kelem = 16;
double cLength = characteristicLength;
XNSE_Control C = new XNSE_Control();
// basic database options
// ======================
#region db
C.DbPath = null; //_DbPath;
C.savetodb = C.DbPath != null;
C.ProjectName = "XNSE/elementalTest";
C.ProjectDescription = "Two-phase Channel flow for testing the level set movement";
#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 = 2;
double H = 1;
C.GridFunc = delegate() {
double[] Xnodes = GenericBlas.Linspace(0, L, 2 * kelem + 1);
double[] Ynodes = GenericBlas.Linspace(0, H, kelem + 1);
bool xPeriodic = (boundarySetup == 1) ? true : false;
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes, periodicX: xPeriodic);
grd.EdgeTagNames.Add(1, "velocity_inlet_lower");
grd.EdgeTagNames.Add(2, "velocity_inlet_upper");
switch (boundarySetup)
{
case 1:
grd.EdgeTagNames.Add(3, "velocity_inlet_left");
grd.EdgeTagNames.Add(4, "pressure_outlet_right");
break;
case 2:
grd.EdgeTagNames.Add(3, "velocity_inlet_left");
grd.EdgeTagNames.Add(4, "pressure_outlet_right");
break;
default:
throw new ArgumentException("invalid boundary setup");
}
grd.DefineEdgeTags(delegate(double[] X) {
byte et = 0;
if (Math.Abs(X[1]) <= 1.0e-8)
{
et = 1;
}
if (Math.Abs(X[1] - H) <= 1.0e-8)
{
et = 2;
}
if (!xPeriodic)
{
if (Math.Abs(X[0]) <= 1.0e-8)
{
et = 3;
}
if (Math.Abs(X[0] - L) <= 1.0e-8)
{
et = 4;
}
}
return(et);
});
return(grd);
};
#endregion
// Initial Values
// ==============
#region init
Func <double[], double> PhiFunc;
switch (boundarySetup)
{
case 1: {
// horizontal interface
PhiFunc = (X => ((X[0] - cLength).Pow2()).Sqrt() - cLength / 2);
break;
}
case 2: {
// radial interface
double[] center = new double[] { L / 4.0, H / 2.0 };
double radius = cLength;
PhiFunc = (X => ((X[0] - center[0]).Pow2() + (X[1] - center[1]).Pow2()).Sqrt() - radius);
break;
}
default:
PhiFunc = (X => - 1);
break;
}
C.InitialValues_Evaluators.Add("Phi", PhiFunc);
double U = 1.0;
switch (boundarySetup)
{
case 1:
//C.InitialValues_Evaluators.Add("VelocityY#A", X => U);
//C.InitialValues_Evaluators.Add("VelocityY#B", X => U);
C.InitialValues_Evaluators.Add("VelocityX#A", X => U);
C.InitialValues_Evaluators.Add("VelocityX#B", X => U);
break;
case 2:
C.InitialValues_Evaluators.Add("VelocityX#A", X => U);
C.InitialValues_Evaluators.Add("VelocityX#B", X => U);
break;
default:
throw new ArgumentException("invalid boundary setup");
}
#endregion
// boundary conditions
// ===================
#region BC
switch (boundarySetup)
{
case 1:
//C.AddBoundaryValue("velocity_inlet_lower", "VelocityY#A", X => U);
//C.AddBoundaryValue("velocity_inlet_lower", "VelocityY#B", X => U);
//C.AddBoundaryValue("velocity_inlet_upper", "VelocityY#A", X => U);
//C.AddBoundaryValue("velocity_inlet_upper", "VelocityY#B", X => U);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#A", X => U);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#B", X => U);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityX#A", X => U);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityX#B", X => U);
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#A", X => U);
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#B", X => U);
C.AddBoundaryValue("pressure_outlet_right");
break;
case 2:
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#A", X => U);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#B", X => U);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityX#A", X => U);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityX#B", X => U);
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#A", X => U);
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#B", X => U);
C.AddBoundaryValue("pressure_outlet_right");
break;
default:
break;
}
#endregion
// advanced settings for Fourier-Level-Set
// ======================
#region Fourier level-set
switch (lsEvo)
{
case LevelSetEvolution.Fourier:
{
switch (boundarySetup)
{
case 1:
{
throw new ArgumentException("Fourier Level-Set not implemented in Line Movement Test");
break;
}
case 2:
{
int numSp = 640;
double[] FourierP = new double[numSp];
double[] samplP = new double[numSp];
double[] center = new double[] { L / 4.0, H / 2.0 };
double radius = cLength;
for (int sp = 0; sp < numSp; sp++)
{
FourierP[sp] = sp * (2 * Math.PI / (double)numSp);
samplP[sp] = radius;
}
C.FourierLevSetControl = new FourierLevSetControl(FourierType.Polar, 2 * Math.PI, FourierP, samplP, 1.0 / (double)kelem)
{
center = center,
FourierEvolve = Fourier_Evolution.MaterialPoints,
centerMove = CenterMovement.Reconstructed,
};
C.AdvancedDiscretizationOptions.SST_isotropicMode = SurfaceStressTensor_IsotropicMode.Curvature_Fourier;
break;
}
default:
break;
}
break;
}
default:
break;
}
#endregion
// misc. solver options
// ====================
#region solver
C.ComputeEnergyProperties = false;
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.ConstrainedDG;
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.TimesteppingMode = AppControl._TimesteppingMode.Transient;
C.Timestepper_LevelSetHandling = lsHandl;
C.TimeSteppingScheme = tsScheme;
double dt = 1e-2;
C.dtMax = dt;
C.dtMin = dt;
C.Endtime = 1000;
C.NoOfTimesteps = 10;
C.saveperiod = 1;
#endregion
return(C);
}
/*
* /// <summary>
* /// Legacy-Constructor for user-specified <see cref="DelComputeOperatorMatrix"/>
* /// </summary>
* public XdgTimestepping(
* DelComputeOperatorMatrix userComputeOperatorMatrix,
* IEnumerable<DGField> Fields,
* IEnumerable<DGField> IterationResiduals,
* TimeSteppingScheme __Scheme,
* DelUpdateLevelset _UpdateLevelset,
* LevelSetHandling _LevelSetHandling,
* MultigridOperator.ChangeOfBasisConfig[][] _MultigridOperatorConfig,
* AggregationGridData[] _MultigridSequence,
* double _AgglomerationThreshold,
* LinearSolverConfig LinearSolver, NonLinearSolverConfig NonLinearSolver) //
* {
* this.Scheme = __Scheme;
* this.XdgOperator = op;
*
* this.Parameters = op.InvokeParameterFactory(Fields);
*
*
* foreach (var f in Fields.Cat(IterationResiduals).Cat(Parameters)) {
* if (f != null && f is XDGField xf) {
* if (LsTrk == null) {
* LsTrk = xf.Basis.Tracker;
* } else {
* if (!object.ReferenceEquals(LsTrk, xf.Basis.Tracker))
* throw new ArgumentException();
* }
* }
* }
* if (LsTrk == null)
* throw new ArgumentException("unable to get Level Set Tracker reference");
*
* bool UseX = Fields.Any(f => f is XDGField) || IterationResiduals.Any(f => f is XDGField);
*
* ConstructorCommon(op, UseX,
* Fields, this.Parameters, IterationResiduals,
* myDelComputeXOperatorMatrix,
* _UpdateLevelset,
* _LevelSetHandling,
* _MultigridOperatorConfig,
* _MultigridSequence,
* _AgglomerationThreshold,
* LinearSolver, NonLinearSolver);
*
* }
*/
private void ConstructorCommon(
ISpatialOperator op, bool UseX,
IEnumerable <DGField> Fields, IEnumerable <DGField> __Parameters, IEnumerable <DGField> IterationResiduals,
SpeciesId[] spcToCompute,
DelUpdateLevelset _UpdateLevelset, LevelSetHandling _LevelSetHandling,
MultigridOperator.ChangeOfBasisConfig[][] _MultigridOperatorConfig, AggregationGridData[] _MultigridSequence,
double _AgglomerationThreshold,
LinearSolverConfig LinearSolver, NonLinearSolverConfig NonLinearSolver) //
{
RungeKuttaScheme rksch;
int bdfOrder;
DecodeScheme(this.Scheme, out rksch, out bdfOrder);
SpatialOperatorType _SpatialOperatorType = SpatialOperatorType.Nonlinear;
int quadOrder = op.QuadOrderFunction(
Fields.Select(f => f.Basis.Degree).ToArray(),
Parameters.Select(f => f != null ? f.Basis.Degree : 0).ToArray(),
IterationResiduals.Select(f => f.Basis.Degree).ToArray());
// default solvers
// ===============
if (LinearSolver == null)
{
LinearSolver = new LinearSolverConfig()
{
SolverCode = LinearSolverCode.automatic
};
}
if (NonLinearSolver == null)
{
NonLinearSolver = new NonLinearSolverConfig()
{
SolverCode = NonLinearSolverCode.Newton
};
}
// default Multi-Grid
// ==================
if (_MultigridSequence == null)
{
_MultigridSequence = new[] { CoarseningAlgorithms.ZeroAggregation(this.GridDat) };
}
// default level-set treatment
// ===========================
if (_UpdateLevelset == null)
{
_UpdateLevelset = this.UpdateLevelsetWithNothing;
if (_LevelSetHandling != LevelSetHandling.None)
{
throw new ArgumentException($"If level-set handling is set to {_LevelSetHandling} (anything but {LevelSetHandling.None}) an updating routine must be specified.");
}
}
// default multigrid operator config
// =================================
if (_MultigridOperatorConfig == null)
{
int NoOfVar = Fields.Count();
_MultigridOperatorConfig = new MultigridOperator.ChangeOfBasisConfig[0][];
_MultigridOperatorConfig[0] = new MultigridOperator.ChangeOfBasisConfig[NoOfVar];
for (int iVar = 0; iVar < NoOfVar; iVar++)
{
_MultigridOperatorConfig[0][iVar] = new MultigridOperator.ChangeOfBasisConfig()
{
DegreeS = new int[] { Fields.ElementAt(iVar).Basis.Degree },
mode = MultigridOperator.Mode.Eye,
VarIndex = new int[] { iVar }
};
}
}
// finally, create timestepper
// ===========================
if (bdfOrder > -1000)
{
m_BDF_Timestepper = new XdgBDFTimestepping(Fields, __Parameters, IterationResiduals,
LsTrk, true,
this.ComputeOperatorMatrix, op, _UpdateLevelset,
bdfOrder,
_LevelSetHandling,
MassMatrixShapeandDependence.IsTimeDependent,
_SpatialOperatorType,
_MultigridOperatorConfig, _MultigridSequence,
spcToCompute, quadOrder,
_AgglomerationThreshold, UseX,
NonLinearSolver,
LinearSolver);
m_BDF_Timestepper.Config_AgglomerationThreshold = _AgglomerationThreshold;
}
else
{
m_RK_Timestepper = new XdgRKTimestepping(Fields.ToArray(), __Parameters, IterationResiduals.ToArray(),
LsTrk,
this.ComputeOperatorMatrix, op, _UpdateLevelset,
rksch,
_LevelSetHandling,
MassMatrixShapeandDependence.IsTimeDependent,
_SpatialOperatorType,
_MultigridOperatorConfig, _MultigridSequence,
spcToCompute, quadOrder,
_AgglomerationThreshold, UseX,
NonLinearSolver,
LinearSolver);
m_RK_Timestepper.Config_AgglomerationThreshold = _AgglomerationThreshold;
}
}
