以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何做矩阵计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67573)
--  作者：fjf123
--  发布时间：2015/4/26 22:28:00
--  [求助]如何做矩阵计算
各位大哥大姐们，请教如何用foxtalbe做矩阵计算？能否用个小例子加以说明一下。谢谢，着急等待中......
--  作者：狐狸爸爸
--  发布时间：2015/4/27 8:06:00
--  
这个和语言无关，你懂算法就可以写出来。
--  作者：foxor
--  发布时间：2015/4/27 10:44:00
--  
用两个嵌套的循环语句，如
dim s as double =0
dim a(4), b(4) as double
for i as integer =0 to 4
   for j as integer=i to 4  
   s=s+a(i)*b(j)
 next j
next i
   
--  作者：fjf123
--  发布时间：2015/4/27 23:18:00
--  
感谢回复，尽管还不太懂，也要多谢谢了。
--  作者：fjf123
--  发布时间：2016/6/26 22:12:00
--  [求助]矩阵运算
哪位大侠用foxtable给举出一个矩阵运算的例子，不胜感激。
--  作者：大红袍
--  发布时间：2016/6/27 0:19:00
--  
 上传实例，说明你要做什么。
--  作者：jaegea
--  发布时间：2016/7/29 11:20:00
--  
矩阵定义
Dim Jm,Tm,Zm As New List(Of List(Of Integer))
Dim J0,T0 As List(Of Integer)
Dim sz() As Integer
sz = New Integer() { 3,1,2,3,4,0,0,0 }:J0 = New List(Of Integer):J0.AddRange(sz):Jm.Add(J0)
sz = New Integer() { 1,4,2,3,0,0,0,0 }:J0 = New List(Of Integer):J0.AddRange(sz):Jm.Add(J0)
sz = New Integer() { 3,4,1,2,1,0,0,0 }:J0 = New List(Of Integer):J0.AddRange(sz):Jm.Add(J0)
sz = New Integer() { 2,3,4,1,4,3,0,0 }:J0 = New List(Of Integer):J0.AddRange(sz):Jm.Add(J0)
sz = New Integer() { 4,2,3,4,1,3,4,0 }:J0 = New List(Of Integer):J0.AddRange(sz):Jm.Add(J0)
sz = New Integer() { 1,2,1,3,4,1,3,1 }:J0 = New List(Of Integer):J0.AddRange(sz):Jm.Add(J0)
sz = New Integer() { 8,2,4,24,6,0,0,0  }:T0 = New List(Of Integer):T0.AddRange(sz):Tm.Add(T0)
sz = New Integer() { 4,5,3,4,0,0,0,0   }:T0 = New List(Of Integer):T0.AddRange(sz):Tm.Add(T0)
sz = New Integer() { 3,7,15,20,8,0,0,0 }:T0 = New List(Of Integer):T0.AddRange(sz):Tm.Add(T0)
sz = New Integer() { 7,6,21,1,16,3,0,0 }:T0 = New List(Of Integer):T0.AddRange(sz):Tm.Add(T0)
sz = New Integer() { 10,4,8,4,12,6,1,0 }:T0 = New List(Of Integer):T0.AddRange(sz):Tm.Add(T0)
sz = New Integer() { 1,4,7,3,5,2,5,8   }:T0 = New List(Of Integer):T0.AddRange(sz):Tm.Add(T0)
矩阵运算
For x As Integer = 0 To Jm.Count - 1
    Dim Z0 As List(Of Integer)
    For y As Integer = 0 To Jm(x).Count - 1
        Z0.Add(Jm(x)(y)*Tm(x)(y))
    Next
    Zm.Add(Z0)
Next

[此贴子已经被作者于2016/7/29 11:21:24编辑过]