|
<![CDATA[
Type Complesso
Re As Double
Im As Double
Mo As Double
Ph As Double
End Type
Function MoPh_to_ReIm(a As Complesso) As Complesso
a.Re = a.Mo * Cos(a.Ph)
a.Im = a.Mo * Sin(a.Ph)
MoPh_to_ReIm = a
End Function
Function ScriviComplessoReIm(c As Complesso, cella As String) As Complesso
a = c.Re
b = c.Im
If b < 0 Then
segno = "-"
b = -1 * b
Else: segno = "+"
End If
stringa = a & " " & segno & " i" & b
Range(cella).Value = stringa
ScriviComplessoReIm = c
End Function
Function ScriviComplessoMoPh(c As Complesso, cella As String) As Complesso
a = c.Mo
b = c.Ph
stringa = a & " exp( i" & b & " )"
Range(cella).Value = stringa
ScriviComplessoMoPh = c
End Function
]]>
|
