delphi数值算法集光盘源代码,用于delphi7科学出版社出版.

				Function F1DIM(X:real):real;
				var
				    XT:array[0..50] of real;
				    J:integer;
				begin
				    For J:=1 To NCOM do
				        XT[J]:=PCOM[J] + X * XICOM[J];
				    F1DIM:=FUNC2(XT, NCOM);
				end;