Function func32670239(z As Double, t As Double) As Double
Dim h1, h2, h3 As Integer, f1, f2, f3 As Double
f1 = z + t * Abs(z)
f2 = Sin(t * z)
f3 = Exp(-2 * Sin(t + z))
h1 = (1 - Sgn(z + 1.2)) \ 2
h3 = (1 + Sgn(z - 2.4)) \ 2
h2 = (1 - h1) * (1 - h3)
func32670239 = f1 * h1 + f2 * h2 + f3 * h3
End Function
Будут вопросы - пишите.
