#!/usr/bin/perl -w # # Standard Molodensky Datum Transformation # Nowral # 99/11/24 # # 定数 $pi = 4 * atan2(1,1); # 円周率 $rd = $pi / 180; # [ラジアン/度] # 変換したい座標 # (Tokyo) # 緯度 35°20′39.984328″ # 経度 138°35′08.086122″ # 高さ 697.681000 [m] $b = 35 + 20/60 + 39.984328/3600; # 緯度 [度] $l = 138 + 35/60 + 8.086122/3600; # 経度 [度] $h = 697.681000; # 高さ [m] print "変換前\n緯度: ",°2dms($b),"\n経度: ",°2dms($l),"\n