2008年6月4日 星期三

使用 TCL 解高斯函數(矩陣 Matrix)

### 設定矩陣大小
### 矩陣內容如下
### MatrixA :
### |  1     1      2  |
### | 10    11   12 |
### MatrixB :
### |  5  |
### |  7  |

set X 3
set Y 2
### 引用 TCL 的數學函式 Library Package
package require
math::linearalgebra

### 建立矩陣
set MatrixA [::math::linearalgebra::mkMatrix $Y $X 0]
set MatrixB [::math::linearalgebra::mkMatrix $Y 1 1]
### 填入矩陣 MatrixA 內容
::math::linearalgebra::setelem MatrixA 0 0 1
::math::linearalgebra::setelem MatrixA 0 1 1
::math::linearalgebra::setelem MatrixA 0 2 2
::math::linearalgebra::setelem MatrixA 1 0 10
::math::linearalgebra::setelem MatrixA 1 1 11
::math::linearalgebra::setelem MatrixA 1 2 12
### 填入矩陣 MatrixB 內容
::math::linearalgebra::setelem MatrixB 0 0 5
::math::linearalgebra::setelem MatrixB 1 0 7
### 使用 TCL 的 Library 計算 解高斯函數
set Z [::math::linearalgebra::solveGauss$MatrixA $MatrixB]
### 傳回答案 48.0 -43.0

沒有留言:

張貼留言