Function HApsix transforms vector u as follows
\[
HApsi(u) = \left\{
\begin{array}{cc}
u^2 & |u| <= a \\
a \times sign(u)u & a <= |u| < b \\
a \frac{c-|u|}{c-b} \times sign(u)\times u & b <= |u| < c \\
0 & |u| >= c
\end{array} \right.
\]
where $a$= ctuning(2) *ctuning(1).
$b$= ctuning(3) *ctuning(1).
$c$= ctuning(4) *ctuning(1).
The default (if input ctuning is a scalar) is
$a$= 2*ctuning.
$b$= 4*ctuning.
$c$= 8*ctuning.
It is necessary to have 0 <= $a$ <= $b$ <= $c$