Diary/2012-4-20の変更点

• 追加された行はこのように表示されます。
• 削除された行はこのように表示されます。

!!まず"度分秒を度に"とその逆をPerlで既述{{category GPSネタ}}
 # 度分秒を度
 #  呼出 &DMS2D ( 度,分,秒 )   ; 実数
 #  呼出 &DMS2D ( 度,分,秒 )   ; 整数,整数,実数
 #  戻値 度                    ; 実数
 sub DMS2D {
 	my($p1,$p2,$p3) = @_;
 	return ($p1+($p2/60)+($p3/3600));
 }

 # 度を度分秒
 #  呼出 &D2DMS ( 度 )         ; 実数
 #  戻値 ( 度,分,秒 )          ; 実数
 #  戻値 ( 度,分,秒 )          ; 整数,整数,実数
 sub D2DMS {
 	my($p1)= @_;
 	my $c1 = int($p1); 
 	   $p1 = ($p1 - $c1) * 60; 
 	my $c2 = int($p1); 
 	   $p1 = ($p1 - $c2) * 60;
 	return ($c1,$c2,$p1);
 }

まぁPerlでは型をそんなに意識しなくてよいけれどね