[問題] 簡諧運動

[eagle1110 (一片~天空NN￾ ￾N)]

請問 我需要寫一個程式
關於球夾著兩條線上下作簡諧運動
但我跑不出來 以下是我的程式碼

Private Sub Form_Load()
picture.Scale (-1, 1)-(1, -1)
End Sub
Private Sub mmu_start_click()
m = 1
k = 1
c = 0.1
Y1 = 0.5
dy1 = 0
dt = 0.001
t1 = 0
Do While DoEvents()
t2 = t1 + dt
Call range_kutta(t1, Y1, dy1, t2, Y2, dy2)
t1 = t2
Y1 = Y2
dy1 = dy2
Loop
End Sub
Sub range_kutta(t1, Y1, dy1, t2, Y2, dy2)
k1 = dt * dy1
d1 = dt * f(t1, Y1, dy1)
Y2 = Y1 + (k1 + 2 * k2 + 2 * k3 + k4) / 6
dy2 = dy1 + (d1 + 2 * d2 + 2 * d3 + d4) / 6
End Sub
Function f(t1, Y1, dy1)
f = (-c * dy - k * y) / n
End Function

求求各位大大幫我看看有哪裡需要補充的好嗎?

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.139.152.199
推 Meteor928:請問你的range_kutta是不是有省略???
推 Meteor928:因為只有k1跟d1,沒有k2,k3,k4,d2,d3,d4
推 eagle1110:嗯 我後來有看到了謝謝你