sub_set03へ戻る

名称 ・・・・・・・

3次元ベクトル加法
ルーチン名 ・・・・・・・

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

2つのベクトルの和を計算します。
使用例実行結果

これはスクリプトのtest()にある機能確認スクリプトを実行して「addVec3」ルーチンの結果を描画させたものです。

左図の黄色がvec1,vec2でこの2つの和が赤いベクトルとなる。

紫の矢印はベクトルの向きを示しています。
使用前提 ・・・・・・・

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

特になし

引数説明 ・・・・・・・

vec1
vec2

：最初のベクトル
：2番目のベクトル
戻り値説明 ・・・・・・・

3次のベクトル　[vec(2)形式]　　通常のバリアント変数で受ける
変数説明 ・・・・・・・

newVec
ｊ

：計算結果の一時記憶用[vec(2)形式]
：カウンタ用変数
注意点 ・・・・・・・

特になし
 
スクリプト 
'---ベクトルの加法(3次元ベクトル)-----------------------
function addVec3(vec1,vec2)
  dim newVec(2),j
  for j=0 to 2
    newVec(j)=vec1(j)+vec2(j)
  next
  addVec3=newVec
end function
使用例 
'ベクトルの加法のテスト
'変数はスクリプトのtest()を参照							
  dim vecResult
  vecResult=addVec3(vec1,vec2)
  for j=0 to 2
    XShade.Message"j="&j&"  ans="&vecResult(j)
  next
  drawVec pos0,vec1
  drawVec pos0,vec2
  drawVec pos0,vecResult
  ColorSet Red
  XShade.ObjectName="和"
  XShade.SelectParent 1

sub_set03へ戻る