極角と方位角の相互変換

極角（polar angle）から方位角（azimuth angle）、もしくはその逆を計算する方法です。極角と方位角は 1つの式で求めることができます。

1. 元の値を負にして90を加算し、さらに360を加算
2. その値を360で除算した剰余が極角／方位角を相互変換した値

この方法で角度が0度未満や360度より大でも 0 =< result < 360 の値を返すことができます。極角・方位角についてはこちらの記事をご覧ください。

WINGFIELD since1981

 

1 Pocket

2016.08.18

地図で使用される角度と方位の種類

https://www.wingfield.gr.jp/archives/5053

北の方角というと北極点の方向を指していると思うのが普通かもしれませんが、実は北には真北、磁北、方眼北の 3種類あります。また、方位を示す角度もいろいろあります。ここではその違いについて解説します。角度の種類方位・方角を簡単に示すには東西南北を使いますが、より細かく示すには角度を使用します。この角度には主に方位角と極角の 2種類があります。2種類の角度は相互に変換できる式があります。方位角 (azimath)方位を角度で示す際に使う最も一般的なものです。地図の世界では北（上）を 0 度とした時計回りに正となりま...

result = (90 - value + 360) % 360 

result = (90 - value + 360) % 360    'もしくは
result = (90 - value + 360) Mod 360

'角度の相互変換
'esriDirectionType
'   esriDTNorthAzimuth      :北方位角（北から時計回りの角度）
'   esriDTSouthAzimuth      :南方位角（南から時計回りの角度）
'   esriDTPolar             :極座標角（東から反時計回りの角度）
'   esriDTQuadrantBearing   :四分円方位角（指定した四方位から指定方位に向いた角度[eg,S 45 E]）
Private Function GetAzimuthalToGeneral(ByVal Value As Variant, _
                                        Optional ByVal InputType As esriDirectionType = esriDTNorthAzimuth, _
                                        Optional ByVal OutputType As esriDirectionType = esriDTPolar, _
                                        Optional ByVal Precision As Long = 0) As Variant
 
    Dim pAngularConverter As IAngularConverter
    Set pAngularConverter = New AngularConverter
     
    pAngularConverter.SetString Value, InputType, esriDUDecimalDegrees
     
    Select Case OutputType
    Case esriDTQuadrantBearing
        GetAzimuthalToGeneral = pAngularConverter.GetString(OutputType, esriDUDecimalDegrees, Precision)
         
    Case Else
        GetAzimuthalToGeneral = pAngularConverter.GetAngle(OutputType, esriDUDecimalDegrees)
         
    End Select
          
End Function