締切済み

角度の求め方

2005/11/19 16:08

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

papy_moon
お礼率43% (102/234)

みんなの回答 （3）
専門家の回答

みんなの回答

chie65536
ベストアンサー率41% (2512/6032)

2005/11/19 16:38 回答No.3

http://nkiso.u-tokai.ac.jp/phys/matsuura/lecture/dyna/contents/triangle/triangle.asp このページに書いてある「タンジェントの逆関数」があれば、角度を求められます。つまり 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の大小関係を見て９０度なのか２７０度なのか判定が必要です。