sub_set02へ戻る

名称 ・・・・・・・

単位行列(変換の無いマトリックス)を取得する
ルーチン名 ・・・・・・・

IdentityMat
スクリプトNo ・・・・・・・ sub_set02- 002
file名 ・・・・・・・ ScriptSet02.lzh
sub_set02のページからセットごとダウンロードしてください。
概略 ・・・・・・・

変換の無い状態を表わす4行4列の単位行列を返す。
使用例実行前 使用例実行後
使用前提 ・・・・・・・

戻り値を受け取る通常のバリアント変数(配列では無く）を宣言して用意しておく。
依存関係 ・・・・・・・

特になし

引数説明 ・・・・・・・

なし

戻り値説明 ・・・・・・・

単位行列　[mat(3,3)形式]
変数説明 ・・・・・・・

mat(3,3)
i,j

マトリックスを保持する変数
注意点 ・・・・・・・

呼び出し側ではバリアント変数で戻値を受ける。
 
スクリプト 
Function IdentityMat()
'単位行列(変換のない状態)を取得する。
'戻値--単位行列[mat(3,3)形式]
'引数--なし

  Dim mat(3,3)      '    ：(in)(out)
  Dim i,j          '：カウンタ用変数

  for i=0 to 3
    for j=0 to 3
      if i=j then
        mat(i,j)=1
      else
        mat(i,j)=0
      end if
    next
  next
identityMat=mat
end Function
使用例 
'変換のクリアテスト（逆マトリックスのテストと結果は同じ）
'■このテストは適当な線形状をパートに入れ、パートに何らかの変形
'を加えた上で実行してください。
  dim mat0
  mat0=IdentityMat()
  applyTransMat(mat0)

sub_set02へ戻る