下载此文档

vb做三次样条曲线VBmakesthethreesplinecurve.doc


文档分类:IT计算机 | 页数:约9页 举报非法文档有奖
1/9
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/9 下载此文档
文档列表 文档介绍
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) = DU (i)
FA (i) = 2 - FR (i) * FB (I - 1)
DoEvents
如果我是,然后是FB (i) = DN (i) / FA (i)
下一个我
“解方程组LY = F
ReDim T

vb做三次样条曲线VBmakesthethreesplinecurve 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数9
  • 收藏数0 收藏
  • 顶次数0
  • 上传人小健
  • 文件大小84 KB
  • 时间2022-05-20