波多在线播放_激情深爱五月_久久欧美精品_成人超碰_国产久_www.pixiv.moe


曙海教育集團論壇開發語言培訓專區VB語言 → vb語言實現的卡爾曼濾波源程序


  共有9004人關注過本帖樹形打印

主題:vb語言實現的卡爾曼濾波源程序

美女呀,離線,留言給我吧!
wangxinxin
  1樓 個性首頁 | 博客 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:青蜂俠 帖子:1393 積分:14038 威望:0 精華:0 注冊:2010-11-12 11:08:23
vb語言實現的卡爾曼濾波源程序  發帖心情 Post By:2010-12-14 14:47:56

(沒有測試,輸出部分要配合相應的過程)

Dim num1, num2, num3
Dim a(), a1(), e() As Single
Dim alf, xgm(), p(), k1(), k2, k(), p1(), p2(), c(), c1, k3(), k4(), cc() As Single
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
num3 = Val(Text1.Text) + 2
num2 = Val(Text2.Text)
ReDim a(num3, num2)
For j = 1 To num3
For i = 1 To num2
Input #1, a(j, i)
Next i
Next j
Close #1

End Sub

Private Sub Command2_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #2

For i = 1 To num2
Print #2, cc(i, 1), cc(i, 2), cc(i, 3)
Next i

Close #2
Shell "c:\windows\notepad " & CommonDialog1.FileName
End Sub

Private Sub Command3_Click()

num1 = Val(Text1.Text) + 1
num2 = Val(Text2.Text)
num3 = Val(Text1.Text) + 2
ReDim a1(num2), e(num1, num2) As Single
ReDim xgm(num1), p(num1, num1), k1(num1), k(num1), p1(num1, num1), p2(num1, num1), c(num1), k3(num1), k4(num1), cc(num2, num1) As Single





c(1) = c(2) = c(3) = 0
r = 0.000001
alf = 10
For j = 1 To num1
For i = 1 To num2
e(j, i) = a(j, i)
a1(i) = a(num3, i)
Next i
Next j
For x = 1 To num1
xgm(x) = alf * Sqr(r / e(x, 1))
p(x, x) = xgm(x) ^ 2
Next x

For q = 1 To num2
For i = 1 To num1
k3(i) = k4(i) = 0
Next i
k2 = 0
For i = 1 To num1
For j = 1 To num1
p1(i, j) = p2(i, j) = 0
Next j
Next i
c1 = 0

For m = 1 To num1
k3(m) = 0
For n = 1 To num1
k3(m) = k3(m) + e(n, q) * p(n, m)
Next n
Next m

For m = 1 To num1
k4(m) = 0
k4(m) = k4(m) + 1000 * k3(m) * e(m, q)
Next m

For i = 1 To num1
k2 = k2 + k4(i)
Next i

For v = 1 To num1
k(v) = 0
k(v) = k3(v) * (k2 / 1000 + r) ^ -1
Next v

For i = 1 To num1
For j = 1 To 3
p1(i, j) = k(i) * e(j, q)
Next j
Next i

For l = 1 To num1
For i = 1 To num1
p2(l, i) = 0
For j = 1 To num1

p2(l, i) = 1000 * p1(l, j) * p(j, i) + p2(l, i)
Next j
Next i
Next l

For i = 1 To num1
For j = 1 To num1
p(i, j) = p(i, j) - p2(i, j) / 1000
Next j
Next i

For i = 1 To num1
c1 = c1 + e(i, q) * c(i)
Next i
For i = 1 To num1
c(i) = c(i) + k(i) * (a1(q) - c1)

Next i


For i = 1 To num1

cc(q, i) = c(i)
Next i
Next q

End Sub

Private Sub Command4_Click()
End
End Sub

支持(0中立(0反對(0單帖管理 | 引用 | 回復 回到頂部

返回版面帖子列表

vb語言實現的卡爾曼濾波源程序








簽名
主站蜘蛛池模板: 色综合中文字幕天天在线 | 五月婷婷狠狠干 | 久久久久久国产精品 | 日韩一区二区三区在线播放 | 日日日日日 | 国产综合久久久久影院 | 那一个欧美一级毛片 | 午夜爱爱爱爱爽爽爽网站免费 | 亚洲狠狠干 | 午夜天堂精品久久久久 | 亚洲一区2区三区4区5区 | 久操欧美| 国产精品视频播放 | 94在线成人免费视频 | 毛片黄片| 午夜影院免费视频 | 久萆app污版下载网站 | 公么吃奶满足了我苏媚 | 亚洲国产精品久久久久久网站 | 国产香蕉视频在线观看 | 草久久免费视频 | 成人黄色在线视频 | 欧美成人a∨高清免费观看 久久亚洲欧美日韩精品专区 | 色人阁久久 | 日本在线无 | 亚洲h视频 | 国产精品久久久久久婷婷天堂 | 日韩综合一区 | 黄色国产在线视频 | 亚洲综合色播 | 国产91在线观看 | 免费播放春色aⅴ视频 | 色欲AV蜜臀AV在线观看麻豆 | 欧洲男女下面进出的视频 | 美女国产一区 | 亚洲欧美日韩中文综合在线不卡 | 色婷婷久久综合中文久久一本 | 成人不卡在线 | 午夜电影在线观看 | 91久久精品久久国产性色也91 | 免费v片在线观看 |