(*********************************************************************
 
    :Program.  	 ComplexLib.def
    :Author.   	 Gary Struhlik  
    :Address.    -
    :Phone.      -
    :shortcut. 	 [gs]
    :Version.  	 1.0   
    :Date.     	 08.10.1988
    :Copyright.  PD
    :Language. 	 Modula-II
    :Translator. M2Amiga
    :Imports.	 MathLibExt [gs]
    :UpDate.	 -
    :Contents.   Dieses Modul unterstützt das Rechnen mit komplexen Zahlen 
    :Contents.   Es werden die Grundrechenarten und wichtige mathematische
    :Contents.   Funktionen zur Verfügung gestellt, welche in den Bereichen
    :Contents.   Naturwissenschaft und Technik häufig benötigt werden.
    :Remark.	 Für den Amiga Modula-2 Klub / Stuttgart
    :Remark.     Am 01.01.1989 mit M2Amiga 3.2d neu kompiliert

**********************************************************************)

DEFINITION MODULE ComplexLib;  (* für REAL *)


FROM MathLibExt IMPORT pi;

CONST
	PI = pi;

TYPE
	COMPLEX = RECORD
          RE,IM : REAL
        END;        


PROCEDURE compop (VAR Z:COMPLEX; A:COMPLEX; OP:CHAR; B:COMPLEX);

PROCEDURE conjg (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE cabs (A : COMPLEX) : REAL; 

PROCEDURE carg (A : COMPLEX) : REAL;	

PROCEDURE cpol (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE crec (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE crcp (VAR Z : COMPLEX; A : COMPLEX);

PROCEDURE cexp (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE cln (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE csqr (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE root (N,X : REAL) : REAL;

PROCEDURE csqrt (VAR Z:COMPLEX; A : COMPLEX); 

PROCEDURE csin (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE carcsin (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE ccos (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE carccos (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE ctan (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE carctan (VAR Z : COMPLEX; A : COMPLEX);

PROCEDURE csinh (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE carsinh (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE ccosh (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE carcosh (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE ctanh (VAR Z : COMPLEX; A : COMPLEX);

PROCEDURE cartanh (VAR Z : COMPLEX; A : COMPLEX); 

PROCEDURE cpower (VAR Z : COMPLEX; A,B : COMPLEX); 

PROCEDURE croot (VAR Z:COMPLEX; K,N:REAL; A : COMPLEX); 

END ComplexLib.