DIRECTORY Rope, Vector2 USING [VEC], Basics, IO, AlgebraClasses; Complexes: CEDAR DEFINITIONS = BEGIN OPEN AC: AlgebraClasses; Complex: TYPE = AC.Object; ComplexData: TYPE = REF Vector2.VEC; Complexes: AC.Object; PrintName: AC.ToRopeOp; ShortPrintName: AC.ToRopeOp; Characteristic: AC.StructureRankOp; Recast: AC.BinaryOp; CanRecast: AC.BinaryPredicate; LegalFirstChar: AC.LegalFirstCharOp; Read: AC.ReadOp; FromRope: AC.FromRopeOp; ToRope: AC.ToRopeOp; Write: AC.WriteOp; FromPairREAL: PROC [realPart, imagPart: REAL] RETURNS [Complex]; ToPairREAL: PROC [in: Complex] RETURNS [realPart, imagPart: REAL]; Zero: AC.NullaryOp; One: AC.NullaryOp; Add: AC.BinaryOp; Negate: AC.UnaryOp; Subtract: AC.BinaryOp; Multiply: AC.BinaryOp; Conjugate: AC.UnaryOp; ModulusSquared: PROCEDURE [a: Complex] RETURNS [REAL]; Modulus: AC.UnaryOp; Power: AC.BinaryOp; Invert: AC.UnaryOp; Divide: AC.BinaryOp; AlmostEqual: PROCEDURE [a: Complex, b: Complex, mag:[-126..0] _ -20] RETURNS [BOOLEAN]; FromPolar: PROCEDURE [r: REAL, radians: REAL] RETURNS [Complex]; Arg: PROCEDURE [a: Complex] RETURNS [REAL]; Exp: PROCEDURE [a: Complex] RETURNS [Complex]; Ln: PROCEDURE [a: Complex] RETURNS [Complex]; Sqr: PROCEDURE [a: Complex] RETURNS [Complex]; -- like Mul[a,a] SqRt: PROCEDURE [a: Complex] RETURNS [Complex]; -- complex square root Equal: AC.BinaryPredicate; END. Complexes.mesa Last Edited by: Arnon, June 10, 1985 4:19:22 pm PDT Types and Variables Structure Operations I/O and Conversion Arithmetic returns the angle from the x axis to a, in radians. complex exponential function complex natural logarithm Comparison Κa˜Jšœ™J™3J˜šΟk ˜ Jšœ˜Jšœœœ˜J˜Jšœ˜Jšœ˜—J˜Ihead2šœ œ ˜Jšœœœœ˜!J˜headšΟn™Icode˜Mšœ œœ˜M˜Mšœ œœ œ˜$M˜Jšœ œ˜—šž™Jšž œœ ˜Jšžœœ ˜Jšžœœ˜#—šœ™šžœœ ˜J˜—šž œœ˜J˜—šžœœ˜$J˜—šžœœ˜J˜—šžœœ ˜J˜—šžœœ ˜J˜—šžœœ ˜J˜—šž œœœœ ˜@M˜—Mšž œœœœ˜B—šž ™ Jšžœœ ˜Jšžœœ ˜šžœœ ˜J˜—šžœœ ˜J˜—šžœœ ˜J˜—šžœœ ˜J˜—šž œœ ˜J˜—šžœ œœœ˜6J˜—šžœœ ˜J˜—šžœœ ˜J˜—šžœœ ˜J˜—šžœœ ˜J˜—šž œ œ/œœ˜WJ˜—š ž œ œœ œœ ˜@J˜—šžœ œœœ˜+Jšœ3™3J˜—šžœ œœ ˜.Jšœ™J˜—šžœ œœ ˜-Jšœ™J˜—šžœ œœ Οc˜@J˜—šžœ œœ Ÿ˜FJ˜J˜——šœ ™ Jšžœœ˜—J™J˜Jšœ˜—…—f Ο