[Rokuell]

Сообщение от The Shadow

А что такое sh()?

Позор. sh - гиперболический синус

sh(x) = ( e^x - e^(-x) ) / 2

В Delphi в модуле Math есть функция Sinh

Код:

function Sinh(const X: Extended): Extended;
begin
  if X = 0 then
    Result := 0
  else
    Result := (Exp(X) - Exp(-X)) / 2;
end;