sub_set03へ戻る

名称 ・・・・・・・

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

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

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

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

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

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

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

特になし

引数説明 ・・・・・・・

vec1
vec2

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

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

newVec
ｊ

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

最初の引数から次の引数を引く　　順番を間違わないこと
 
スクリプト 
'---ベクトルの減法(3次元ベクトル)-----------------------
function subVec3(vec1,vec2)
  dim newVec(2),j
  for j=0 to 2
    newVec(j)=vec1(j)-vec2(j)
  next
  subVec3=newVec
end function
使用例 
'ベクトルの減法のテスト
'変数はスクリプトのtest()を参照
'  dim vecResult
'  vecResult=subVec3(vec2,vec1)
'  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へ戻る