vb做三次样条曲线（VB makes the three spline curve）.docVIP

vb做三次样条曲线（VB makes the three spline curve） “===================================================================== ============================ “三次样条做图模块X，Y，要做图的图片框 公共子operatedata（ByRef datax()单，我datay()单，ByVal史诗作为PictureBox）的数字组从0开始N结束 定义n长的数组最高维数 昏暗的dh()单，dn()单，du()单，dd()作为单一的样条方程组参数数组 昏暗的fa()单，fr()单，fb()作为单一的分解=路 昏暗的tempy()单，tempx()作为单一的分部解方程组 改为长整型，我长的计算变量 昏暗的X Y为单，单绘制曲线用坐标 N = UBound（数据X）的返回数组的指示维度的最大值 ReDim dh（0 N），DN（0 N）、杜（0 N），DD（0 N）的对dh()数组的赋值，为数组变量重新分配存储空间 J = 1 N步1对dn()数组赋值 这样的转让控制权，以便让操作系统处理其它的事件。最简单的理解，比如你要在某个耗时很多的过程中（最常见的是循环），还要响应某个操作－比如控制进度条的显示，那就需要加入DoEvents DH（j）=数据X（J）- DataX（J 1） 下J J = 1 N - 1步1对du()数组赋值 DoEvents DN（j）= DH（j + 1）/（DH（j）+ DH（j + 1）） 下J J = 1 N - 1步1”对dd()数组赋值 DoEvents 杜（j）= 1 - DN（j） 下J 对于j = 1到n - 1步骤1 DoEvents DD（j）= 6 *（（（DataY（j + 1）- DataY（J））/ DH（j + 1））-（（DataY（J）- DataY（J 1））/ DH（J）））/（DH（J）+ DH（j + 1）） 下J “设定为自然样条************************* DD（0）＝0 DD（n）＝0 “*************************************** “追赶法解方程组 “分解方程组 ReDim Fa（0 N）、FR（0 N），FB（0 N）的数组的重新定义 FA（0）= 2：FB（0）= DN（0）/ 2 对于i = 1到n步骤1 DoEvents FR（i）= DU（i） FA（i）= 2 - FR（i）* FB（I - 1） DoEvents 如果我是，然后是FB（i）= DN（i）/ FA（i） 下一个我 “解方程组LY = F ReDim TempY（0，N）、TempX（0 N） TempY（0）= DD（0）/（0）FA 对于i = 1到n步骤1 TempY（我）=（DD（我）FR（我）* TempY（I - 1））和FA（我） DoEvents 下一个我 “解方程组UX = Y TempX（n）=坚佩（N） 对于i = n - 1到0步- 1 TempX（我）= TempY（我）- FB（我）* TempX（i + 1） DoEvents 下一个我 “得到tempx（0 N）就是（XJ、Yj）各个点的二阶倒数，0《J《n “找到对应的图片框进行三次样条曲线绘制 J = 1 N 1 N个区间段设置步骤 X =数据X（J 1）到DataX（J）步骤0.001的设定作图区间 DoEvents Y = tempx（J - 1）*（（DataX（J）- x）^ 3）/（6×DH（j）） DoEvents Y = y + tempx（J）*（（x - DataX（J 1））^ 3）/（6×DH（j）） DoEvents Y = y +（DataY（J 1）-（TempX（J 1）*（DH（J）^ 2）/ 6））*（数据X（J）- x）/ DH（J） DoEvents Y = y +（DataY（J）-（TempX（J）*（DH（J）^ 2））/ 6）*（X - DataX（J 1））/ DH（J） DoEvents epic.pset（x，y），vbblue”画图 下一个X 下J 端子 “===================================================================== ============================ “最小二乘法拟合（0 N）直线拟合 公共功能（我用datax()单，我datay()单，ByVal史诗作为PictureBox）长 错误errhandle”当端口被占用中，跳过此作用 长如N，长如A，B为双，C为双，d为双