unit LibComplex; interface uses SysUtils, SysConst, Math; // VarCmplx 참고 type // Complex 계산의 정밀도가 낮아서 따로 만듦. TExComplex = record R : Extended; I : Extended; end; function ExComplex(const R, I: Extended): TExComplex; function ExComplex_IsZero(const A: TExComplex): Boolean; function ExComplex_Equal(const A, B: TExComplex): Boolean; function ExComplex_ToStr(const A: TExComplex; Precision: Integer; ..