vb做曲线,并拟合和进行高斯消去
大家好,我是新手,原来都用c和C#的,现在用vb编程,很多问题都不明白,希望能遇到高手,多多指教,下面是一个程序的拟合,和高斯消去。我大学学过离散数学,数值分析,就是不太记得了,希望能够提点一下,帮我解释一下,我比较笨,越详细越好,谢谢。
,Public Function CurveFitting(X() As Single, Y() As Single, n As Integer, e As Integer) As Single()
'**** 曲线拟合 ****
Dim A() As Single
Dim C() As Single
Dim B() As Single
ReDim A(1 To n + 1, 1 To n + 1) As Single
ReDim C(1 To n + 1) As Single
ReDim B(1 To n + 1) As Single
Dim Temp As Single
Dim i, j, K As Integer
For i = 0 To e
For j = 0 To e
For K = 1 To n
A(i + 1, j + 1) = A(i + 1, j + 1) + X(K) ^ (j + i)
Next K
Next j
For K = 1 To n
C(i + 1) = C(i + 1) + X(K) ^ i * Y(K)
Next K
Next i
B = SolvingEquations(A(), C(), e + 1)
<
相关问答:
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......
在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
我写了一个软件,要用到ACCESS数据库,我再访问ACCESS的时候,我需要从表里读出一行数据,我的程序是这样写的,SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
本人使用的是VB6.0版本
假设有一个对象A,A内有类型为B的对象属性。现在的问题是,需要添加若干个B对象作为A对象的属性。如,
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......