曲线拟合源代码.docxVIP

OptionExplicit

DimX()AsSingle,Y()AsSingle

DimA(20,20)AsSingle,MAsInteger,B()AsSingle最多取20次的拟合

DimNAsInteger,IAsInteger,JAsInteger

DimxiaoA()AsSingle

DimXminAsSingle,XmaxAsSingle

DimYminAsSingle,YmaxAsSingle

DimXoAsSingle,YoAsSingle

PrivateSubZuoDian(X()AsSingle,Y()AsSingle)

DimXLAsSingle

DimYLAsSingle

N=UBound(X):Picture1.Cls 确定数组的指定维的最大可用下标

Xmin=X(1):Xmax=X(1):Xo=X(1):Yo=Y(1)

Ymin=Y(1):Ymax=Y(1)

ForI=1ToN

IfXminX(I)Then (实现比较问题)

Xmin=X(I)

Xo=Xmin:Yo=Y(I) 后面画曲线时用到

EndIf

IfXmaxX(I)ThenXmax=