物理の授業で出てくる波の方程式を理解させるには実際にVBなどでグラフを描くのがいいと思います。ここでは物理の授業で実践した波の方程式（y=振幅*sin(t/周期-x/波長)）を理解させるためのプログラミングを紹介します。
- 波の方程式の波長、振幅を変化させるとどうなるかを理解させる。
- 波の重ね合わせの原理を理解させる。
- うなりのしくみを理解させる。
（１）フォームにPicture1とCommand1を置きます。
（２）コード〜「Command1」ボタンをダブルクリックして以下のコードを打ち込む。
Private Sub Command1_Click()
Dim x, y1 As Single
Picture1.Line (0, 1000)-(10000, 1000),
QBColor(4)
For x = 0 To 10000
y1 = 500 * Sin(x / 30)
Picture1.PSet (x, y1 + 1000), QBColor(9)
Next x
End Sub |
１行目 コマンド１をクリックしたらEndSubまでのプログラムを実行すますよ。
２行目 xとy1の２つの変数を使いますよ。
３行目 x軸を引きます。色は４番（赤）にしましょう。
４行目 For to 〜Nextの範囲を、xの値が１から１万になるまで繰り返します。
５行目 y1 = 振幅* Sin(x / 波長)
６行目 指定された座標に点を打ちます。 |
（３）実行結果
（４）発展〜波長と周期をいろいろ変えてプログラムを実行しましょう。
（１）コード（赤字が課題１に追加した部分）
Private Sub Command1_Click()
Dim x, y1, y2 As Single
Picture1.Line (0, 1000)-(10000, 1000),
QBColor(4)
For x = 0 To 10000
y1 = 500 * Sin(x / 30)
y2 = □ * Sin(x /□)
Picture1.PSet (x, y1 + 1000), QBColor(9)
Picture1.PSet (x, y2 + 1000), QBColor(10)
Picture1.PSet (x, y1 + y2 + 1000), QBColor(14)
Next x
End Sub |
（１）コード（赤字が課題１に追加した部分）
Private Sub Command1_Click()
Dim x, y1, y2 As Single
Picture1.Line (0, 1000)-(10000, 1000),
QBColor(4)
For x = 0 To 10000
y1 = 500 * Sin(x / 30)
y2 = 500 * Sin(x / 29)
Picture1.PSet (x, y1 + 1000), QBColor(9)
Picture1.PSet (x, y2 + 1000), QBColor(10)
Picture1.PSet (x, y1 + y2 + 1000), QBColor(14)
Next x
End Sub |
（２）実行結果
黄色の波形が合成波。うなり（振幅の強弱）が観測できる。
|
