finote4.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 24 行

If X is of type COMPLEX, then CMPLX(X) is X.
.xt on
If X is of type COMPLEX*16, then CMPLX(X) is a complex number
whose real part is REAL(real part of X) and imaginary part is
REAL(imaginary part of X).
.xt off
.np
If X is not of type COMPLEX, then CMPLX(X) is the complex number whose
real part is REAL(X) and imaginary part is REAL(0).
CMPLX(X,Y) is the complex number whose real part is REAL(X) and whose
imaginary part is REAL(Y) for X,Y not of type COMPLEX.
.np
.xt on
If X is of type COMPLEX*16, then DCMPLX(X) is X.
If X is of type COMPLEX, then DCMPLX(X) is a COMPLEX*16 number whose
real part is DBLE(real part of X) and imaginary part is
DBLE(imaginary part of X).
.np
If X is not of type COMPLEX*16, then DCMPLX(X) is the COMPLEX*16
number whose real part is DBLE(X) and imaginary part is DBLE(0).
DCMPLX(X,Y) is the COMPLEX*16 number whose real part is DBLE(X) and
whose imaginary part is DBLE(Y) for X,Y not of type COMPLEX.
.xt off