[st1ck]

Везде искал, но не нашел как написать на языке гиперболический синус и косинус.

[gevg]

Гиперболический синус:

(defun _sh (x)
(/ (- (exp x) (exp (* -1 x))) 2)
) ;_ end of defun

Гиперболический косинус:

(defun _ch (x)
(/ (+ (exp x) (exp (* -1 x))) 2)
) ;_ end of defun

Формулы: http://ru.wikipedia.org/wiki/Гиперболические_функции

[gomer]

Делай красиво и бросай в воду...

Код:

[Выделить все]

 (defun sinh (x)
;;; Гиперболический синус
  (* 0.5 (- (exp x) (exp (- x))))
)

(defun cosh (x)
;;; Гиперболический косинус
  (* 0.5 (+ (exp x) (exp (- x))))
)