3.3 応用問題
著者:梅谷 武
語句:航海術, 方位, 距離
球面三角法を使って航海術の問題を解く。
作成:2010-07-22
更新:2011-03-08

例題3.3.1.1 目的地への方位と距離

仙台(東経141°1'29",北緯38°16'12")からアンカレジ(西経149°54'6",北緯61°13'32")への方位と距離を求めよ。但し、地球は半径6378kmの球であるものとする。

sample313.lua

package.path = "std/?.lua"
require( "Geometry" )
 
PI_180 = 3.14159265358979 / 180.0
O  = Vector3.new( 0.0, 0.0, 0.0 )
N  = Vector3.new( 0.0, 0.0, 1.0 )
S  = Vector3.new( 0.0, 0.0,-1.0 )
R0 = Vector3.new( 0.0,-1.0, 0.0 )
R1 = Vector3.new( 1.0, 0.0, 0.0 )
R2 = Vector3.new( 0.0, 1.0, 0.0 )
R3 = Vector3.new(-1.0, 0.0, 0.0 )
function LatLng2Vec( lat, lng )
if ( ( type( lat ) == "number" ) and ( type( lng ) == "number" ) ) then
local i = lat * PI_180
local k = lng * PI_180
local q = Quaternion.new( k, N )
if ( k < 0.0 ) then
q = Quaternion.new( -k, S )
end
local s = V(q * R0)
local r = Quaternion.new( i, Axis( N / s ) )
return V( r * s )
else
return nil
end
end
lat0 = Sex2Dec(  38, 16, 12 )
lng0 = Sex2Dec( 141,  1, 29 )
lat1 = Sex2Dec(  61, 13, 32 )
lng1 = Sex2Dec( 149, 54,  6 )
Sendai = LatLng2Vec( lat0, lng0 )
Anchor = LatLng2Vec( lat1, -lng1 )
red    = Vector3.new( 1.0, 0.0, 0.0 )
blue   = Vector3.new( 0.0, 0.0, 1.0 )
yellow = Vector3.new( 1.0, 1.0, 0.0 )
 
dxSetRenderState( D3DRS_ALPHABLENDENABLE, 1 )
dxSetRenderState( D3DRS_SRCBLEND, D3DBLEND_SRCALPHA )
dxSetRenderState( D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA )
Circle( R0, R1, 16, red )
Circle(  N, R0, 16, blue )
Arc( N, Sendai, 16, yellow )
Arc( N, Anchor, 16, yellow )
Arc( Sendai, Anchor, 16, yellow )
Arrow( O, N, yellow, 2.0 )
Arrow( O, Sendai, yellow, 2.0 )
Arrow( O, Anchor, yellow, 2.0 )
dxSetColor( 1.0, 1.0, 1.0, 0.1 )
dxSphere( 1.0, 32, 32 )
dxSetRenderState( D3DRS_ALPHABLENDENABLE, 0 )
 
dN = Vector3.new( 0.1,-0.1, 0.1 )
dS = Vector3.new( 0.1, 0.1, 0.1 )
dSen = Vector3.new( 0.1,-0.1, 0.1 )
dAnc = Vector3.new( 0.1,-0.1, 0.1 )
Print( N + dN, "N" )
Print( S + dS, "S" )
Print( Sendai + dSen, "Sendai" )
Print( Anchor + dAnc, "Anchorage" )
 
tnNewObject()
sample313.lua
 北極点をA、仙台をB、アンカレジをCとする球面三角形を描くと、A,b,cからB,aを求めることになる。これには余弦定理と正弦定理
cos a = cos b cos c + sin b sin c cos A
sin a
sin A
=
sin b
sin B
を使えばよい。
 数値を見たいときは、dxOutput, printf関数によりLua出力コンソールに表示する。

dxOutput

書式 dxOutput( 文字列 )

printf

書式 printf( C言語互換書式付き可変長引数 )
 文字列はLua文字列であり、改行はWindowsの改行コード"\r\n"を指定する。

sample314.lua

package.path = "std/?.lua"
require( "Geometry" )
 
PI = 3.14159265358979
PI_180 = 3.14159265358979 / 180.0
lat0 = Sex2Dec(  38, 16, 12 ) * PI_180
lng0 = Sex2Dec( 141,  1, 29 ) * PI_180
lat1 = Sex2Dec(  61, 13, 32 ) * PI_180
lng1 = Sex2Dec( 149, 54,  6 ) * PI_180
A = ( PI - lng0 ) + ( PI - lng1 )
b = PI / 2.0 - lat1
c = PI / 2.0 - lat0
 
cos_a = math.cos(b)*math.cos(c) + math.sin(b)*math.sin(c)*math.cos(A)
a = math.acos( cos_a )
printf( " %10.1f km\r\n", a*6378 )
sin_B = math.sin(b) * math.sin(A) / math.sin(a)
B = math.asin( sin_B )
v = Dec2Sex( B/PI_180 )
printf( [[ %d°%d' %d"]], v.x, v.y, v.z )
sample314.lua
 仙台からアンカレジへの方位は、北から東へ37°42'10''、距離は約5268km。
Published by SANENSYA Co.,Ltd.