VS:AngBVec/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

2つのベクトルがなす角（0〜180度）を返します。

FUNCTION AngBVec(
         v1   :VECTOR;
         v2   :VECTOR) : REAL;

def vs.AngBVec(v1, v2):
    return REAL

Parameters

v1		VECTOR		ベクトル1
v2		VECTOR		ベクトル2

Return Value

2つのベクトルがなす角（度数）をREAL型の値で返します。

Example

PROCEDURE Example;
VAR
	pt1, pt2, pt3, pt4 :VECTOR;
BEGIN
	GetPt(pt1.x, pt1.y);
	GetPtL(pt1.x, pt1.y, pt2.x, pt2.y);
	GetPtL(pt2.x, pt2.y, pt3.x, pt3.y);
	MoveTo(pt1.x, pt1.y);
	LineTo(pt2.x, pt2.y);
	LineTo(pt3.x, pt3.y);
	pt4 := (pt1 + pt3) / 2;
	TextOrigin(pt4.x, pt4.y);
	CreateText(Concat(AngBVec(pt1 - pt2, pt3 - pt2)));
END;
RUN(Example);

Version

利用可能バージョン: MiniCAD