[VB6 ] 請教程式
最近在摸索用VB寫牛頓-拉弗森，
在網路上找到範本程式碼，修改成以下
Function newtraph(x_guess)
Dim i, cur_x, cur_x_delta, fx, fx_delta, dx
cur_x = x_guess
For i = 1 To 500
fx = 3 * cur_x ^ 3 + 3 * cur_x - 8
cur_x_delta = cur_x - 0.000000001
fx_delta = 3 * cur_x_delta ^ 3 + 3 * cur_x_delta - 8
dx = (fx - fx_delta) / 0.000000001 (Q1.這一行與上一行的定義我不大懂?)
If (Abs(dx) < 0.00000001) Then (Q2.這是指收斂小於零時結束?)
Exit For
End If
Print cur_x
cur_x = cur_x - (fx / dx)
Next i
newtraph = cur_x
End Function
---------------------------------------------------
Private Sub Form_Activate()
newtraph (x_guess)
End Sub
Q3.此程式執行後，如何讓範圍可以到100以內?
一共3個問題想請教!! 不好意思~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.135.13.160
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
8
14