アドミタンス変換_計算式

アドミタンス変換

アドミタンス変換_G_R成分_サセプタンス_VB2013

Public Function rxadmig(R1 As Double, X1 As Double) As Double
rxadmig = R1 / ((R1 ^ 2) + (X1 ^ 2))
End Function

アドミタンス変換_B_X成分_コンダクタンス_VB2013

Public Function rxadmib(R1 As Double, X1 As Double) As Double
rxadmib = -X1 / ((R1 ^ 2) + (X1 ^ 2))
End Function