| Function |
Description |
| amax2 |
FORTRAN amax2(x1, x2) = max(x1, x2) [Math] |
| amin2 |
FORTRAN amin2(x1, x2) = min(x1, x2) [Math] |
| BoolToStr |
boolean to string conversion |
| Cabs |
result = sqrt(sqr(z.Re)+sqr(x.Im)) = |z| |
| Cabs0 |
max(abs(z.re),abs(z.im)) |
| Cabs1 |
result = abs(z.Re) + abs(z.Im) |
| Cabs2 |
result = sqr(z.Re)+ sqr(z.Im) = |z|^2 |
| CAbsSqr |
result = sqr(z.Re)+ sqr(z.Im) = |z|^2 same as Cabs2 [From EFG Unit] |
| Cadd |
result = x + w |
| Cadd |
result = z + w |
| Cadd |
result = z + x |
| Cconjugate |
result = z.Re -i*z.Im same as conjug [From EFG Unit] |
| Cdiv |
result = z / x |
| Cdiv |
result = x / w |
| Cdiv |
result = z / w |
| cer |
result = er(z) } |
| Cexp |
result = exp(v) |
| CexpIm |
result = exp(i*f) |
| Cinv |
result = 1/z |
| CLn |
complex natural log: result = ln(a) NOTE: principal value only [From EFG Unit] |
| cmplx |
result = x + i*y |
| CmplxToStr |
Conversion: zero Im is not diaplayed |
| CmplxToStr0 |
Conversion: zero Im is diaplayed |
| Cmul |
result = z * w |
| Cmul |
result = x * w |
| Cmul |
result = z * x |
| Cneg |
result = -z |
| Combinations |
n!/(m!(n-m)! |
| ComplexToPolar |
Complex To Polar Conversion: (Re, Im) -> (r, angle) |
| ComplexToStr |
Basic Conversion functions for Complex |
| conjug |
result = z.Re -i*z.Im |
| Cset |
result = x + i*y - same as cmplx [From EFG Unit] |
| CSqr |
result = SQR(a) [From EFG Unit] |
| Csqrt |
result = sqrt(z), result.Re > 0 |
| Csqrt |
result = sqrt(z), result.Re > 0 |
| Csub |
result = z - w |
| Csub |
result = z - x |
| Csub |
result = x - w |
| Csum |
s := s + x |
| Csum |
s := s + z |
| Cunit |
result = z/r r := Cabs (z) |
| delta |
Kroneker delta : if x1 = x2 then result := 1 else result := 0 |
| Diff0 |
result = max(|z1.re-z2.re|,|z1.im-z2.im|) |
| exp1 |
obsolete exp1 = exp} |
| Fac |
n! |
| FixAngle |
-PI < theta <= PI [From EFG Unit] |
| Im |
result = z.Im |
| IPower |
m**n |
| iSign |
if x > 0 then result := 1 else if x = 0 then result := 0 else result := -1; |
| ISign2 |
#No TAG found in source code# |
| iSwap |
Swap of integer numbers |
| lg |
lg(x) = log10(x) [Math] |
| MachEpsMinus |
MachEpsMinus = 1.11022302462516E-16 for double |
| MachinEps |
Calculation of the machine epsilon |
| PolarToComplex |
Polar To Complex Conversion: (r, angle) -> (Re, Im) |
| power10 |
10**x or 10^x = Power(10.0, x) [Math] |
| pythag |
finds dsqrt(a**2+b**2) without overflow or destructive underflow; |
| Re |
result = z.Re |
| RndBool |
random true/false |
| RndComplex |
r1 <= re < r2, i1 <= im < i2 |
| RndFloat |
random number r1 <= r < r2 |
| RndNum |
random number N1 <= result <= N2 |
| RndNumEx |
random number N1 <= r <= N2, r <> r1 |
| SameComplex |
abs(c1.Re-c2.Re) < eps And abs(c1.Im-c2.Im) < eps |
| Sign0 |
if x > 0.0 then result := 1.0 |
| Sign1 |
if X >= 0.0 then result := 1.0 else result := -1.0; |
| Sign2 |
FORTRAN signum: |a|*signum(b) |
| sqroot1 |
safe sqrt(x + y); it is assumed that (x+y) > 0 |
| sqroot2 |
safe sqrt(x*x+y*y); functionally the same as pythag |
| StrToBool |
string to boolean conversion |
| StrToCmplx |
Conversion |
| Swap |
Swap of float numbers |