#include "Complex.au3"


#Region Complex Number Functions
$strTitle = "Complex Number Functions"
Global $cmpA = _Cmplx(2,2)
Global $cmpB = _Cmplx(0,1)
Global $cmpC
Global $n = 2


#Region Complex Number Functions - Addition
;~ $cmpC = _CAdd($cmpA, $cmpB)
;~ $intErr = @error
;~ $str = "_CAdd( " & _CmplxToStr($cmpA) & " , " & _CmplxToStr($cmpB) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Addition

#Region Complex Number Functions - Subtraction
;~ $cmpC = _CSub($cmpA, $cmpB)
;~ $intErr = @error
;~ $str = "_CSub( " & _CmplxToStr($cmpA) & " , " & _CmplxToStr($cmpB) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Subtraction

#Region Complex Number Functions - Multiplication
;~ $cmpC = _CMul($cmpA,$cmpB)
;~ $intErr = @error
;~ $str = "_CMul( " & _CmplxToStr($cmpA) & " , " & _CmplxToStr($cmpB) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Multiplication

#Region Complex Number Functions - Division
;~ $cmpC = _CDiv($cmpA,$cmpB)
;~ $intErr = @error
;~ $str = "_CDiv( " & _CmplxToStr($cmpA) & " , " & _CmplxToStr($cmpB) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Division

#Region Complex Number Functions - Absolute Value
;~ $cmpC = _CAbs($cmpA)
;~ $intErr = @error
;~ $str = "_CAbs( " & _CmplxToStr($cmpA) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Absolute Value

#Region Complex Number Functions - Potentiation
;~ $cmpC = _CPow($cmpB, $n)
;~ $intErr = @error
;~ $str = "_CPow( " & _CmplxToStr($cmpB) & " , " & $n & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Potentiation

#Region Complex Number Functions - Root Extraction
;~ $cmpC = _CRoot($cmpB, $n)
;~ $intErr = @error
;~ $str = "_CRoot( " & _CmplxToStr($cmpB) & " , " & $n & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Root Extraction

#Region Complex Number Functions - Natural Logarithm
;~ $cmpC = _CLn($cmpA)
;~ $intErr = @error
;~ $str = "_CLn( " & _CmplxToStr($cmpA) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Natural Logarithm

#Region Complex Number Functions - Logarithm
;~ $cmpC = _CLog($cmpA,2)
;~ $intErr = @error
;~ $str = "_CLog( " & _CmplxToStr($cmpA) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Logarithm

#Region Complex Number Functions - Sine
;~ $cmpC = _CSin($cmpB)
;~ $intErr = @error
;~ $str = "_CSin( " & _CmplxToStr($cmpB) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Sine

#Region Complex Number Functions - Cosine
;~ $cmpC = _CCos($cmpB)
;~ $intErr = @error
;~ $str = "_CCos( " & _CmplxToStr($cmpB) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Cosine

#Region Complex Number Functions - Tangent
;~ $cmpC = _CTan($cmpB)
;~ $intErr = @error
;~ $str = "_CTan( " & _CmplxToStr($cmpB) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Tangent

#Region Complex Number Functions - Cotangent
;~ $cmpC = _CCot($cmpB)
;~ $intErr = @error
;~ $str = "_CCot( " & _CmplxToStr($cmpB) & " ) = " & _CmplxToStr($cmpC)
#EndRegion Complex Number Functions - Cotangent


#EndRegion Complex Number Functions


if $intErr <> 0 Then
	MsgBox(0x42000, "Fehlermeldung - " & $strTitle, "Fehlercode: " & StringFormat("%#x",$intErr) )
Else
	MsgBox(0x42000, $strTitle, $str )
EndIf