求反矩陣 (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. 輸入 A11 值=1 ， 按 [1] [=] 。

    8. 輸入 A12 值=2 ， 按 [2] [=] 。

    9. 輸入 A21 值=4 ， 按 [4] [=] 。

    10. 輸入 A22 值=9 ， 按 [9] [=] 。

    11. 按 [SHIFT][4] ，再按 [1]， 選定【陣列變數 A】。

    12. 按 [x-1] ，求算反矩陣。