なでしこでフォルダ内のGPXファイルの総距離を勝手に計算してくれるソフト作ったよ

ソースここ置いとくんで使ってください
日本語プログラミング言語なでしこの詳しい使い方はググってください
割と簡単なので

ちなみにGPXファイルってのは緯度経度標高の寄せ集めみたいなもんで
要するにルートの記録です
前回掲載した近似計算法を使用していますのでおそらく10kmに10mほどでしょうが誤差があることをご容赦ください。
---------------------この下から------------------------

合計距離＝0
kazu=0
「data.txt」が存在するか
もしそれ＝はいならば
	「data.txt」を読む
	madokaはそれ
もしmadoka=空ならばフォルダ選択
違えばmadokaでフォルダ選択
homuraはそれ
「{homura}*.gpx」のファイル列挙
fairuはそれ
sousuu=fairuの行数
fairuを反復
	「{対象}を計算中です。{kazu}/{sousuu}｛改行｝現在の合計距離｛合計距離/1000｝km｛改行｝前回計算したルートの距離{距離/1000｝km」を10,10へ文字描画
	対象をGPX読込
	合計距離＝合計距離＋距離
	描画処理反映
	//もし距離＞30000ならば対象＆「は30越えました　｛距離/1000｝km」を言う
	画面クリア
	kazu=kazu+1
	
「成功ファイル数{kazu}(総数{sousuu}）の
合計値は｛合計距離/1000}kmでした。
右クリック→メモ画面を開く　でコピー・アンド・ペーストできます。
なお
東海道　　約４９２ｋｍ
中山道　　約５０５ｋｍ
甲州道中　約２０８ｋｍ
日光道中　約１４２ｋｍ
日本一周は約12000㎞となっております」と言う
「このフォルダを次回も使いますか？
はいを選択すると『data.txt』が生成されます」と二択
もしそれ＝はいならばhomuraを「data.txt」へ保存。

●GPX読込（namaeを）
    「{homura}{namae}」を読む
    GPXはそれ
    GPXの「trkpt」から「lat」をタグ属性取得。
    latはそれ
    GPXの「trkpt」から「lon」をタグ属性取得。
    lonはそれ
    b=latの行数-1
    
    a=0
    距離＝0
    b回(keisan)


●keisan
	 c=a+1
	 (lat\a)と(lon\a)と(lat\c)と(lon\c)で距離計算
     距離＝距離＋D
	 a=a+1
//	 Dを言う
     
	 
●距離計算(緯度1と経度1と緯度2と経度2で）
    緯度1をDEG2RAD
    緯度3はそれ
    経度1をDEG2RAD
    経度3はそれ
    緯度2をDEG2RAD
    緯度4はそれ
    経度2をDEG2RAD
    経度4はそれ
    P=(緯度3+緯度4)/2
    dP=(緯度3-緯度4)の絶対値
    dR=(経度3-経度4)の絶対値
    ((1-0.006674*(SIN(P))*(SIN(P)))^3)の平方根
    soreはそれ
    M=6334834/sore
    (1-0.006674*(SIN(P))*(SIN(P)))の平方根
    soreはそれ
    N=6377397/sore
    ((M*dP)*(M*dP)+(N*(COS(P))*dR)*(N*(COS(P))*dR))の平方根
    Dはそれ

--------------------この上まで----------------------

実行するとこんな感じになります




追記：最後から4行目あたりが間違っていたので修正しました　2014/03/22