求反矩陣 (Inverse Matrix)

GNU-R:

P <- array(0, dim=c(4,4)) P[1,1] <- 1 P[1,2] <- 0 P[1,3] <- 2 P[1,4] <- 0 P[2,1] <- 0 P[2,2] <- 1 P[2,3] <- 0 P[2,4] <- 2 P[3,1] <- 4 P[3,2] <- 0 P[3,3] <- 9 P[3,4] <- 0 P[4,1] <- 0 P[4,2] <- 4 P[4,3] <- 0 P[4,4] <- 9 print (P) V <- array(0, dim=c(4,1)) V[1,1] <- 1 V[2,1] <- 0 V[3,1] <- 0 V[4,1] <- 1 print (V) print(solve(P, V))

GNU-R:

myEq <- array(0, c(2, 2)) myEq[1, 1] = 1 myEq[1, 2] = 2 myEq[2, 1] = 4 myEq[2, 2] = 9 print(solve(myEq))

Casio fx-991MS 操作:

1. 按 [MODE] 鍵 3 次，直到 [MAT] 字樣出現。
2. 按 [2] 進入陣列操作模式。
3. 按 [SHIFT][4] ，再按 [1]，進入陣列輸入模式。
4. 按 [1] 選定【陣列變數 A】。
5. 按 [2] [=] ，指定陣列列數 m=2。
6. 按 [2] [=] ，指定陣列列數 n=2。
7. 輸入 A₁₁ 值=1 ，按 [1] [=] 。
8. 輸入 A₁₂ 值=2 ，按 [2] [=] 。
9. 輸入 A₂₁ 值=4 ，按 [4] [=] 。
10. 輸入 A₂₂ 值=9 ，按 [9] [=] 。
11. 按 [SHIFT][4] ，再按 [1]，選定【陣列變數 A】。
12. 按 [x^-1] ，求算反矩陣。

Page updated

Google Sites

Report abuse