Function func_y(x As Double) As Double
func_y = Fix((2 - Sgn(x)) / 2) * (5 * x + 1) + Fix((1 + Sgn(x)) / 2) * x ^ 3
End Function
Excel VBA
