' oe6jbg
' MS Excel Zellenfunktionen
' fuer Komplexe Wechselstromrechnung
' Zur freien Nutzung
' Ohne Gewaehr fuer Fehlerfreiheit

Function betrag(r1, i1)
betrag = Sqr(r1 * r1 + i1 * i1)
End Function

Function summeR(r1, i1, r2, i2)
summeR = r1 + r2
End Function

Function summeI(r1, i1, r2, i2)
summeI = i1 + i2
End Function

Function produktR(a, b, c, d)
produktR = a * c - b * d
End Function

Function produktI(a, b, c, d)
produktI = a * d + b * c
End Function

Function quotientR(a, b, c, d)
quotientR = (a * c + b * d) / (c * c + d * d)
End Function

Function quotientI(a, b, c, d)
quotientI = (b * c - a * d) / (c * c + d * d)
End Function

Function harmittR(a, b, c, d)
a1 = produktR(a, b, c, d)
b1 = produktI(a, b, c, d)
c1 = summeR(a, b, c, d)
d1 = summeI(a, b, c, d)
harmittR = quotientR(a1, b1, c1, d1)
End Function

Function harmittI(a, b, c, d)
a1 = produktR(a, b, c, d)
b1 = produktI(a, b, c, d)
c1 = summeR(a, b, c, d)
d1 = summeI(a, b, c, d)
harmittI = quotientI(a1, b1, c1, d1)
End Function

Function Phi(r, i)
Phi = Atn(i / r) / Atn(1) * 45
End Function