2019年9月25日
Delphi版本插值Lagrange
摘要： function Lagrange(x, y:ArrayDouble; N: integer; x1: Double): double;var I, J: Integer; a: Double;begin Result := 0; for i := 0 to N - 1 do begin a := 阅读全文
posted @ 2019-09-25 17:34 南国之恋 阅读(259) 评论(0) 推荐(0) 编辑