vbsの作法 その25

概要

vbsの作法調べてみた。
複素数、やってみた。

サンプルコード

Sub c_add(c1_r, c1_i, c2_r, c2_i, c3_r, c3_i)
    c3_r = c1_r + c2_r
    c3_i = c1_i + c2_i
    msgbox c3_r
End Sub

Sub c_sub(c1_r, c1_i, c2_r, c2_i, c3_r, c3_i)
    c3_r = c1_r - c2_r
    c3_i = c1_i - c2_i
End Sub

Sub c_mul(c1_r, c1_i, c2_r, c2_i, c3_r, c3_i)
    c3_r = (c1_r * c2_r) - (c1_i * c2_i)
    c3_i = (c1_i * c2_r) + (c1_r * c2_i)
End Sub

Sub c_div(c1_r, c1_i, c2_r, c2_i, c3_r, c3_i)
    c3_r = ((c1_r * c2_r) + (c1_i * c2_i)) / ((c2_r * c2_r) + (c2_i * c2_i))
    c3_i = ((c1_i * c2_r) - (c1_r * c2_i)) / ((c2_r * c2_r) + (c2_i * c2_i))
End Sub

Const r1_r = 2
Const r1_i = 3
Const r2_r = 4
Const r2_i = 5
Dim r3_r
Dim r3_i
c_add r1_r, r1_i, r2_r, r2_i, r3_r, r3_i
msgbox "r1 + r2 = " & FormatNumber(r3_r, 2) & " + " & FormatNumber(r3_i, 2) & "i"
c_sub r1_r, r1_i, r2_r, r2_i, r3_r, r3_i
msgbox "r1 - r2 = " & FormatNumber(r3_r, 2) & " + " & FormatNumber(r3_i, 2) & "i"
c_mul r1_r, r1_i, r2_r, r2_i, r3_r, r3_i
msgbox "r1 * r2 = " & FormatNumber(r3_r, 2) & " + " & FormatNumber(r3_i, 2) & "i"
c_div r1_r, r1_i, r2_r, r2_i, r3_r, r3_i
msgbox "r1 / r2 = " & FormatNumber(r3_r, 2) & " + " & FormatNumber(r3_i, 2) & "i"

以上。