Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Математика    >>    tpmath10
   
 
 TPMath v1.0 - Turbo Pascal Math Unit   Michael Husted 14.10.1997

Модуль математических функций для TP4: Тригонометрия, гиперболические и логарифмические функции.
Mathematical Turbo Pascal unit source (all versions from Turbo Pascal 4). Trigonometric, hyperbolic and logarithm functions.



1k 
 

unit Math; interface (* ---------------------- *) (* --------------------------- *) (* MATH FUNCTIONS TP-UNIT *) (* LOGARITHM, POWERS AND ROOTS *) (* ---------------------- *) (* --------------------------- *) function Power (x,y:real):real; (* x to the power of y *) function Root (x,y:real):real; (* the y'th root of x *) function Log (x:real):real; (* Logarithm of x with base 10 *) function Antilog (x:real):real; (* 10^x *) function LogBase (x,y:real):real; (* Logarithm of x with base y *) (* --------------------------- *) (* TRIGONOMETRIC FUNCTIONS *) (* --------------------------- *) function D2R (x:real):real; (* Degrees to radians *) function R2D (x:real):real; (* Radians to degrees *) function Tan (x:real):real; (* Tangent of x *) function ArcSin (x:real):real; (* Arc sine of x *) function ArcCos (x:real):real; (* Arc cosine of x *) (* --------------------------- *) (* HYPERBOLIC FUNCTIONS *) (* --------------------------- *) function Sinh (x:real):real; (* Sine hyperbolic of x *) function Cosh (x:real):real; (* Cosine hyperbolic of x *) function Tanh (x:real):real; (* Tangent hyperbolic of x *) function ArSinh (x:real):real; (* Ar sine hyperbolic of x *) function ArCosh (x:real):real; (* Ar cosine hyperbolic of x *) function ArTanh (x:real):real; (* Ar tangent hyperbolic of x *) (* --------------------------- *) (* OTHER FUNCTIONS *) (* --------------------------- *) function Fac (n:integer):real; (* Factorial of n (n!) *