sub_set02へ戻る

名称 ・・・・・・・

マトリックスの要素を全て０に初期化
ルーチン名 ・・・・・・・

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

マトリックスの要素を全て０に初期化する
使用例実行前 使用例実行後
使用前提 ・・・・・・・

引数で与えられたマトリックスの要素を全て0で置き換える
依存関係 ・・・・・・・

特になし

引数説明 ・・・・・・・

mat

：初期化するマトリックス[mat(3,3)形式]
戻り値説明 ・・・・・・・

4行4列の0マトリックス[mat(3,3)形式]
変数説明 ・・・・・・・

i,j

：カウンタ用変数
注意点 ・・・・・・・

単位行列にするわけではないので注意
 
スクリプト 
'---４行４列のﾏﾄﾘｯｸｽ(アフィン変換用）の初期化
Sub iniMat(mat)
'与えられたマトリックスの要素を全て0に初期化する。
'戻値--なし
'引数--
' mat    ：(in)(out)初期化するマトリックス[mat(3,3)形式]

  Dim i,j          '：カウンタ用変数

  for i=0 to 3
    for j=0 to 3
      mat(i,j)=0
    next
  next
end Sub
使用例 
---

sub_set02へ戻る