VisualC 常微分方程初值问题求解(2)

　　yi＋１＝yi＋h*( K1 K2)/2
　　K1=f(xi,yi)
　　K2=f(xi h,yi h*K1)

　　依次类推，如果在区间[xi,xi 1]内多预估几个点上的斜率值K1、K2、……Km，并用他们的加权平均数作为平均斜率K*的近似值，显然能构造出具有很高精度的高阶计算公式。经数学推导、求解，可以得出四阶龙格－库塔公式，也就是在工程中应用广泛的经典龙格－库塔算法：

　　yi＋１＝yi＋h*( K1 2*K2 2*K3 K4)/6
　　K1=f(xi,yi)
　　K2=f(xi h/2,yi h*K1/2)
　　K3=f(xi h/2,yi h*K2/2)
　　K4=f(xi h,yi h*K3)

　　下面的具体程序实现同改进的欧拉算法类似，只需作些必要的改动，下面将该算法的关键部分代码清单列出：

……
for(float x=0;x<0.6;x =0.1)
{
r=x expf(-x);
K1=x-y[i] 1; file://求K1
K2=(x (float)(0.1/2))-(y[i] K1*(float)(0.1/2)) 1; file://求K2
K3=(x (float)(0.1/2))-(y[i] K2*(float)(0.1/2)) 1; file://求K3
K4=(x 0.1)-(y[i] K3*0.1) 1; file://求K4
y[i 1]=y[i] (float)(0.1*(K1 2*K2 2*K3 K4)/6); file://求yi 1
r=fabs(r-y[i]); file://计算误差
str.Format("y[%d]=%f r=%f\r\n",i,y[i],r);
i ;
msg =str;
}
AfxMessageBox(msg); file://报告计算结果及误差情况
　　从下表记录的程序运行结果来看，在步长为0.1的情况下所计算出来的常微分方程的数值解是非常精确的，用浮点数进行运算时由近似所引入的误差几乎不会对计算结果产生影响，这样高的精度是非常令人满意的。无论是从计算速度上还是从计算精度要求上，都能非常好的满足工程计算的需要。

xI（各分点） yI （数值解） y(xi) （真实值） | y(xi)- yI | (误差) 0.0 1.000000 1.000000 0.000000 0.1 1.004838 1.004837 0.000001 0.2 1.018731 1.018731 0.000000 0.3 1.040818 1.040818 0.000000 0.4 1.070320 1.070320 0.000000 0.5 1.106531 1.106531 0.000000
　　小结：本文针对工程计算中遇到的常微分方程初值问题的求解，根据实际情况引如了计算机作为辅助计算工具，并根据高等数学的有关知识将欧拉公式、改进的欧拉公式、经典龙格－库塔方法等融入到计算机程序算法之中，充分利用了计算机的速度优势，大大减轻了工程技术人员的劳动强度，同时也使计算结果更加可靠、准确。但在实际应用时，针对不同的工程函数选择合适的求解方法需要有较高的要求，既要考虑到方法的简易，又要减少计算量，同时又不能让截断误差超出指定范围。一般来说经典龙格－库塔算法精确度高又利于计算机编程实现，稳定性也很好，可以考虑作为首选实现算法。