/usr/share/doc/rheolef-doc/examples/inertia_upw.icc is in rheolef-doc 6.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | #include "sgn.icc"
form inertia_upw (field w, trial u, test v,
quadrature_option_type qopt = quadrature_option_type())
{
return integrate ("internal_sides",
0.5*abs(dot(average(w),normal()))*dot(jump(u),jump(v)));
}
form d_inertia_upw (field w, trial dw, field u, test v,
quadrature_option_type qopt = quadrature_option_type())
{
return integrate ("internal_sides",
0.5*compose (sgn, dot(average(w),normal()))
*dot(average(dw),normal())*dot(jump(u),jump(v)));
}
|