int main(int argc, char **args)
{
set_verbose(false);
if (argc < 3) error("Not enough parameters");
char *type = args[1];
Mesh mesh;
Mesh3DReader mesh_loader;
if (!mesh_loader.load(args[2], &mesh)) error("Loading mesh file '%s'\n", args[2]);
if (strcmp(type, "sln") == 0) {
// Testing on Exact solution which always gives the same value (values from Solution may differ by epsilon)
ExactSolution ex_sln(&mesh, exact_solution);
output.out(&ex_sln, "U");
}
else if (strcmp(type, "vec-sln") == 0) {
// Testing on Exact solution which always gives the same value (values from Solution may differ by epsilon)
ExactSolution ex_sln(&mesh, exact_vec_solution);
output.out(&ex_sln, "U");
}
else if (strcmp(type, "3sln") == 0) {
// Testing on Exact solution which always gives the same value (values from Solution may differ by epsilon)
ExactSolution ex_sln0(&mesh, exact_solution0);
ExactSolution ex_sln1(&mesh, exact_solution1);
ExactSolution ex_sln2(&mesh, exact_solution2);
output.out(&ex_sln0, &ex_sln1, &ex_sln2, "U");
}
else if (strcmp(type, "ord") == 0) {
H1ShapesetLobattoHex shapeset;
H1Space space(&mesh, &shapeset);
space.set_bc_types(bc_types);
space.set_essential_bc_values(essential_bc_values);
order3_t order;
if (mesh.elements[1]->get_mode() == MODE_HEXAHEDRON)
order = order3_t(2, 3, 4);
else if (mesh.elements[1]->get_mode() == MODE_TETRAHEDRON)
order = order3_t(3);
else
error(H3D_ERR_NOT_IMPLEMENTED);
space.set_uniform_order(order);
output.out_orders(&space, "orders");
}
else if (strcmp(type, "bc") == 0) {
output.out_bc(&mesh);
}
else if (strcmp(type, "mat") == 0) {
StiffMatrix mat;
test_mat(&mesh, mat);
output.out(&mat);
}
else if (strcmp(type, "mm") == 0) {
test_mm(&mesh);
}
return 0;
}
