生成正交向量的模块（vb6）

山水美不美 · 发表于 2011-11-25 11:53:46

您需要登录才可以下载或查看，没有帐号？立即注册

x

去年动手写算法时，需要获得一组正交向量作为初始化值，找了一下，网上没有这方面的东东，于是自己写了一个，这里分享一下，希望大家用得着。
调用方法，例如：
Dim vA(1 To 10, 1 To 10) As Single
Call AnyOrthogonalVs(10, vA)

OrthogonalVsBas.bas (1.97 KB, 下载次数: 9)

mofangbao · 发表于 2011-11-25 12:26:28

楼主对vb很熟悉啊，希望咱论坛的vb高手越来越多！

山水美不美 · 发表于 2011-11-25 13:56:11

vb过程写法与FORTRAN非常接近，所以借用vb窗体制作的便利想打造一个自用的工具，自然也就熟悉一些。还有几个，如Kriging插值、GA、线性判别（LDA）等算法实现过程中，被矩阵求逆或其它问题给卡住了，有空的时候我把问题提出来，看能不能有所突破，不知道对这方面感兴趣的有没有？

hemingclear · 发表于 2013-3-4 15:09:24

高手啊，支持支持~！

中者 · 发表于 2017-6-2 13:01:24

顶一下又不掏钱~~~呵呵

yzydys · 发表于 2017-6-13 23:15:47

感谢分享。

		自动登录	找回密码
密码			立即注册