static void precalculate_cholesky_projection_matrices_bubble()
{
// *** triangles ***
ref_map_pss.set_mode(MODE_TRIANGLE);
int order = ref_map_shapeset.get_max_order();
// calculate projection matrix of maximum order
int nb = ref_map_shapeset.get_num_bubbles(order);
int* indices = ref_map_shapeset.get_bubble_indices(order);
bubble_proj_matrix_tri = calculate_bubble_projection_matrix(nb, indices);
// cholesky factorization of the matrix
bubble_tri_p = new double[nb];
choldc(bubble_proj_matrix_tri, nb, bubble_tri_p);
// *** quads ***
ref_map_pss.set_mode(MODE_QUAD);
order = ref_map_shapeset.get_max_order();
order = make_quad_order(order, order);
// calculate projection matrix of maximum order
nb = ref_map_shapeset.get_num_bubbles(order);
indices = ref_map_shapeset.get_bubble_indices(order);
bubble_proj_matrix_quad = calculate_bubble_projection_matrix(nb, indices);
// cholesky factorization of the matrix
bubble_quad_p = new double[nb];
choldc(bubble_proj_matrix_quad, nb, bubble_quad_p);
}
static void calc_bubble_projection(Element* e, Nurbs** nurbs, int order, double2* proj)
{
ref_map_pss.set_active_element(e);
int i, j, k;
int mo2 = quad2d.get_max_order();
int np = quad2d.get_num_points(mo2);
int qo = e->is_quad() ? make_quad_order(order, order) : order;
int nb = ref_map_shapeset.get_num_bubbles(qo);
AUTOLA_OR(double2, fn, np);
memset(fn, 0, sizeof(double2) * np);
double* rhside[2];
double* old[2];
for (i = 0; i < 2; i++) {
rhside[i] = new double[nb];
old[i] = new double[np];
memset(rhside[i], 0, sizeof(double) * nb);
memset(old[i], 0, sizeof(double) * np);
}
// compute known part of projection (vertex and edge part)
old_projection(e, order, proj, old);
// fn values of both components of nonpolynomial function
double3* pt = quad2d.get_points(mo2);
for (j = 0; j < np; j++) // over all integration points
{
double2 a;
a[0] = ctm.m[0] * pt[j][0] + ctm.t[0];
a[1] = ctm.m[1] * pt[j][1] + ctm.t[1];
calc_ref_map(e, nurbs, a[0], a[1], fn[j]);
}
double2* result = proj + e->nvert + e->nvert * (order - 1);
for (k = 0; k < 2; k++)
{
for (i = 0; i < nb; i++) // loop over bubble basis functions
{
// bubble basis functions in all integration points
double *bfn;
int index_i = ref_map_shapeset.get_bubble_indices(qo)[i];
ref_map_pss.set_active_shape(index_i);
ref_map_pss.set_quad_order(mo2);
bfn = ref_map_pss.get_fn_values();
for (j = 0; j < np; j++) // over all integration points
rhside[k][i] += pt[j][2] * (bfn[j] * (fn[j][k] - old[k][j]));
}
// solve
if (e->nvert == 3)
cholsl(bubble_proj_matrix_tri, nb, bubble_tri_p, rhside[k], rhside[k]);
else
cholsl(bubble_proj_matrix_quad, nb, bubble_quad_p, rhside[k], rhside[k]);
for (i = 0; i < nb; i++)
result[i][k] = rhside[k][i];
}
for (i = 0; i < 2; i++) {
delete [] rhside[i];
delete [] old[i];
}
}
