public XRheology_OperatorConfiguration(XRheology_Control control)
{
Continuity = true;
Viscous = true;
PressureGradient = true;
OldroydB = true;
Transport = control.PhysicalParameters.IncludeConvection;
CodBlocks = new bool[] { true, true, true };
DomBlocks = new bool[] { true, true, true };
dntParams = control.AdvancedDiscretizationOptions;
physParams = control.PhysicalParameters;
useJacobian = control.useJacobianForOperatorMatrix;
UseArtificialDiffusion = control.UseArtificialDiffusion;
if (control.AdvancedDiscretizationOptions.SurfStressTensor == SurfaceSressTensor.SemiImplicit)
{
control.PhysicalParameters.mu_I = control.dtFixed * control.PhysicalParameters.Sigma;
}
switch (control.Timestepper_LevelSetHandling)
{
case LevelSetHandling.Coupled_Once:
MovingMesh = true;
mmsd = MassMatrixShapeandDependence.IsTimeDependent;
break;
case LevelSetHandling.Coupled_Iterative:
MovingMesh = true;
mmsd = MassMatrixShapeandDependence.IsTimeAndSolutionDependent;
break;
case LevelSetHandling.LieSplitting:
case LevelSetHandling.StrangSplitting:
MovingMesh = false;
mmsd = MassMatrixShapeandDependence.IsTimeDependent;
break;
case LevelSetHandling.None:
MovingMesh = false;
mmsd = MassMatrixShapeandDependence.IsNonIdentity;
break;
default:
throw new NotImplementedException();
}
}
/// <summary>
/// Control for various testing
/// </summary>
/// <param name="p"></param>
/// <param name="kelem"></param>
/// <param name="_DbPath"></param>
/// <param name="dt">
/// Timestepsize, should be chosen as (1.0 / (double)kelem) / 16.0;
/// </param>
/// <returns></returns>
public static XRheology_Control RB(int p = 2, int kelem = 20, double dt = 3.125e-3, string _DbPath = null)
{
XRheology_Control C = new XRheology_Control();
//_DbPath = @"D:\local\local_Testcase_databases\Testcase_RisingBubble";
//_DbPath = @"\\dc1\userspace\yotov\bosss-db\RisingBubble"";
// basic database options
// ======================
#region db
C.DbPath = _DbPath;
C.savetodb = C.DbPath != null;
C.SessionName = "RisingBubbleHeimann";
C.ProjectDescription = "rising bubble";
C.LogValues = XRheology_Control.LoggingValues.RisingBubble;
#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("GravityY", new FieldOpts()
{
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("Pressure", new FieldOpts()
{
Degree = p - 1,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressXX", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressXY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressYY", new FieldOpts()
{
Degree = p,
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
});
C.FieldOptions.Add("DivergenceVelocity", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
#endregion
// Physical Parameters
// ===================
#region physics
C.Tags.Add("Testcase viscoelastic");
C.PhysicalParameters.reynolds_A = 1.0;
C.PhysicalParameters.reynolds_B = 1.0;
C.PhysicalParameters.beta_a = 1.0;
C.PhysicalParameters.beta_b = 1.0;
C.RaiseWeissenberg = false;
C.PhysicalParameters.Weissenberg_a = 0.0;// .3;
C.PhysicalParameters.Weissenberg_b = 0.0;
C.WeissenbergIncrement = 0.1;
double sigma = 0;// 4.3e-4;
C.PhysicalParameters.Sigma = sigma;
//C.Tags.Add("Testcase 1");
//C.PhysicalParameters.rho_A = 100;
//C.PhysicalParameters.rho_B = 1000;
//C.PhysicalParameters.mu_A = 1;
//C.PhysicalParameters.mu_B = 10;
//C.PhysicalParameters.Sigma = 24.5;
//C.Tags.Add("Testcase 1 - higher parameters");
//C.PhysicalParameters.rho_A = 1000;
//C.PhysicalParameters.rho_B = 10000;
//C.PhysicalParameters.mu_A = 10;
//C.PhysicalParameters.mu_B = 100;
//C.PhysicalParameters.Sigma = 245;
//C.Tags.Add("Testcase 2");
//C.PhysicalParameters.rho_A = 1;
//C.PhysicalParameters.rho_B = 1000;
//C.PhysicalParameters.mu_A = 0.1;
//C.PhysicalParameters.mu_B = 10;
//C.PhysicalParameters.Sigma = 1.96;
// Re = 3.5 ; Bo(Eo) = 1
//C.PhysicalParameters.rho_A = 1;
//C.PhysicalParameters.rho_B = 1000;
//C.PhysicalParameters.mu_A = 1;
//C.PhysicalParameters.mu_B = 100;
//C.PhysicalParameters.Sigma = 245;
//// Re = 35 ; Bo(Eo) = 100
//C.PhysicalParameters.rho_A = 1;
//C.PhysicalParameters.rho_B = 1000;
//C.PhysicalParameters.mu_A = 0.1;
//C.PhysicalParameters.mu_B = 10;
//C.PhysicalParameters.Sigma = 2.45;
//// Re = 70 ; Bo(Eo) = 10
//C.PhysicalParameters.rho_A = 1;
//C.PhysicalParameters.rho_B = 1000;
//C.PhysicalParameters.mu_A = 0.05;
//C.PhysicalParameters.mu_B = 5;
//C.PhysicalParameters.Sigma = 24.5;
C.PhysicalParameters.IncludeConvection = true;
C.PhysicalParameters.Material = true;
#endregion
// grid generation
// ===============
#region grid
double xSize = 1.0;
double ySize = 2.0;
//int kelem = 160;
C.GridFunc = delegate() {
double[] Xnodes = GenericBlas.Linspace(0, xSize, kelem + 1);
double[] Ynodes = GenericBlas.Linspace(0, ySize, 2 * kelem + 1);
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes, periodicX: false);
grd.EdgeTagNames.Add(1, "wall_lower");
grd.EdgeTagNames.Add(2, "wall_upper");
grd.EdgeTagNames.Add(3, "freeslip_left");
grd.EdgeTagNames.Add(4, "freeslip_right");
grd.DefineEdgeTags(delegate(double[] X) {
byte et = 0;
if (Math.Abs(X[1]) <= 1.0e-8)
{
et = 1;
}
if (Math.Abs(X[1] - ySize) <= 1.0e-8)
{
et = 2;
}
if (Math.Abs(X[0]) <= 1.0e-8)
{
et = 3;
}
if (Math.Abs(X[0] - xSize) <= 1.0e-8)
{
et = 4;
}
return(et);
});
grd.AddPredefinedPartitioning("ZwoProcSplit", delegate(double[] X) {
int rank;
double x = X[0];
if (x < 0.5)
{
rank = 0;
}
else
{
rank = 1;
}
return(rank);
});
grd.AddPredefinedPartitioning("VierProcSplit", delegate(double[] X) {
int rank;
double x = X[0];
if (x < 0.35)
{
rank = 0;
}
else if (x < 0.5)
{
rank = 1;
}
else if (x < 0.75)
{
rank = 2;
}
else
{
rank = 3;
}
return(rank);
});
return(grd);
};
C.GridPartType = GridPartType.Predefined;
C.GridPartOptions = "VierProcSplit";
#endregion
// Initial Values
// ==============
#region init
double[] center = new double[] { 0.5, 0.5 }; //0.5,0.5
double radius = 0.25;
//Func<double[], double> PhiFunc = (X => (X[0] - center[0]).Pow2() + (X[1] - center[1]).Pow2() - radius.Pow2()); // quadratic form
Func <double[], double> PhiFunc = (X => ((X[0] - center[0]).Pow2() + (X[1] - center[1]).Pow2()).Sqrt() - radius); // signed-distance form
C.InitialValues_Evaluators.Add("Phi", PhiFunc);
Func <double, double> PeriodicFunc = x => radius;
C.InitialValues_Evaluators.Add("VelocityX#A", X => 0.0);
C.InitialValues_Evaluators.Add("VelocityX#B", X => 0.0);
C.InitialValues_Evaluators.Add("GravityY#A", X => - 9.81e-1);
C.InitialValues_Evaluators.Add("GravityY#B", X => - 9.81e-1);
//var database = new DatabaseInfo(_DbPath);
//Guid restartID = new Guid("58745416-3320-4e0c-a5fa-fc3a2c5203c7");
//C.RestartInfo = new Tuple<Guid, Foundation.IO.TimestepNumber>(restartID, null);
#endregion
// boundary conditions
// ===================
#region BC
C.AddBoundaryValue("wall_lower");
C.AddBoundaryValue("wall_upper");
C.AddBoundaryValue("freeslip_left");
C.AddBoundaryValue("freeslip_right");
//C.AddBoundaryCondition("wall_lower", VariableNames.LevelSet, PhiFunc);
#endregion
// misc. solver options
// ====================
#region solver
C.ComputeEnergy = false;
//C.AdvancedDiscretizationOptions.CellAgglomerationThreshold = 0.2;
//C.AdvancedDiscretizationOptions.PenaltySafety = 1;
//C.AdvancedDiscretizationOptions.UseGhostPenalties = true;
C.NonLinearSolver.SolverCode = NonLinearSolverCode.Newton;
C.NonLinearSolver.MaxSolverIterations = 50;
C.NonLinearSolver.MinSolverIterations = 1;
C.NonLinearSolver.ConvergenceCriterion = 1e-7;
//C.EnforceLevelSetConservation = true;
C.VelocityBlockPrecondMode = MultigridOperator.Mode.SymPart_DiagBlockEquilib;
C.StressBlockPrecondMode = MultigridOperator.Mode.LeftInverse_DiagBlock;
C.LinearSolver.SolverCode = LinearSolverCode.classic_mumps;
C.LinearSolver.NoOfMultigridLevels = 1;
C.LinearSolver.MaxSolverIterations = 50;
C.LinearSolver.MinSolverIterations = 1;
C.LinearSolver.ConvergenceCriterion = 1e-7;
C.LevelSet_ConvergenceCriterion = 1e-6;
C.AdvancedDiscretizationOptions.ViscosityMode = ViscosityMode.Viscoelastic;
C.Option_LevelSetEvolution = LevelSetEvolution.FastMarching;
C.AdvancedDiscretizationOptions.FilterConfiguration = CurvatureAlgorithms.FilterConfiguration.NoFilter;
C.AdvancedDiscretizationOptions.SST_isotropicMode = Solution.XNSECommon.SurfaceStressTensor_IsotropicMode.LaplaceBeltrami_Flux;
//C.AdvancedDiscretizationOptions.FilterConfiguration.FilterCurvatureCycles = 1;
C.LSContiProjectionMethod = ContinuityProjectionOption.ConstrainedDG; //.ContinuousDG;
#endregion
// Timestepping
// ============
#region time
C.TimeSteppingScheme = TimeSteppingScheme.BDF2;
C.Timestepper_BDFinit = TimeStepperInit.SingleInit;
//C.dt_increment = 20;
C.Timestepper_LevelSetHandling = LevelSetHandling.Coupled_Once;
C.TimesteppingMode = AppControl._TimesteppingMode.Transient;
C.dtMax = dt;
C.dtMin = dt;
C.Endtime = 3;
C.NoOfTimesteps = 10000; // (int)(3 / dt);
C.saveperiod = 10;
#endregion
return(C);
}
/// <summary>
/// specified control for benchmark testing
/// </summary>
/// <param name="p"></param>
/// <param name="kelem"></param>
/// <param name="_DbPath"></param>
/// <returns></returns>
public static XRheology_Control RB_BenchmarkTest(int p = 2, int kelem = 10, string _DbPath = null)
{
XRheology_Control C = new XRheology_Control();
//_DbPath = @"D:\local\local_Testcase_databases\Testcase_RisingBubble";
//_DbPath = @"\\fdyprime\userspace\smuda\cluster\cluster_db";
// basic database options
// ======================
#region db
C.DbPath = _DbPath;
C.savetodb = C.DbPath != null;
C.ProjectName = "XRheology/Bubble";
C.ProjectDescription = "rising bubble";
C.Tags.Add("benchmark setup");
C.LogValues = XRheology_Control.LoggingValues.RisingBubble;
C.LogPeriod = 30;
#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("GravityY", new FieldOpts()
{
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("Pressure", new FieldOpts()
{
Degree = p - 1,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressXX", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressXY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressYY", new FieldOpts()
{
Degree = p,
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.Tags.Add("Testcase viscoelastic");
C.PhysicalParameters.reynolds_A = 0.01;
C.PhysicalParameters.reynolds_B = 0.8;
C.PhysicalParameters.beta_a = 0.0;
C.PhysicalParameters.beta_b = 0.0;
C.RaiseWeissenberg = true;
C.PhysicalParameters.Weissenberg_a = 0.0;// .3;
C.PhysicalParameters.Weissenberg_b = 10.0;
C.WeissenbergIncrement = 0.1;
double sigma = 0.3712;// entspricht Eö=6.6;
C.PhysicalParameters.Sigma = sigma;
//C.Tags.Add("Testcase 1");
//C.PhysicalParameters.rho_A = 100;
//C.PhysicalParameters.rho_B = 1000;
//C.PhysicalParameters.mu_A = 1;
//C.PhysicalParameters.mu_B = 10;
//double sigma = 24.5;
//C.PhysicalParameters.Sigma = sigma;
//C.Tags.Add("Testcase 2");
//C.PhysicalParameters.rho_A = 1;
//C.PhysicalParameters.rho_B = 1000;
//C.PhysicalParameters.mu_A = 0.1;
//C.PhysicalParameters.mu_B = 10;
//double sigma = 1.96;
//C.PhysicalParameters.Sigma = sigma;
C.PhysicalParameters.IncludeConvection = true;
C.PhysicalParameters.Material = true;
#endregion
// grid generation
// ===============
#region grid
double h = 1.0 / (double)kelem;
C.GridFunc = delegate() {
double[] Xnodes = GenericBlas.Linspace(0, 1.0, kelem + 1);
double[] Ynodes = GenericBlas.Linspace(0, 2.0, 2 * kelem + 1);
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes, periodicX: false);
grd.EdgeTagNames.Add(1, "wall_lower");
grd.EdgeTagNames.Add(2, "wall_upper");
grd.EdgeTagNames.Add(3, "freeslip_left");
grd.EdgeTagNames.Add(4, "freeslip_right");
grd.DefineEdgeTags(delegate(double[] X) {
byte et = 0;
if (Math.Abs(X[1]) <= 1.0e-8)
{
et = 1;
}
if (Math.Abs(X[1] - 2.0) <= 1.0e-8)
{
et = 2;
}
if (Math.Abs(X[0]) <= 1.0e-8)
{
et = 3;
}
if (Math.Abs(X[0] - 1.0) <= 1.0e-8)
{
et = 4;
}
return(et);
});
//grd.AddPredefinedPartitioning("ZwoProcSplit", delegate (double[] X) {
// int rank;
// double x = X[0];
// if (x < 0.5)
// rank = 0;
// else
// rank = 1;
// return rank;
//});
//grd.AddPredefinedPartitioning("VierProcSplit", delegate (double[] X) {
// int rank;
// double x = X[0];
// if (x < 0.35)
// rank = 0;
// else if (x < 0.5)
// rank = 1;
// else if (x < 0.75)
// rank = 2;
// else
// rank = 3;
// return rank;
//});
return(grd);
};
//C.GridPartType = GridPartType.Predefined;
//C.GridPartOptions = "VierProcSplit";
#endregion
// Initial Values
// ==============
#region init
double[] center = new double[] { 0.5, 0.5 };
double radius = 0.25;
//Func<double[], double> PhiFunc = (X => (X[0] - center[0]).Pow2() + (X[1] - center[1]).Pow2() - radius.Pow2()); // quadratic form
Func <double[], double> PhiFunc = (X => ((X[0] - center[0]).Pow2() + (X[1] - center[1]).Pow2()).Sqrt() - radius); // signed-distance form
C.InitialValues_Evaluators.Add("Phi", PhiFunc);
Func <double, double> PeriodicFunc = x => radius;
C.InitialValues_Evaluators.Add("VelocityX#A", X => 0.0);
C.InitialValues_Evaluators.Add("VelocityX#B", X => 0.0);
C.InitialValues_Evaluators.Add("GravityY#A", X => - 9.81e-1);
C.InitialValues_Evaluators.Add("GravityY#B", X => - 9.81e-1);
//var database = new DatabaseInfo(_DbPath);
//Guid restartID = new Guid("b90c5f79-9b82-47cd-b400-e9abbbd83e19"); //new Guid("2953cd96-ea27-4989-abd3-07e99d35de5f");
//C.RestartInfo = new Tuple<Guid, Foundation.IO.TimestepNumber>(restartID, 1140);
#endregion
// boundary conditions
// ===================
#region BC
C.AddBoundaryValue("wall_lower");
C.AddBoundaryValue("wall_upper");
C.AddBoundaryValue("freeslip_left");
C.AddBoundaryValue("freeslip_right");
#endregion
// Level-Set
// =================
#region Fourier
int numSp = 1024;
double[] FourierP = new double[numSp];
double[] samplP = new double[numSp];
for (int sp = 0; sp < numSp; sp++)
{
FourierP[sp] = sp * (2 * Math.PI / (double)numSp);
samplP[sp] = radius;
}
//double circum = 2.0 * Math.PI * radius;
//double filter = (circum * 20.0) / ((double)numSp / 2.0);
//C.FourierLevSetControl = new FourierLevSetControl(FourierType.Polar, 2 * Math.PI, FourierP, samplP, 1.0 / (double)kelem) {
// center = center,
// FourierEvolve = Fourier_Evolution.MaterialPoints,
// centerMove = CenterMovement.Reconstructed,
//};
#endregion
C.Option_LevelSetEvolution = LevelSetEvolution.FastMarching;
// misc. solver options
// ====================
#region solver
//C.AdvancedDiscretizationOptions.CellAgglomerationThreshold = 0.2;
//C.AdvancedDiscretizationOptions.PenaltySafety = 40;
//C.AdvancedDiscretizationOptions.UseGhostPenalties = true;
C.LSContiProjectionMethod = ContinuityProjectionOption.ConstrainedDG; //.ContinuousDG;
C.VelocityBlockPrecondMode = MultigridOperator.Mode.SymPart_DiagBlockEquilib;
C.StressBlockPrecondMode = MultigridOperator.Mode.LeftInverse_DiagBlock;
C.LinearSolver.SolverCode = LinearSolverCode.classic_mumps;
C.LinearSolver.NoOfMultigridLevels = 1;
C.LinearSolver.MaxSolverIterations = 10;
C.LinearSolver.ConvergenceCriterion = 1e-8;
C.NonLinearSolver.SolverCode = NonLinearSolverCode.Newton;
//C.NonLinearSolver.UsePresRefPoint = false;
C.NonLinearSolver.MaxSolverIterations = 10;
C.NonLinearSolver.MinSolverIterations = 1;
C.NonLinearSolver.ConvergenceCriterion = 1e-8;
C.LevelSet_ConvergenceCriterion = 1e-6;
C.AdvancedDiscretizationOptions.ViscosityMode = ViscosityMode.FullySymmetric;
C.AdvancedDiscretizationOptions.FilterConfiguration = CurvatureAlgorithms.FilterConfiguration.NoFilter;
//C.AdvancedDiscretizationOptions.FilterConfiguration.FilterCurvatureCycles = 1;
C.AdvancedDiscretizationOptions.SurfStressTensor = SurfaceSressTensor.Isotropic;
C.PhysicalParameters.mu_I = 1 * sigma;
C.PhysicalParameters.lambda_I = 2 * sigma;
C.AdvancedDiscretizationOptions.SST_isotropicMode = SurfaceStressTensor_IsotropicMode.LaplaceBeltrami_ContactLine;
//C.LS_TrackerWidth = 2;
C.AdaptiveMeshRefinement = false;
C.RefineStrategy = XRheology_Control.RefinementStrategy.constantInterface;
C.RefinementLevel = 1;
#endregion
// Timestepping
// ============
#region time
C.TimeSteppingScheme = TimeSteppingScheme.ImplicitEuler;
C.Timestepper_BDFinit = TimeStepperInit.SingleInit;
C.Timestepper_LevelSetHandling = LevelSetHandling.Coupled_Once;
C.TimesteppingMode = AppControl._TimesteppingMode.Transient;
double dt = 1e-2;
C.dtMax = dt;
C.dtMin = dt;
C.NoOfTimesteps = 3000;
C.saveperiod = 3;
#endregion
return(C);
}
/// <summary>
///
/// </summary>
/// <returns></returns>
public static XRheology_Control CF_LevelSetMovementTest(int boundarySetup = 2, 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 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.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);
}
/// <summary>
/// control object for various testing
/// </summary>
/// <returns></returns>
public static XRheology_Control ChannelFlow_WithInterface(int p = 2, int kelem = 8, int wallBC = 1)
{
XRheology_Control C = new XRheology_Control();
string _DbPath = null; // @"D:\local\local_test_db";
// basic database options
// ======================
#region db
C.DbPath = _DbPath;
C.savetodb = C.DbPath != null;
C.ProjectName = "XRheology/Channel";
C.ProjectDescription = "Channel flow with vertical interface";
C.ContinueOnIoError = false;
#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("StressXX", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressXY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressYY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("GravityY", new FieldOpts()
{
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
});
C.FieldOptions.Add("DivergenceVelocity", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("KineticEnergy", new FieldOpts()
{
Degree = 2 * p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
#endregion
// Physical Parameters
// ===================
#region physics
//C.PhysicalParameters.rho_A = 1;
//C.PhysicalParameters.rho_B = 1;
//C.PhysicalParameters.rho_A = 1e4;
//C.PhysicalParameters.rho_B = 1e4;
C.PhysicalParameters.reynolds_A = 1.0;
C.PhysicalParameters.reynolds_B = 1.0;
//C.PhysicalParameters.mu_A = 1;
//C.PhysicalParameters.mu_B = 1;
C.PhysicalParameters.beta_a = 1.0;
C.PhysicalParameters.beta_b = 1.0;
double sigma = 0.0;
C.PhysicalParameters.Sigma = sigma;
//C.PhysicalParameters.beta_S = 0.05;
//C.PhysicalParameters.theta_e = Math.PI / 2.0;
C.PhysicalParameters.IncludeConvection = false;
C.PhysicalParameters.Material = true;
#endregion
// grid generation
// ===============
#region grid
double L = 2 * Math.PI;
double H = 1;
C.GridFunc = delegate() {
double[] Xnodes = GenericBlas.Linspace(0, L, 2 * kelem + 1);
double[] Ynodes = GenericBlas.Linspace(0, H, kelem + 1);
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes, periodicX: true);
switch (wallBC)
{
case 0:
goto default;
case 1:
grd.EdgeTagNames.Add(1, "velocity_inlet_lower");
grd.EdgeTagNames.Add(2, "velocity_inlet_upper");
break;
case 2:
grd.EdgeTagNames.Add(1, "navierslip_linear_lower");
grd.EdgeTagNames.Add(2, "navierslip_linear_upper");
break;
default:
grd.EdgeTagNames.Add(1, "wall_lower");
grd.EdgeTagNames.Add(2, "wall_upper");
break;
}
//grd.EdgeTagNames.Add(3, "velocity_inlet_left");
////grd.EdgeTagNames.Add(3, "pressure_outlet_left");
//grd.EdgeTagNames.Add(4, "pressure_outlet_right");
//grd.EdgeTagNames.Add(3, "freeslip_left");
//grd.EdgeTagNames.Add(4, "freeslip_right");
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 (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 = (X => X[1] - (H / 2.0) + 0.2); // + (H/20)*Math.Cos(8 * Math.PI * X[0] / L)); //-1);
//double[] center = new double[] { H / 2.0, H / 2.0 };
//double radius = 0.25;
//C.InitialValues_Evaluators.Add("Phi",
// //(X => (X[0] - center[0]).Pow2() + (X[1] - center[1]).Pow2() - radius.Pow2()) // quadratic form
// (X => ((X[0] - center[0]).Pow2() + (X[1] - center[1]).Pow2()).Sqrt() - radius) // signed-distance form
// );
C.InitialValues_Evaluators.Add("Phi", PhiFunc);
double U = 5; // 0.125;
C.InitialValues_Evaluators.Add("VelocityX#A", X => Math.Sin(X[0])); // (-4.0 * U / H.Pow2()) * (X[1] - H / 2.0).Pow2() + U);
C.InitialValues_Evaluators.Add("VelocityX#B", X => Math.Cos(X[0])); // (4.0 * U / H.Pow2()) * (X[1] - H / 2.0).Pow2() + U);
//C.InitialValues_Evaluators.Add("Pressure#A", X => 2.0 - X[0]);
//C.InitialValues_Evaluators.Add("KineticEnergy#A", X => 1.0 * ((-4.0 * U / H.Pow2()) * (X[1] - H / 2.0).Pow2() + U).Pow2() / 2.0);
//double Pjump = sigma / radius;
//C.InitialValues_Evaluators.Add("Pressure#A", X => Pjump);
//C.InitialValues_Evaluators.Add("GravityX#A", X => Math.Sin(X[0]));
//C.InitialValues_Evaluators.Add("GravityX#B", X => Math.Cos(X[0]));
//var database = new DatabaseInfo(_DbPath);
//Guid restartID = new Guid("cf6bd7bf-a19f-409e-b8c2-0b89388daad6");
//C.RestartInfo = new Tuple<Guid, Foundation.IO.TimestepNumber>(restartID, 10);
#endregion
// exact solution
// ==============
#region exact
C.Phi = ((X, t) => PhiFunc(X));
C.ExactSolutionVelocity = new Dictionary <string, Func <double[], double, double>[]>();
C.ExactSolutionVelocity.Add("A", new Func <double[], double, double>[] { (X, t) => Math.Sin(X[0]), (X, t) => 0.0 });
C.ExactSolutionVelocity.Add("B", new Func <double[], double, double>[] { (X, t) => Math.Cos(X[0]), (X, t) => 0.0 });
C.ExactSolutionPressure = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionPressure.Add("A", (X, t) => 0.0);
C.ExactSolutionPressure.Add("B", (X, t) => 0.0);
#endregion
// boundary conditions
// ===================
#region BC
switch (wallBC)
{
case 0:
goto default;
case 1:
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#A", X => 0); // U);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#B", X => Math.Cos(X[0])); // U);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityY#A", X => 0); // U);
C.AddBoundaryValue("velocity_inlet_lower", "VelocityY#B", X => 0); // U);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityX#A", X => Math.Sin(X[0]));
C.AddBoundaryValue("velocity_inlet_upper", "VelocityX#B", X => 0);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityY#A", X => 0);
C.AddBoundaryValue("velocity_inlet_upper", "VelocityY#B", X => 0);
break;
case 2:
C.AddBoundaryValue("navierslip_linear_lower");
C.AddBoundaryValue("navierslip_linear_upper");
break;
default:
C.AddBoundaryValue("wall_lower");
C.AddBoundaryValue("wall_upper");
break;
}
//C.AddBoundaryValue("velocity_inlet_left", "VelocityX#A", X => 1 - X[1] * X[1]);// U * X[1]);// (-4.0 * U / H.Pow2()) * (X[1] - H / 2.0).Pow2() + U);
//C.AddBoundaryValue("velocity_inlet_left", "VelocityX#B", X => 1 - X[1] * X[1]);// U * X[1]);
//C.AddBoundaryValue("velocity_inlet_left", "KineticEnergy#A", X => 1.0 * ((-4.0 * U / H.Pow2()) * (X[1] - H / 2.0).Pow2() + U).Pow2() / 2.0);
//C.AddBoundaryValue("velocity_inlet_left", "KineticEnergy#B", X => U.Pow2() / 2);
//C.AddBoundaryValue("pressure_outlet_left");
//C.AddBoundaryValue("pressure_outlet_right");
#endregion
// misc. solver options
// ====================
#region solver
C.ComputeEnergy = false;
C.VelocityBlockPrecondMode = MultigridOperator.Mode.SymPart_DiagBlockEquilib;
C.LinearSolver.SolverCode = LinearSolverCode.classic_mumps;
C.LinearSolver.NoOfMultigridLevels = 1;
C.NonLinearSolver.MaxSolverIterations = 50;
C.LinearSolver.MaxSolverIterations = 50;
//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.None;
C.Option_LevelSetEvolution = LevelSetEvolution.None;
C.AdvancedDiscretizationOptions.FilterConfiguration = CurvatureAlgorithms.FilterConfiguration.NoFilter;
C.AdvancedDiscretizationOptions.SST_isotropicMode = Solution.XNSECommon.SurfaceStressTensor_IsotropicMode.LaplaceBeltrami_ContactLine;
C.AdvancedDiscretizationOptions.Penalty2 = 1;
C.SkipSolveAndEvaluateResidual = true;
C.AdaptiveMeshRefinement = false;
C.RefinementLevel = 1;
#endregion
// Timestepping
// ============
#region time
C.Timestepper_Scheme = XRheology_Control.TimesteppingScheme.ImplicitEuler;
C.Timestepper_BDFinit = TimeStepperInit.SingleInit;
C.Timestepper_LevelSetHandling = LevelSetHandling.None;
C.CompMode = AppControl._CompMode.Steady;
double dt = 1e-2;
C.dtMax = dt;
C.dtMin = dt;
C.Endtime = 10;
C.NoOfTimesteps = 300;
C.saveperiod = 10;
#endregion
return(C);
}
// ==========================================
// Control-objects for elementalTestProgramm
// ==========================================
/// <summary>
///
/// </summary>
/// <returns></returns>
public static XRheology_Control CF_BoundaryTest(int bc = 3, bool Xperiodic = true, bool init_exact = false, bool slip = false)
{
int p = 2;
int kelem = 16;
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 = "Channel flow for BC testing";
#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.betaS_A = 0.0;
C.PhysicalParameters.betaS_B = 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);
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes, periodicX: Xperiodic);
switch (bc)
{
case 1: {
grd.EdgeTagNames.Add(1, "freeslip_lower");
grd.EdgeTagNames.Add(2, "freeslip_upper");
break;
}
case 2: {
grd.EdgeTagNames.Add(1, "navierslip_linear_lower");
grd.EdgeTagNames.Add(2, "navierslip_linear_upper");
break;
}
case 3: {
grd.EdgeTagNames.Add(1, "velocity_inlet_lower");
grd.EdgeTagNames.Add(2, "freeslip_upper");
break;
}
case 4: {
grd.EdgeTagNames.Add(1, "velocity_inlet_lower");
grd.EdgeTagNames.Add(2, "navierslip_linear_upper");
break;
}
default: {
throw new NotImplementedException("No such testcase available");
}
}
if (!Xperiodic)
{
grd.EdgeTagNames.Add(3, "velocity_inlet_left");
grd.EdgeTagNames.Add(4, "pressure_outlet_right");
}
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 = (X => - 1);
C.InitialValues_Evaluators.Add("Phi", PhiFunc);
double U = 1.0;
if (init_exact)
{
C.InitialValues_Evaluators.Add("VelocityX#A", X => U);
}
#endregion
// boundary conditions
// ===================
#region BC
switch (bc)
{
case 1: {
C.AddBoundaryValue("freeslip_lower");
if (slip)
{
C.AddBoundaryValue("freeslip_upper", "VelocityX#A", X => - U);
}
else
{
C.AddBoundaryValue("freeslip_upper");
}
if (!Xperiodic)
{
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#A", X => U);
C.AddBoundaryValue("pressure_outlet_right");
}
break;
}
case 2: {
//C.AddBoundaryCondition("navierslip_linear_lower");
//if (slip)
// C.AddBoundaryCondition("navierslip_linear_upper", "VelocityX#A", X => -U);
//else
// C.AddBoundaryCondition("navierslip_linear_upper");
C.AddBoundaryValue("navierslip_linear_lower", "VelocityX#A", X => - U);
C.AddBoundaryValue("navierslip_linear_upper", "VelocityX#A", X => U);
if (!Xperiodic)
{
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#A", X => U);
C.AddBoundaryValue("pressure_outlet_right");
}
break;
}
case 3: {
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#A", X => U);
C.AddBoundaryValue("freeslip_upper");
if (!Xperiodic)
{
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#A", X => U);
C.AddBoundaryValue("pressure_outlet_right");
}
break;
}
case 4: {
C.AddBoundaryValue("velocity_inlet_lower", "VelocityX#A", X => U);
C.AddBoundaryValue("navierslip_linear_upper");
if (!Xperiodic)
{
C.AddBoundaryValue("velocity_inlet_left", "VelocityX#A", X => U);
C.AddBoundaryValue("pressure_outlet_right");
}
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.Solver_MaxIterations = 50;
C.NonLinearSolver.ConvergenceCriterion = 1e-8;
C.LinearSolver.ConvergenceCriterion = 1e-8;
//C.Solver_ConvergenceCriterion = 1e-8;
C.LevelSet_ConvergenceCriterion = 1e-6;
C.Option_LevelSetEvolution = LevelSetEvolution.None;
C.AdvancedDiscretizationOptions.FilterConfiguration = CurvatureAlgorithms.FilterConfiguration.Default;
C.AdvancedDiscretizationOptions.SST_isotropicMode = Solution.XNSECommon.SurfaceStressTensor_IsotropicMode.LaplaceBeltrami_ContactLine;
C.AdvancedDiscretizationOptions.FilterConfiguration.FilterCurvatureCycles = 1;
#endregion
// Timestepping
// ============
#region time
C.Timestepper_Scheme = XRheology_Control.TimesteppingScheme.ImplicitEuler;
C.Timestepper_BDFinit = TimeStepperInit.SingleInit;
C.Timestepper_LevelSetHandling = LevelSetHandling.None;
C.CompMode = AppControl._CompMode.Steady;
double dt = 1e-1;
C.dtMax = dt;
C.dtMin = dt;
C.Endtime = 1000;
C.NoOfTimesteps = 100;
C.saveperiod = 1;
#endregion
return(C);
}
/// <summary>
/// control object for various testing
/// </summary>
/// <returns></returns>
public static XRheology_Control DropletInShearFlow_1(int p = 2, int kelem = 8)
{
XRheology_Control C = new XRheology_Control();
string _DbPath = null;
// basic database options
// ======================
#region db
C.DbPath = _DbPath;
C.savetodb = C.DbPath != null;
C.ProjectName = "XRheology/Channel";
C.ProjectDescription = "Channel flow with droplet inside";
C.ContinueOnIoError = false;
#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("StressXX", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressXY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressYY", 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.reynolds_A = 1.0;
C.PhysicalParameters.reynolds_B = 1.0;
C.PhysicalParameters.beta_a = 1.0;
C.PhysicalParameters.beta_b = 0.0;
C.RaiseWeissenberg = false;
C.PhysicalParameters.Weissenberg_a = 0.0;// .3;
C.PhysicalParameters.Weissenberg_b = 0.0;
C.WeissenbergIncrement = 0.1;
double sigma = 0.0;
C.PhysicalParameters.Sigma = sigma;
//C.PhysicalParameters.beta_S = 0.05;
//C.PhysicalParameters.theta_e = Math.PI / 2.0;
C.PhysicalParameters.IncludeConvection = true;
C.PhysicalParameters.Material = true;
C.FixedStreamwisePeriodicBC = true;
#endregion
// grid generation
// ===============
#region grid
double L = 10;
double H = 1;
C.GridFunc = delegate() {
double[] Xnodes = GenericBlas.Linspace(0, L, 2 * kelem + 1);
double[] Ynodes = GenericBlas.Linspace(-H, H, kelem + 1);
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes, periodicX: C.FixedStreamwisePeriodicBC);
grd.EdgeTagNames.Add(1, "wall_lower");
grd.EdgeTagNames.Add(2, "wall_upper");
if (!C.FixedStreamwisePeriodicBC)
{
grd.EdgeTagNames.Add(3, "velocity_inlet_left");
grd.EdgeTagNames.Add(4, "pressure_outlet_right");
}
grd.DefineEdgeTags(delegate(double[] X) {
byte et = 0;
if (Math.Abs(X[1] + H) <= 1.0e-8)
{
et = 1;
}
if (Math.Abs(X[1] - H) <= 1.0e-8)
{
et = 2;
}
if (!C.FixedStreamwisePeriodicBC)
{
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
double r = 0.25;
Func <double[], double> PhiFunc = (X => ((X[0] - 5).Pow2() + (X[1]).Pow2()).Sqrt() - r);
C.InitialValues_Evaluators.Add("Phi", PhiFunc);
C.InitialValues_Evaluators.Add("VelocityX#B", X => X[1]);
#endregion
// exact solution
// ==============
#region exact
//Exact Solution Channel
Func <double[], double, double> VelocityXfunction_A = (X, t) => X[1];
Func <double[], double, double> VelocityXfunction_B = (X, t) => X[1];
Func <double[], double, double> VelocityYfunction_A = (X, t) => 0;
Func <double[], double, double> VelocityYfunction_B = (X, t) => 0;
Func <double[], double, double> Pressurefunction_A = (X, t) => 0;
Func <double[], double, double> Pressurefunction_B = (X, t) => 0;
Func <double[], double, double> StressXXfunction_A = (X, t) => 0; // WEISSENBERG IS MULTIPLIED IN BC IN FLUX!
Func <double[], double, double> StressXXfunction_B = (X, t) => 0;
Func <double[], double, double> StressXYfunction_A = (X, t) => 0;
Func <double[], double, double> StressXYfunction_B = (X, t) => 0;
Func <double[], double, double> StressYYfunction_A = (X, t) => (0.0);
Func <double[], double, double> StressYYfunction_B = (X, t) => (0.0);
C.ExactSolutionVelocity = new Dictionary <string, Func <double[], double, double>[]>();
C.ExactSolutionVelocity.Add("A", new Func <double[], double, double>[] { VelocityXfunction_A, VelocityYfunction_A });
C.ExactSolutionVelocity.Add("B", new Func <double[], double, double>[] { VelocityXfunction_B, VelocityYfunction_B });
C.ExactSolutionPressure = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionPressure.Add("A", Pressurefunction_A);
C.ExactSolutionPressure.Add("B", Pressurefunction_B);
C.ExactSolutionStressXX = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionStressXX.Add("A", (X, t) => StressXXfunction_A(X, t) * C.PhysicalParameters.Weissenberg_a);
C.ExactSolutionStressXX.Add("B", (X, t) => StressXXfunction_B(X, t) * C.PhysicalParameters.Weissenberg_b);
C.ExactSolutionStressXY = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionStressXY.Add("A", StressXYfunction_A);
C.ExactSolutionStressXY.Add("B", StressXYfunction_B);
C.ExactSolutionStressYY = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionStressYY.Add("A", StressYYfunction_A);
C.ExactSolutionStressYY.Add("B", StressYYfunction_B);
#endregion
// boundary conditions
// ===================
#region BC
//C.AddBoundaryValue("wall_upper", "VelocityX#A", X => 1);
C.AddBoundaryValue("wall_upper", "VelocityX#B", X => 1);
//C.AddBoundaryValue("wall_lower", "VelocityX#A", X => -1);
C.AddBoundaryValue("wall_lower", "VelocityX#B", X => - 1);
if (!C.FixedStreamwisePeriodicBC)
{
C.AddBoundaryValue("Velocity_inlet_left", "VelocityX#A", VelocityXfunction_A);
C.AddBoundaryValue("Velocity_inlet_left", "VelocityX#B", VelocityXfunction_B);
C.AddBoundaryValue("Velocity_inlet_left", "VelocityY#A", VelocityYfunction_A);
C.AddBoundaryValue("Velocity_inlet_left", "VelocityY#B", VelocityYfunction_B);
C.AddBoundaryValue("Velocity_inlet_left", "StressXX#A", StressXXfunction_A);
C.AddBoundaryValue("Velocity_inlet_left", "StressXX#B", StressXXfunction_B);
C.AddBoundaryValue("Velocity_inlet_left", "StressXY#A", StressXYfunction_A);
C.AddBoundaryValue("Velocity_inlet_left", "StressXY#B", StressXYfunction_B);
C.AddBoundaryValue("Velocity_inlet_left", "StressYY#A", StressYYfunction_A);
C.AddBoundaryValue("Velocity_inlet_left", "StressYY#B", StressYYfunction_B);
C.AddBoundaryValue("pressure_outlet_right");
}
#endregion
// misc. solver options
// ====================
#region solver
C.ComputeEnergy = false;
C.VelocityBlockPrecondMode = MultigridOperator.Mode.SymPart_DiagBlockEquilib;
C.LinearSolver.SolverCode = LinearSolverCode.classic_mumps;
C.LinearSolver.NoOfMultigridLevels = 1;
C.LinearSolver.MaxSolverIterations = 10;
C.LinearSolver.ConvergenceCriterion = 1e-8;
C.NonLinearSolver.SolverCode = NonLinearSolverCode.Newton;
C.NonLinearSolver.MaxSolverIterations = 50;
C.NonLinearSolver.MinSolverIterations = 1;
C.NonLinearSolver.ConvergenceCriterion = 1e-8;
C.LevelSet_ConvergenceCriterion = 1e-6;
C.LSContiProjectionMethod = Solution.LevelSetTools.ContinuityProjectionOption.ConstrainedDG;
C.Option_LevelSetEvolution = LevelSetEvolution.FastMarching;
C.AdvancedDiscretizationOptions.FilterConfiguration = CurvatureAlgorithms.FilterConfiguration.NoFilter;
C.AdvancedDiscretizationOptions.SST_isotropicMode = Solution.XNSECommon.SurfaceStressTensor_IsotropicMode.LaplaceBeltrami_ContactLine;
C.AdvancedDiscretizationOptions.Penalty2 = 1;
C.AdvancedDiscretizationOptions.Penalty1[0] = 0;
C.AdvancedDiscretizationOptions.Penalty1[1] = 0;
//C.AdvancedDiscretizationOptions.PresPenalty2 = 0.0;
C.AdvancedDiscretizationOptions.UseWeightedAverages = true;
C.OperatorMatrixAnalysis = false;
C.SkipSolveAndEvaluateResidual = false;
C.AdaptiveMeshRefinement = true;
C.RefineStrategy = XRheology_Control.RefinementStrategy.CurvatureRefined;
C.RefinementLevel = 3;
C.BaseRefinementLevel = 3;
#endregion
// Timestepping
// ============
#region time
C.TimeSteppingScheme = TimeSteppingScheme.ImplicitEuler;
C.Timestepper_BDFinit = TimeStepperInit.SingleInit;
C.Timestepper_LevelSetHandling = LevelSetHandling.LieSplitting;
C.TimesteppingMode = AppControl._TimesteppingMode.Transient;
double dt = 1e-3;
C.dtMax = dt;
C.dtMin = dt;
C.Endtime = 10;
C.NoOfTimesteps = 2000;
C.saveperiod = 1;
#endregion
return(C);
}
/// <summary>
/// control object for quasi 1d test where one element border is replaced by levelset. The pointwise error for each flux can be compared.
/// </summary>
/// <returns></returns>
public static XRheology_Control InterfaceTest(int p = 2)
{
XRheology_Control C = new XRheology_Control();
string _DbPath = null; // @"D:\local\local_test_db";
// basic options
// ======================
#region db
C.DbPath = _DbPath;
C.savetodb = C.DbPath != null;
C.ProjectName = "XRheology/InterfaceTest";
C.ProjectDescription = "Cell border replaced by vertical interface";
C.OperatorMatrixAnalysis = true;
C.SkipSolveAndEvaluateResidual = true;
bool PHI = true;
C.InterfaceTest = true;
C.ContinueOnIoError = false;
#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("StressXX", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressXY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressYY", 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.reynolds_A = 1.0;
C.PhysicalParameters.reynolds_B = 1.0;
C.PhysicalParameters.beta_a = 0.0;
C.PhysicalParameters.beta_b = 0.0;
C.RaiseWeissenberg = false;
C.PhysicalParameters.Weissenberg_a = 1.0;
C.PhysicalParameters.Weissenberg_b = 1.0;
C.WeissenbergIncrement = 0.1;
double sigma = 0.0;
C.PhysicalParameters.Sigma = sigma;
C.PhysicalParameters.IncludeConvection = true;
C.PhysicalParameters.Material = true;
#endregion
// grid generation
// ===============
#region grid
C.GridFunc = delegate() {
double[] Xnodes;
if (PHI == true)
{
//with interface at 0
Xnodes = new double[] { -2, -1, 1, 2 };
Console.WriteLine("PHI is inserted at x = 0 instead of inner edge between cells");
}
else
{
//without interface at 0
Xnodes = new double[] { -2, -1, 0, 1, 2 };
}
double[] Ynodes = new double[] { 0, 1 };
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes, periodicX: false);
//var grd = Grid2D.UnstructuredTriangleGrid(Xnodes, Ynodes);
grd.EdgeTagNames.Add(1, "velocity_inlet");
grd.EdgeTagNames.Add(4, "pressure_outlet");
grd.EdgeTagNames.Add(2, "wall");
grd.DefineEdgeTags(delegate(double[] X) {
byte et = 0;
if (Math.Abs(X[1] - 1) <= 1.0e-8)
{
et = 2;
}
if (Math.Abs(X[1]) <= 1.0e-8)
{
et = 2;
}
if (Math.Abs(X[0] - 2) <= 1.0e-8)
{
et = 1;
}
if (Math.Abs(X[0] + 2) <= 1.0e-8)
{
et = 4;
}
return(et);
});
return(grd);
};
#endregion
// functions
// ===========
#region function definition
Func <double[], double> PhiFunc;
if (PHI == true)
{
//with interface at 0
PhiFunc = (X => X[0]);
}
else
{
//without interface at 0
PhiFunc = (X => - 1);
}
Func <double[], double, double> VelocityXfunction_A = (X, t) => (X[0] * X[0]);
Func <double[], double, double> VelocityXfunction_B = (X, t) => (X[0] * X[0]);
Func <double[], double, double> VelocityYfunction_A = (X, t) => (X[0] * X[0]);
Func <double[], double, double> VelocityYfunction_B = (X, t) => (X[0] * X[0]);
Func <double[], double, double> Pressurefunction_A = (X, t) => (X[0] * X[0]);
Func <double[], double, double> Pressurefunction_B = (X, t) => (X[0] * X[0]);
Func <double[], double, double> StressXXfunction_A = (X, t) => (X[0] * X[0]);
Func <double[], double, double> StressXXfunction_B = (X, t) => (X[0] * X[0]);
Func <double[], double, double> StressXYfunction_A = (X, t) => (X[0] * X[0]);
Func <double[], double, double> StressXYfunction_B = (X, t) => (X[0] * X[0]);
Func <double[], double, double> StressYYfunction_A = (X, t) => (X[0] * X[0]);
Func <double[], double, double> StressYYfunction_B = (X, t) => (X[0] * X[0]);
#endregion
// Initial Values
// ==============
#region init
C.InitialValues_Evaluators.Add("Phi", PhiFunc);
#endregion
// exact solution
// ==============
#region exact
C.ExactSolutionVelocity = new Dictionary <string, Func <double[], double, double>[]>();
C.ExactSolutionVelocity.Add("A", new Func <double[], double, double>[] { VelocityXfunction_A, VelocityYfunction_A });
C.ExactSolutionVelocity.Add("B", new Func <double[], double, double>[] { VelocityXfunction_B, VelocityYfunction_B });
C.ExactSolutionPressure = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionPressure.Add("A", Pressurefunction_A);
C.ExactSolutionPressure.Add("B", Pressurefunction_B);
C.ExactSolutionStressXX = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionStressXX.Add("A", (X, t) => StressXXfunction_A(X, t)); // * C.PhysicalParameters.Weissenberg_a);
C.ExactSolutionStressXX.Add("B", (X, t) => StressXXfunction_B(X, t)); // * C.PhysicalParameters.Weissenberg_b);
C.ExactSolutionStressXY = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionStressXY.Add("A", StressXYfunction_A);
C.ExactSolutionStressXY.Add("B", StressXYfunction_B);
C.ExactSolutionStressYY = new Dictionary <string, Func <double[], double, double> >();
C.ExactSolutionStressYY.Add("A", StressYYfunction_A);
C.ExactSolutionStressYY.Add("B", StressYYfunction_B);
#endregion
// boundary conditions
// ===================
#region BC
C.AddBoundaryValue("Velocity_inlet", "VelocityX#A", VelocityXfunction_A);
C.AddBoundaryValue("Velocity_inlet", "VelocityX#B", VelocityXfunction_B);
C.AddBoundaryValue("Velocity_inlet", "VelocityY#A", VelocityYfunction_A);
C.AddBoundaryValue("Velocity_inlet", "VelocityY#B", VelocityYfunction_B);
C.AddBoundaryValue("Velocity_inlet", "StressXX#A", StressXXfunction_A);
C.AddBoundaryValue("Velocity_inlet", "StressXX#B", StressXXfunction_B);
C.AddBoundaryValue("Velocity_inlet", "StressXY#A", StressXYfunction_A);
C.AddBoundaryValue("Velocity_inlet", "StressXY#B", StressXYfunction_B);
C.AddBoundaryValue("Velocity_inlet", "StressYY#A", StressYYfunction_A);
C.AddBoundaryValue("Velocity_inlet", "StressYY#B", StressYYfunction_B);
C.AddBoundaryValue("pressure_outlet");
C.AddBoundaryValue("wall");
#endregion
// misc. solver options
// ====================
#region solver
C.ComputeEnergy = false;
C.VelocityBlockPrecondMode = MultigridOperator.Mode.SymPart_DiagBlockEquilib;
C.LinearSolver.SolverCode = LinearSolverCode.classic_mumps;
C.LinearSolver.NoOfMultigridLevels = 1;
C.LinearSolver.MaxSolverIterations = 10;
C.LinearSolver.ConvergenceCriterion = 1e-8;
C.NonLinearSolver.SolverCode = NonLinearSolverCode.Newton;
C.NonLinearSolver.MaxSolverIterations = 3;
C.NonLinearSolver.MinSolverIterations = 1;
C.NonLinearSolver.ConvergenceCriterion = 1e-8;
C.LevelSet_ConvergenceCriterion = 1e-6;
C.LSContiProjectionMethod = Solution.LevelSetTools.ContinuityProjectionOption.None;
C.Option_LevelSetEvolution = LevelSetEvolution.None;
C.AdvancedDiscretizationOptions.FilterConfiguration = CurvatureAlgorithms.FilterConfiguration.NoFilter;
C.AdvancedDiscretizationOptions.SST_isotropicMode = Solution.XNSECommon.SurfaceStressTensor_IsotropicMode.LaplaceBeltrami_ContactLine;
C.AdvancedDiscretizationOptions.Penalty2 = 1;
C.AdvancedDiscretizationOptions.Penalty1[0] = 0;
C.AdvancedDiscretizationOptions.Penalty1[1] = 0;
//C.AdvancedDiscretizationOptions.PresPenalty2 = 0.0;
C.AdaptiveMeshRefinement = false;
C.RefinementLevel = 1;
#endregion
// Timestepping
// ============
#region time
C.TimeSteppingScheme = TimeSteppingScheme.ImplicitEuler;
C.Timestepper_BDFinit = TimeStepperInit.SingleInit;
C.Timestepper_LevelSetHandling = LevelSetHandling.None;
C.TimesteppingMode = AppControl._TimesteppingMode.Steady;
double dt = 1e-2;
C.dtMax = dt;
C.dtMin = dt;
C.Endtime = 10;
C.NoOfTimesteps = 300;
C.saveperiod = 10;
#endregion
return(C);
}
/// <summary>
/// control object for various testing
/// </summary>
public static XRheology_Control ManSol_Consistency(int p = 2, int kelem = 16, int wallBC = 0)
{
XRheology_Control C = new XRheology_Control();
string _DbPath = null; // @"D:\local\local_test_db";
// basic database options
// ======================
#region db
C.DbPath = _DbPath;
C.savetodb = C.DbPath != null;
C.ProjectName = "XRheology/Channel";
C.ProjectDescription = "Consistency test with non-polynomial manufactured solution";
C.ContinueOnIoError = false;
#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("StressXX", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressXY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("StressYY", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("Gravity", new FieldOpts()
{
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("GravityXX", new FieldOpts() {
// SaveToDB = FieldOpts.SaveToDBOpt.TRUE
//});
//C.FieldOptions.Add("GravityXY", new FieldOpts() {
// SaveToDB = FieldOpts.SaveToDBOpt.TRUE
//});
//C.FieldOptions.Add("GravityYY", new FieldOpts() {
// SaveToDB = FieldOpts.SaveToDBOpt.TRUE
//});
C.FieldOptions.Add("Curvature", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
C.FieldOptions.Add("DivergenceVelocity", new FieldOpts()
{
Degree = p,
SaveToDB = FieldOpts.SaveToDBOpt.TRUE
});
//C.FieldOptions.Add("KineticEnergy", new FieldOpts() {
// Degree = 2*p,
// SaveToDB = FieldOpts.SaveToDBOpt.TRUE
//});
#endregion
// Physical Parameters
// ===================
#region physics
C.PhysicalParameters.reynolds_A = 1.0;
C.PhysicalParameters.reynolds_B = 1.0;
C.PhysicalParameters.rho_A = 1;
C.PhysicalParameters.rho_B = 1;
C.PhysicalParameters.mu_A = 1;
C.PhysicalParameters.mu_B = 1;
C.PhysicalParameters.Weissenberg_a = 0.0;
C.PhysicalParameters.Weissenberg_b = 0.0;
C.PhysicalParameters.beta_a = 1.0;
C.PhysicalParameters.beta_b = 1.0;
double sigma = 0.0;
C.PhysicalParameters.Sigma = sigma;
//C.PhysicalParameters.beta_S = 0.05;
//C.PhysicalParameters.theta_e = Math.PI / 2.0;
C.PhysicalParameters.IncludeConvection = true;
C.PhysicalParameters.Material = true;
#endregion
// grid generation
// ===============
#region grid
C.GridFunc = delegate() {
double[] Xnodes = GenericBlas.Linspace(-1, 1, kelem + 1);
double[] Ynodes = GenericBlas.Linspace(-1, 1, kelem + 1);
var grd = Grid2D.Cartesian2DGrid(Xnodes, Ynodes);// periodicX:true, periodicY:true);
//grd.EdgeTagNames.Add(2, "Freeslip");
grd.EdgeTagNames.Add(1, "Velocity_inlet");
//grd.EdgeTagNames.Add(2, "Velocity_inlet_right");
//grd.EdgeTagNames.Add(3, "Pressure_Outlet");
grd.DefineEdgeTags(delegate(double[] _X) {
var X = _X;
double x = X[0];
double y = X[1];
if (Math.Abs(y - (-1)) < 1.0e-6)
{
// bottom
return(1);
}
if (Math.Abs(y - (+1)) < 1.0e-6)
{
// top
return(1);
}
if (Math.Abs(x - (-1)) < 1.0e-6)
{
// left
return(1);
}
if (Math.Abs(x - (+1)) < 1.0e-6)
{
// right
return(1);
}
throw new ArgumentOutOfRangeException();
});
return(grd);
};
#endregion
// Functions for exact solution
// ==============
#region func
Func <double[], double, double> PhiFunc = (X, t) => X[1] - (1 / 2.0) + 0.2; // + (H/20)*Math.Cos(8 * Math.PI * X[0] / L)); //-1);
Func <double[], double, double> VelX_A_Func = (X, t) => - Math.Exp(X[0]) * (X[1] * Math.Cos(X[1]) + Math.Sin(X[1])); //X[0] * X[0];
Func <double[], double, double> VelY_A_Func = (X, t) => Math.Exp(X[0]) * X[1] * Math.Sin(X[1]); //-2 * X[0] * X[1];
Func <double[], double, double> VelX_B_Func = (X, t) => - Math.Exp(X[0]) * (X[1] * Math.Cos(X[1]) + Math.Sin(X[1])); // X[0] * X[0];
Func <double[], double, double> VelY_B_Func = (X, t) => Math.Exp(X[0]) * X[1] * Math.Sin(X[1]); //-2 * X[0] * X[1];
Func <double[], double, double> Pres_A_Func = (X, t) => 2 * Math.Exp(X[0]) * Math.Sin(X[1]); //2 * X[0];
Func <double[], double, double> Pres_B_Func = (X, t) => 2 * Math.Exp(X[0]) * Math.Sin(X[1]); //2 * X[0];
Func <double[], double, double> StressXX_A_Func = (X, t) => - 2 * (1 - C.PhysicalParameters.beta_a) * Math.Exp(X[0]) * (X[1] * Math.Cos(X[1]) + Math.Sin(X[1]));
Func <double[], double, double> StressXY_A_Func = (X, t) => - 2 * (1 - C.PhysicalParameters.beta_a) * Math.Exp(X[0]) * (Math.Cos(X[1]) - X[1] * Math.Sin(X[1]));
Func <double[], double, double> StressYY_A_Func = (X, t) => 2 * (1 - C.PhysicalParameters.beta_a) * Math.Exp(X[0]) * (X[1] * Math.Cos(X[1]) + Math.Sin(X[1]));
Func <double[], double, double> StressXX_B_Func = (X, t) => - 2 * (1 - C.PhysicalParameters.beta_b) * Math.Exp(X[0]) * (X[1] * Math.Cos(X[1]) + Math.Sin(X[1]));
Func <double[], double, double> StressXY_B_Func = (X, t) => - 2 * (1 - C.PhysicalParameters.beta_b) * Math.Exp(X[0]) * (Math.Cos(X[1]) - X[1] * Math.Sin(X[1]));
Func <double[], double, double> StressYY_B_Func = (X, t) => 2 * (1 - C.PhysicalParameters.beta_b) * Math.Exp(X[0]) * (X[1] * Math.Cos(X[1]) + Math.Sin(X[1]));
Func <double[], double, double> GravityX_A_Func = (X, t) => - 1 / C.PhysicalParameters.reynolds_A * Math.Exp(X[0]) * (Math.Exp(X[0]) * Math.Cos(X[1]) * Math.Cos(X[1]) * C.PhysicalParameters.reynolds_A - Math.Exp(X[0]) * C.PhysicalParameters.reynolds_A * X[1] * X[1] - Math.Exp(X[0]) * C.PhysicalParameters.reynolds_A - 2 * Math.Sin(X[1]) * C.PhysicalParameters.reynolds_A + 2 * Math.Sin(X[1]));
Func <double[], double, double> GravityY_A_Func = (X, t) => 2 * Math.Exp(X[0]) * Math.Cos(X[1]) * ((C.PhysicalParameters.reynolds_A - 1) / C.PhysicalParameters.reynolds_A);
Func <double[], double, double> GravityX_B_Func = (X, t) => - 1 / C.PhysicalParameters.reynolds_B * Math.Exp(X[0]) * (Math.Exp(X[0]) * Math.Cos(X[1]) * Math.Cos(X[1]) * C.PhysicalParameters.reynolds_B - Math.Exp(X[0]) * C.PhysicalParameters.reynolds_B * X[1] * X[1] - Math.Exp(X[0]) * C.PhysicalParameters.reynolds_B - 2 * Math.Sin(X[1]) * C.PhysicalParameters.reynolds_B + 2 * Math.Sin(X[1]));
Func <double[], double, double> GravityY_B_Func = (X, t) => 2 * Math.Exp(X[0]) * Math.Cos(X[1]) * ((C.PhysicalParameters.reynolds_B - 1) / C.PhysicalParameters.reynolds_B);
Func <double[], double, double> GravityXX_A_Func = (X, t) => 2 * Math.Exp(2 * X[0]) * C.PhysicalParameters.Weissenberg_a * (-2 * Math.Cos(X[1]) * Math.Sin(X[1]) * C.PhysicalParameters.beta_a * X[1] * C.PhysicalParameters.Weissenberg_a
+ 3 * Math.Cos(X[1]) * Math.Cos(X[1]) * C.PhysicalParameters.beta_a + 2 * Math.Cos(X[1]) * Math.Sin(X[1]) * X[1] + C.PhysicalParameters.beta_a * X[1] * X[1] - 3 * Math.Cos(X[1]) * Math.Cos(X[1]) - X[1] * X[1] + C.PhysicalParameters.beta_a - 1);
Func <double[], double, double> GravityXY_A_Func = (X, t) => - 2 * Math.Exp(2 * X[0]) * (C.PhysicalParameters.beta_a - 1) * C.PhysicalParameters.Weissenberg_a * (2 * Math.Pow(Math.Cos(X[1]), 2) * X[1]
+ 3 * Math.Cos(X[1]) * Math.Sin(X[1]) + X[1]);
Func <double[], double, double> GravityYY_A_Func = (X, t) => - 2 * Math.Exp(2 * X[0]) * C.PhysicalParameters.Weissenberg_a * (-2 * Math.Cos(X[1]) * Math.Sin(X[1]) * C.PhysicalParameters.beta_a * X[1]
+ 3 * Math.Cos(X[1]) * Math.Cos(X[1]) * C.PhysicalParameters.beta_a + 2 * Math.Cos(X[1]) * Math.Sin(X[1]) * X[1] - 3 * C.PhysicalParameters.beta_a * X[1] * X[1] - 3 * Math.Cos(X[1]) * Math.Cos(X[1])
+ 3 * X[1] * X[1] - 3 * C.PhysicalParameters.beta_a + 3);
Func <double[], double, double> GravityXX_B_Func = (X, t) => 2 * Math.Exp(2 * X[0]) * C.PhysicalParameters.Weissenberg_b * (-2 * Math.Cos(X[1]) * Math.Sin(X[1]) * C.PhysicalParameters.beta_b * X[1] * C.PhysicalParameters.Weissenberg_b
+ 3 * Math.Cos(X[1]) * Math.Cos(X[1]) * C.PhysicalParameters.beta_b + 2 * Math.Cos(X[1]) * Math.Sin(X[1]) * X[1] + C.PhysicalParameters.beta_b * X[1] * X[1] - 3 * Math.Cos(X[1]) * Math.Cos(X[1]) - X[1] * X[1] + C.PhysicalParameters.beta_b - 1);
Func <double[], double, double> GravityXY_B_Func = (X, t) => - 2 * Math.Exp(2 * X[0]) * (C.PhysicalParameters.beta_b - 1) * C.PhysicalParameters.Weissenberg_b * (2 * Math.Pow(Math.Cos(X[1]), 2) * X[1]
+ 3 * Math.Cos(X[1]) * Math.Sin(X[1]) + X[1]);
Func <double[], double, double> GravityYY_B_Func = (X, t) => - 2 * Math.Exp(2 * X[0]) * C.PhysicalParameters.Weissenberg_b * (-2 * Math.Cos(X[1]) * Math.Sin(X[1]) * C.PhysicalParameters.beta_b * X[1]
+ 3 * Math.Cos(X[1]) * Math.Cos(X[1]) * C.PhysicalParameters.beta_b + 2 * Math.Cos(X[1]) * Math.Sin(X[1]) * X[1] - 3 * C.PhysicalParameters.beta_b * X[1] * X[1] - 3 * Math.Cos(X[1]) * Math.Cos(X[1])
+ 3 * X[1] * X[1] - 3 * C.PhysicalParameters.beta_b + 3);
#endregion
// Initial Values
// ==============
#region init
C.InitialValues_Evaluators.Add("Phi", X => PhiFunc(X, 0));
C.InitialValues_Evaluators.Add("VelocityX#A", X => VelX_A_Func(X, 0));
C.InitialValues_Evaluators.Add("VelocityX#B", X => VelX_B_Func(X, 0));
C.InitialValues_Evaluators.Add("VelocityY#A", X => VelY_A_Func(X, 0));
C.InitialValues_Evaluators.Add("VelocityY#B", X => VelY_B_Func(X, 0));
C.InitialValues_Evaluators.Add("Pressure#A", X => Pres_A_Func(X, 0));
C.InitialValues_Evaluators.Add("Pressure#B", X => Pres_B_Func(X, 0));
//double Pjump = sigma / radius;
//C.InitialValues_Evaluators.Add("Pressure#A", X => Pjump);
C.InitialValues_Evaluators.Add("GravityX#A", X => GravityX_A_Func(X, 0));
C.InitialValues_Evaluators.Add("GravityX#B", X => GravityX_B_Func(X, 0));
C.InitialValues_Evaluators.Add("GravityY#A", X => GravityY_A_Func(X, 0));
C.InitialValues_Evaluators.Add("GravityY#B", X => GravityY_B_Func(X, 0));
//C.InitialValues_Evaluators.Add("GravityXX#A", X => GravityXX_A_Func(X, 0));
//C.InitialValues_Evaluators.Add("GravityXX#B", X => GravityXX_B_Func(X, 0));
//C.InitialValues_Evaluators.Add("GravityXY#A", X => GravityXY_A_Func(X, 0));
//C.InitialValues_Evaluators.Add("GravityXY#B", X => GravityXY_B_Func(X, 0));
//C.InitialValues_Evaluators.Add("GravityYY#A", X => GravityYY_A_Func(X, 0));
//C.InitialValues_Evaluators.Add("GravityYY#B", X => GravityYY_B_Func(X, 0));
//var database = new DatabaseInfo(_DbPath);
//Guid restartID = new Guid("cf6bd7bf-a19f-409e-b8c2-0b89388daad6");
//C.RestartInfo = new Tuple<Guid, Foundation.IO.TimestepNumber>(restartID, 10);
#endregion
// exact solution
// ==============
#region exact
C.Phi = PhiFunc;
//C.ExactSolutionVelocity = new Dictionary<string, Func<double[], double, double>[]>();
//C.ExactSolutionVelocity.Add("A", new Func<double[], double, double>[] { VelX_A_Func, VelY_A_Func });
//C.ExactSolutionVelocity.Add("B", new Func<double[], double, double>[] { VelX_B_Func, VelY_B_Func });
//C.ExactSolutionPressure = new Dictionary<string, Func<double[], double, double>>();
//C.ExactSolutionPressure.Add("A", Pres_A_Func);
//C.ExactSolutionPressure.Add("B", Pres_B_Func);
//C.ExactSolutionStressXX = new Dictionary<string, Func<double[], double, double>>();
//C.ExactSolutionStressXX.Add("A", StressXX_A_Func);
//C.ExactSolutionStressXX.Add("B", StressXX_B_Func);
//C.ExactSolutionStressXY = new Dictionary<string, Func<double[], double, double>>();
//C.ExactSolutionStressXY.Add("A", StressXY_A_Func);
//C.ExactSolutionStressXY.Add("B", StressXY_B_Func);
//C.ExactSolutionStressYY = new Dictionary<string, Func<double[], double, double>>();
//C.ExactSolutionStressYY.Add("A", StressYY_A_Func);
//C.ExactSolutionStressYY.Add("B", StressYY_B_Func);
#endregion
// gravity source
// ===================
#region gravity
C.GravityX = new Dictionary <string, Func <double[], double, double> >();
C.GravityX.Add("A", GravityX_A_Func);
C.GravityX.Add("B", GravityX_B_Func);
C.GravityY = new Dictionary <string, Func <double[], double, double> >();
C.GravityY.Add("A", GravityY_A_Func);
C.GravityY.Add("B", GravityY_B_Func);
//C.GravityXX = new Dictionary<string, Func<double[], double, double>>();
//C.GravityXX.Add("A", GravityXX_A_Func);
//C.GravityXX.Add("B", GravityXX_B_Func);
//C.GravityXY = new Dictionary<string, Func<double[], double, double>>();
//C.GravityXY.Add("A", GravityXY_A_Func);
//C.GravityXY.Add("B", GravityXY_B_Func);
//C.GravityYY = new Dictionary<string, Func<double[], double, double>>();
//C.GravityYY.Add("A", GravityYY_A_Func);
//C.GravityYY.Add("B", GravityYY_B_Func);
#endregion
// boundary conditions
// ===================
#region BC
//C.AddBoundaryValue("Freeslip");
C.AddBoundaryValue("Velocity_inlet", "VelocityX#A", VelX_A_Func);
C.AddBoundaryValue("Velocity_inlet", "VelocityX#B", VelX_B_Func);
C.AddBoundaryValue("Velocity_inlet", "VelocityY#A", VelY_A_Func);
C.AddBoundaryValue("Velocity_inlet", "VelocityY#B", VelY_B_Func);
C.AddBoundaryValue("Velocity_inlet", "Pressure#A", Pres_A_Func);
C.AddBoundaryValue("Velocity_inlet", "Pressure#B", Pres_B_Func);
//C.AddBoundaryValue("Velocity_inlet_right", "VelocityX#A", (X, t) => -Math.Exp(X[0]) * (X[1] * Math.Cos(X[1]) + Math.Sin(X[1])));
//C.AddBoundaryValue("Velocity_inlet_right", "VelocityX#B", (X, t) => -Math.Exp(X[0]) * (X[1] * Math.Cos(X[1]) + Math.Sin(X[1])));
//C.AddBoundaryValue("Velocity_inlet_right", "VelocityY#A", (X, t) => Math.Exp(X[0]) * X[1] * Math.Sin(X[1]));
//C.AddBoundaryValue("Velocity_inlet_right", "VelocityY#B", (X, t) => Math.Exp(X[0]) * X[1] * Math.Sin(X[1]));
//C.AddBoundaryValue("Velocity_inlet_right", "Pressure#A", (X, t) => 2 * Math.Exp(X[0]) * Math.Sin(X[1]));
//C.AddBoundaryValue("Velocity_inlet_right", "Pressure#B", (X, t) => 2 * Math.Exp(X[0]) * Math.Sin(X[1]));
//C.AddBoundaryValue("Pressure_Outlet");
//C.AddBoundaryValue("Velocity_inlet", "GravityX#A", GravityX_A_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityX#B", GravityX_B_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityY#A", GravityY_A_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityY#B", GravityY_B_Func);
//C.AddBoundaryValue("Velocity_inlet_right", "GravityX#A", GravityX_A_Func);
//C.AddBoundaryValue("Velocity_inlet_right", "GravityX#B", GravityX_B_Func);
//C.AddBoundaryValue("Velocity_inlet_right", "GravityY#A", GravityY_A_Func);
//C.AddBoundaryValue("Velocity_inlet_right", "GravityY#B", GravityY_B_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityXX#A", GravityXX_A_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityXX#B", GravityXX_B_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityXY#A", GravityXY_A_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityXY#B", GravityXY_B_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityYY#A", GravityYY_A_Func);
//C.AddBoundaryValue("Velocity_inlet", "GravityYY#B", GravityYY_B_Func);
#endregion
// misc. solver options
// ====================
#region solver
C.ComputeEnergy = false;
C.VelocityBlockPrecondMode = MultigridOperator.Mode.SymPart_DiagBlockEquilib;
C.LinearSolver.SolverCode = LinearSolverCode.classic_mumps;
C.LinearSolver.NoOfMultigridLevels = 1;
C.NonLinearSolver.MaxSolverIterations = 50;
C.NonLinearSolver.MinSolverIterations = 3;
C.LinearSolver.MaxSolverIterations = 50;
//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.None;
C.Option_LevelSetEvolution = LevelSetEvolution.None;
C.AdvancedDiscretizationOptions.FilterConfiguration = CurvatureAlgorithms.FilterConfiguration.NoFilter;
C.AdvancedDiscretizationOptions.SST_isotropicMode = Solution.XNSECommon.SurfaceStressTensor_IsotropicMode.LaplaceBeltrami_ContactLine;
C.AdvancedDiscretizationOptions.Penalty2 = 1;
C.SkipSolveAndEvaluateResidual = false;
C.AdaptiveMeshRefinement = false;
C.RefinementLevel = 1;
#endregion
// Timestepping
// ============
#region time
C.TimeSteppingScheme = TimeSteppingScheme.ImplicitEuler;
C.Timestepper_BDFinit = TimeStepperInit.SingleInit;
C.Timestepper_LevelSetHandling = LevelSetHandling.None;
C.TimesteppingMode = AppControl._TimesteppingMode.Steady;
double dt = 1e-2;
C.dtMax = dt;
C.dtMin = dt;
C.Endtime = 10;
C.NoOfTimesteps = 300;
C.saveperiod = 10;
#endregion
return(C);
}
