数组没有获得正确的数据范围

时间:2012-11-22 10:45:05

标签: vb.net cad

我想使用4度方程将数据存储在数组中。但我只想要一定范围内的积分。 我的范围必须为x=0,2*Qx=1,5*Q,因此循环需要从x=0,2*Q开始,到x=1,5*Q时结束。 Q是从文本文件读取的变量,例如9。 我使用这些数据在名为Solid Edge的3D Cad程序中绘制曲线。 问题是,数据不存储我如何知道它。它确实从我想要它开始,但在我想要的那一点上没有结束。当y是该号码时,程序停止。但我只希望x发生这种情况。

我的边缘版本是ST2,这个控制台应用程序需要在ST5上运行。 在实体边缘中,我使用计算出的数组来制作曲线:

Bsplinecurve2d = BsplineCurves2d.AddByPoints(order, ArraySize, dataArray)

我正在使用visual basic 2003,我知道使用更新的版本更好。但我不能。我是工程办公室的实习生,他们只有这个基本的视觉基础。 以下是我的代码中没有做我想做的事情的部分:

    dim x as double
        dim y as double
dim i as double
    Dim listofdata As New ArrayList
         For i = 0.2 To 1.5 Step 0.1
                    x = (i * Q)
                    y = (((x ^ 4) * A) + ((x ^ 3) * B) + ((x ^ 2) * C) + (x * D) + E)
                    listofdata.Add(x)
                    listofdata.Add(y)
                Next
                Dim dataArray() As Double
                dataArray = DirectCast(listofdata.ToArray(GetType(Double)), Double())

1 个答案:

答案 0 :(得分:0)

好的,我明白了。我的计数器在x = 1.5 * Q之前停止了。 但当我把它设为x = 1.6 * Q时,阵列在右边停止。 不知道为什么我必须这样做,但它现在有用了。