インピーダンス変換_計算式

インピーダンス変換

インピーダンス変換_R_G成分VB2013

Public Function rxadmig(G1 As Double, B1 As Double) As Double
rxadmig = G1 / ((G1 ^ 2) + (B1 ^ 2))
End Function

インピーダンス変換_X_B成分VB2013

Public Function rxadmib(G1 As Double, B1 As Double) As Double
rxadmib = -B1 / ((G1 ^ 2) + (B1 ^ 2))
End Function