Question

用四阶龙格库塔方法解决一个实际问题最好是物理问题，要vb编程的，谢谢大家

我没有那么多的财富值，谢谢你们帮帮忙吧下周就要交了

Answer 1

http://zhidao.baidu.com/question/348332051.html

你可以看看，我以前回答的，正好是一个实际的物理问题，下面有VB的代码。唯一的问题就是那个VB代码我没调试，所以有问题的话就追问吧，我会尽快回复你。

追加：
原VB程序有误，以下是调试过的，结果改为输出到文件。

Private Const g = 9.81 '重力加速度
Private Const k = 29.4 '阻尼系数
Private Const m = 75 '质量
Private Const d = 10 ^ -5 '精度

Function f(ByVal v) As Double '待求解方程
f = g - k * v ^ 2 / m
End Function

Private Sub Command1_Click()
Dim h, k1, k2, k3, k4, dv As Double
Dim v(100) As Double
h = 0.1
v(0) = 0
n = 0
dv = 1
Open "result.txt" For Output As #1
Print #1, "t", "v"
Print #1, 0, 0
Do While dv > d
k1 = f(v(n))
k2 = f(v(n) + h / 2 * k1)
k3 = f(v(n) + h / 2 * k2)
k4 = f(v(n) + h * k3)
v(n + 1) = v(n) + h / 6 * (k1 + 2 * k2 + 2 * k3 + k4)
dv = Abs(v(n) - v(n + 1))
n = n + 1
Print #1, h * n, v(n)
Loop
Close #1
End Sub

Answer 2

工大的，物理的？哈哈我是……自己百度吧

Answer 3

好的

Answer 4

查数值计算方法，有这类问题，然后自己编程解决就好了