vb做三次样条曲线VBmakesthethreesplinecurve.doc

vb 做三次样条曲线(VB makes the three spline curve)
“三次样条做图模块X, Y,要做图的图片框
公共子 operatedata (ByRef datax ()单,我 datay ()单，By Vai vb 做三次样条曲线(VB makes the three spline curve)
“三次样条做图模块X, Y,要做图的图片框
公共子 operatedata (ByRef datax ()单,我 datay ()单，By Vai 史诗 作为PictureBox)的数字组从。开始N结束
定义n长的数组最高维数
昏暗的dh()单，dn()单，du()单，dd()作为单一的样条方程组参数 数组
昏暗的fa ()单，fr()单，fb()作为单一的分解二路
昏暗的tempy ()单，tempx()作为单一的分部解方程组
改为长整型，我长的计算变量
昏暗的XY为单，单绘制曲线用坐标
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 = l到n-l步骤1
DoEvents
DD (j) = 6 * (((DataY (j + 1) - DataY (J)) / DH (j + 1))- ((DataY (J) - DataY (JI)) / DH (J))) / (DH (J) + DH (j + 1))
"设定为 自 然样条 *************************
DD (0) =0
DD (n) =0
xl* xl* xl* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* *1* xL* xl* xl* xlz
ZTX XTX XTX XTX ✓?* XlX XlX XlX XlX XlX XlX XlX XlX XlX ✓IX ✓?* ✓?* ✓?* ✓?* ✓?* ✓?* ✓TX ✓TX ✓TX ✓TX ✓TX ✓TX ✓TX *TX ZTX XTX XTX XT^
“追赶法解方程组
“分解方程组
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)