2010年6月14日 星期一

Re: [算表] 如何在excel中計算矩陣的多次方? --VBA

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Office
標題: Re: [問題] 如何在excel中計算矩陣的多次方?
時間: Sun Mar 8 23:31:57 2009

※ 引述《sesirc (sesirc)》之銘言:
: 軟體: Excel
: 版本: office 2003
: 請問一下要如何利用excel的巨集計算一個矩陣的N次方值? (N自訂)
: google 一整個下午 都找不到答案 (頂多找到相同的問題 XD)
: 如果是用一般的數學軟體很快
: 不過因為是幫朋友問的 朋友對數學軟體也完全不通
: excel 裡好像也沒有單一的函數指令就可以計算
: 巨集語法我則是完全不懂
: 請問是否有高手能夠幫個忙 謝謝

假設A是一個2x2的矩陣,放在A1:B2
計算結果會放在C1:D2
寫得不好,勉強用用


Sub Ptt()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
A = Range(Cells(1, 1), Cells(2, 2))
B = Range(Cells(1, 1), Cells(2, 2))
n = 5 '矩陣的N次方
For i = 1 To n - 1
A = Fn.MMult(A, B)
Next
Range(Cells(1, 3), Cells(2, 4)).Value = A
End Sub


--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.136.57
推 sesirc:感恩感恩 :)  03/09 00:28
推 JieJuen:推  03/09 18:00

沒有留言:

張貼留言