求線性方程式解
GNU-R:
P <- array(0, dim=c(3,3)) P[1,1] <- 1 P[1,2] <- -1 P[1,3] <- 1 P[2,1] <- 3 P[2,2] <- 2 P[2,3] <- 1 P[3,1] <- 4 P[3,2] <- 2 P[3,3] <- 2 print (P) V <- array(0, dim=c(3,1)) V[1,1] <- 4 V[2,1] <- 2 V[3,1] <- 8 print (V) print(solve(P, V))
Casio fx-991MS 操作:
按 [MODE] 鍵 3 次,直到 [EQN] 字樣出現。
按 [1] 進入解方程式操作模式。
輸入 [3] 個變數。
依次輸入 [1] [-1] [1] [4]。
依次輸入 [3] [2] [1] [2]。
依次輸入 [4] [2] [2] [8]。
求解方程式。