Скачать Elementary, Complex and Trigonometry Math Library

Скачать файл (3,27 Кб)

{CMPXLIB: Complex math library for Pascal; by Ron Finger}
Procedure CPERM(N:Complex);
  {to make complex number permanent}
Procedure CERASE(N:Complex);
  {to release temporary complex variables}
Function CMPLX(R,I:Real): Complex;
  {to create complex number with cartesian coordinates}
Function RE(N:Complex): Real;
  {returns real part of complex number}
Function IM(N:Complex): Real;
  {returns imaginary part of complex number}
Function PHASOR(M,A:Real): Complex;
  {to create phasor from magnitude and angle}
Function MAG(N:Complex): Real;
  {returns magnitude part of phasor}
Function ANG(N:Complex): Real;
  {returns angle part of phasor}
Function CMPXO(N1:Complex;OP:Char;N2:Complex): Complex;
  {to add, subtract, miltiply, or divide complex numbers}
Function POLAR(N:Complex): Complex;
  {to convert complex number from cartesian to polar coordinates}
Function CART(N:Complex): Complex;
  {to convert complex number from polar to cartesian coordinates}
Function CSQR(N:Complex): Complex;
  {square of complex number, SQR(N)}
Function CSQRT(N:Complex): Complex;
  {square root of complex number, SQRT(N)}
Function CRECP(N:Complex): Complex;
  {recripical of complex number, 1/N}
Function CONJG(N:Complex): Complex;
  {conjugate of a complex number}
Function CABS(N:Complex): Real;
  {absolute value of complex number, ABS(N)}
{MATHLIB.INC math utility library by Ron Finger}
Function SIGN(X:Real):Integer;
  {Returns sign of argument as +1, -1, or 0}
{Common LOG Functions}
Function LOG10(X:Real): Real;
  {LOG (BASE 10) Function}
Function ALOG10(X:Real): Real;
  {ANTILOG (BASE 10) Function}
{Power Functions}
Function POWER(X:Real;N:Integer): Real;
  {Computes Real X raised to Integer power N iteratively}
Function CUBE(X:Real): Real;
  {Cube Function}
Function CBRT(X:Real): Real;
  {Cube root function}
Function RPOWER(X,N:Real): Real;
  {Computes Real X raised TO Real power N}