角度の求め方

VBAで２つのX,Y座標から角度を求めるにはどのようにしたら良いのでしょうか。
例えばx1=100,y1=100とx2=200,y2=200は４５度、というような場合にx1,y2とx2,y2を使って４５を求めたいのですが．．．

No.3 回答者： chie65536 回答日時： 2005/11/19 16:38

http://nkiso.u-tokai.ac.jp/phys/matsuura/lecture …
このページに書いてある「タンジェントの逆関数」があれば、角度を求められます。

つまり
kakudo = atn((x2-x1)/(y2-y1))
となります。

なお、上記だけでは－９０度～９０度までしか判りません。割り算なので「100/100と-100/-100」、「-100/100と100/-100」が同じ値になって区別できません。つまり、４５度と２２５度、１３５度と３１５度の区別が付きません。

ですので、x1とx2、y1とy2のそれぞれの大小関係で場合分けし、別々に角度を求める必要があります。

但し、y1とy2が一致する時は「０で割算エラー」が出るので、atn関数は使えません。y1とy2が一致した場合はatn関数を呼ばずにx1とx2の大小関係を見て「０度」「２点が同一座標」「１８０度」の３通りに判定するようにします。

また、x1とx2が一致した場合、引数の「(x2-x1)/(y2-y1)」が０になってしまい、９０度なのか２７０度なのか判らなくなります。その場合もy1とy2の大小関係を見て９０度なのか２７０度なのか判定が必要です。

参考URL：http://nkiso.u-tokai.ac.jp/phys/matsuura/lecture …

No.2 回答者： OsieteG00 回答日時： 2005/11/19 16:37

訂正します。

=if((x2-x1)=0,90,ATAN((y2-y1)/(x2-x1))*180/PI())

参考URL：http://www.moug.net/tech/exopr/0090016.htm

No.1 回答者： OsieteG00 回答日時： 2005/11/19 16:35

=if((x2-x1)=0,90,=ATAN((y2-y1)/(x2-x1))*180/PI()

参考URL：http://www.moug.net/tech/exopr/0090016.htm