这里是我在学习《数值分析》的过程中编写计算程序的一点记录。

  • 插值问题
  • 逼近问题

插值问题

  • Lagrange interpolation
    使用Visual Basic在Excel中编写，计算示例如下

    8.PNG
    以下为部分源码

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    For i = 1 To n
    	For j = 1 To n
        	If i <> j Then
        		w(i) = w(i) * (x(i) - x(j))
        	Else
        		w(i) = w(i)
        	End If
    	Next
    	w1 = w1 * (xx - x(i))
    Next
    For j = 1 To n
    	l(j) = w1 / (xx - x(j)) / w(j)
    	f = f + l(j) * y(j)
    Next
    	fx = f