●ATAN2

情報

作者名：ゆちボン
引用元：なでしこ質問掲示板「ATAN2」

概要

(0,0)、(X,0)、(X,Y)、の三点で成す三角形の原点にある鋭角θのラジアン角を求めます。

解説

引数

X,Y：X,Y座標

返り値

θ(ラジアン角)

サンプルプログラム

ATAN2(1,(3の平方根))。
それをRAD2DEGして言う。//60

//本体

●ATAN2(x,y)
　tとは変数
　retとは変数
　' 0除算
　もし、x=0なら
　　もし、y>=0なら
　　　PI/2で戻る
　　違えば
　　　-PI/2で戻る
　' 角度を求める
　t=y/x
　ret=ARCTAN(t)
　' 範囲外修正
　もし、x<0なら、ret=ret+PI
　retで戻る