第６７講の閉合・開放トラバース測量プログラムへの追稿
任意の２点間の距離を計算するルーチンを追加しますので、１２４１０行、１２４２０行、１２４３０行を次のように書き改めてください。
１２４１０ ＣＬＳ：ＰＲＩＮＴ”＜ＭＥＮＵ＞”，”データ リスト ＝１： メンセキ ケイサン ＝２”，”チャート ＝３： ２テンノキョリ ＝４”，”シュウリョウ ＝５”；
１２４２０ ＩＮＰＵＴ Ｐ：ＯＮ Ｐ ＧＯＴＯ １２５５０，１２４５０，１４０００，１５０００，１０１９０
１２４３０ ＩＦ Ｐ＜＞５ ＴＨＥＮ １２４１０
２点間の距離を求めるプログラムは下記の通りです。
１５０００ ＲＥＭ＊＊２テンカンノキョリ
１５０１０ ＣＬＳ：ＰＲＩＮＴ”２テンカンノキョリ”：ＩＮＰＵＴ ＴＳ＄，ＰＳ：ＰＲＩＮＴ”ｔｏ”：ＩＮＰＵＴ ＴＥ＄，ＰＥ
１５０２０ ＩＦ ＴＳ＄＝”Ｓ” ＴＨＥＮ ＰＳ＝ＰＳ－１
１５０３０ Ｘ１＝Ｘ（ＰＳ）：Ｙ１＝Ｙ（ＰＳ）
１５０４０ ＩＦ ＴＥ＄＝”Ｓ” ＴＨＥＮ ＰＥ＝ＰＥ－１
１５０５０ Ｘ２＝Ｎ（ＰＥ）：Ｙ２＝Ｅ（ＰＥ）
１５０６０ ＬＬ＝ＳＱＲ（（Ｘ１－Ｘ２）＾２＋（Ｙ１－Ｙ２）＾２）：ＩＦ ＴＳ＄＝”Ｓ” ＴＨＥＮ ＰＳ＝ＰＳ＋１
１５０７０ ＩＦ ＴＥ＄＝”Ｓ” ＴＨＥＮ ＰＥ＝ＰＥ＋１
１５０８０ ＣＬＳ：ＰＲＩＮＴ ＴＳ＄；”（”；ＰＳ；”） カラ ”；ＴＥ＄；”（”；ＰＥ；”） ノ キョリ”，ＬＬ，”（ｓｔｒｉｋｅ Ｍ ｔｏ ＜ＭＥＮＵ＞）
１５０９０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝”” ＴＨＥＮ １５０９０
１５１００ ＩＦ Ａ＄＝”Ｍ” ＴＨＥＮ １２４１０ ＥＬＳＥ １５０００
また、１４３８０行のＱＱをＱＱ＄と、文字変数に訂正すればエラー表示されません。なにとぞ悪しからず。
第６７講のデータプログラムをそのまま使って、第６９講の通りプログラムを実行してみます。
＜ＭＥＮＵ＞画面から１と選択して、トラバース点と測点の座標値を書き取ってみると、
Ｔｒ（０） Ｘ＝ ０．０００ Ｙ＝ ０．０００
Ｔｒ（１） Ｘ＝４９．３８４ Ｙ＝ ７．８２１
Ｔｒ（２） Ｘ＝３１．４６５ Ｙ＝－３８．８５９
Ｓｏ（１） Ｘ＝ ６．９６２ Ｙ＝ １９．３０８
Ｓｏ（２） Ｘ＝２７．９５２ Ｙ＝ ２３．０４９
Ｓｏ（３） Ｘ＝４９．３８４ Ｙ＝ ７．８２１
Ｓｏ（４） Ｘ＝６５．５６９ Ｙ＝ －６．１０２
Ｓｏ（５） Ｘ＝ ７．７８０ Ｙ＝－４３．０３３
さてここで、Ｔｒ（０）からＳｏ（５）までの距離は如何程かというのが問題なのですが、平面直角座標系の２点の距離は、ピタゴラスの定理さえ知っていれば容易に解ける問題です。その距離はＳＱＲ（（０．０００－７．７８０）＾２＋（０．０００＋４３．０３３）＾２）という算式を解けばよいだけです。この解は、４３．７３０６２４１６となります。
ここで、プログラムを立ち上げ、正常に作動するかチェックしてみましょう。
（Ｔｒ．（０）の方位角は９０．００００、Ｘ座標は０．０００、Ｙ座標は０．０００とします）。すると、その距離は４３．７２９３８５６６と表示されます。これは、座標表示のＸ、Ｙ座標の表示が小数点以下第４位で丸められているために起こる現象です。
任意の２点の計算結果の成果を、さまざまに検証してみてください。
使用方法：メニュー画面から、４を選択すると「２テンカンノキョリ」と表示され、改行して？のマークが表示されますから、Ｔ（＝トラバース点ということ）と入力します。すると改行して？マークが表示されますから０を入力します。今度は、「ｔｏ」が表示され？となって、もう一方の求点の表示を要求して来ますので、Ｓと入力し、さらに５と入力します。すると、求める２点間の距離が表示されます。同様の作業で、任意の２点間の距離を求めることができます。
任意の２点間の距離を計算するルーチンを追加しますので、１２４１０行、１２４２０行、１２４３０行を次のように書き改めてください。
１２４１０ ＣＬＳ：ＰＲＩＮＴ”＜ＭＥＮＵ＞”，”データ リスト ＝１： メンセキ ケイサン ＝２”，”チャート ＝３： ２テンノキョリ ＝４”，”シュウリョウ ＝５”；
１２４２０ ＩＮＰＵＴ Ｐ：ＯＮ Ｐ ＧＯＴＯ １２５５０，１２４５０，１４０００，１５０００，１０１９０
１２４３０ ＩＦ Ｐ＜＞５ ＴＨＥＮ １２４１０
２点間の距離を求めるプログラムは下記の通りです。
１５０００ ＲＥＭ＊＊２テンカンノキョリ
１５０１０ ＣＬＳ：ＰＲＩＮＴ”２テンカンノキョリ”：ＩＮＰＵＴ ＴＳ＄，ＰＳ：ＰＲＩＮＴ”ｔｏ”：ＩＮＰＵＴ ＴＥ＄，ＰＥ
１５０２０ ＩＦ ＴＳ＄＝”Ｓ” ＴＨＥＮ ＰＳ＝ＰＳ－１
１５０３０ Ｘ１＝Ｘ（ＰＳ）：Ｙ１＝Ｙ（ＰＳ）
１５０４０ ＩＦ ＴＥ＄＝”Ｓ” ＴＨＥＮ ＰＥ＝ＰＥ－１
１５０５０ Ｘ２＝Ｎ（ＰＥ）：Ｙ２＝Ｅ（ＰＥ）
１５０６０ ＬＬ＝ＳＱＲ（（Ｘ１－Ｘ２）＾２＋（Ｙ１－Ｙ２）＾２）：ＩＦ ＴＳ＄＝”Ｓ” ＴＨＥＮ ＰＳ＝ＰＳ＋１
１５０７０ ＩＦ ＴＥ＄＝”Ｓ” ＴＨＥＮ ＰＥ＝ＰＥ＋１
１５０８０ ＣＬＳ：ＰＲＩＮＴ ＴＳ＄；”（”；ＰＳ；”） カラ ”；ＴＥ＄；”（”；ＰＥ；”） ノ キョリ”，ＬＬ，”（ｓｔｒｉｋｅ Ｍ ｔｏ ＜ＭＥＮＵ＞）
１５０９０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝”” ＴＨＥＮ １５０９０
１５１００ ＩＦ Ａ＄＝”Ｍ” ＴＨＥＮ １２４１０ ＥＬＳＥ １５０００
また、１４３８０行のＱＱをＱＱ＄と、文字変数に訂正すればエラー表示されません。なにとぞ悪しからず。
第６７講のデータプログラムをそのまま使って、第６９講の通りプログラムを実行してみます。
＜ＭＥＮＵ＞画面から１と選択して、トラバース点と測点の座標値を書き取ってみると、
Ｔｒ（０） Ｘ＝ ０．０００ Ｙ＝ ０．０００
Ｔｒ（１） Ｘ＝４９．３８４ Ｙ＝ ７．８２１
Ｔｒ（２） Ｘ＝３１．４６５ Ｙ＝－３８．８５９
Ｓｏ（１） Ｘ＝ ６．９６２ Ｙ＝ １９．３０８
Ｓｏ（２） Ｘ＝２７．９５２ Ｙ＝ ２３．０４９
Ｓｏ（３） Ｘ＝４９．３８４ Ｙ＝ ７．８２１
Ｓｏ（４） Ｘ＝６５．５６９ Ｙ＝ －６．１０２
Ｓｏ（５） Ｘ＝ ７．７８０ Ｙ＝－４３．０３３
さてここで、Ｔｒ（０）からＳｏ（５）までの距離は如何程かというのが問題なのですが、平面直角座標系の２点の距離は、ピタゴラスの定理さえ知っていれば容易に解ける問題です。その距離はＳＱＲ（（０．０００－７．７８０）＾２＋（０．０００＋４３．０３３）＾２）という算式を解けばよいだけです。この解は、４３．７３０６２４１６となります。
ここで、プログラムを立ち上げ、正常に作動するかチェックしてみましょう。
（Ｔｒ．（０）の方位角は９０．００００、Ｘ座標は０．０００、Ｙ座標は０．０００とします）。すると、その距離は４３．７２９３８５６６と表示されます。これは、座標表示のＸ、Ｙ座標の表示が小数点以下第４位で丸められているために起こる現象です。
任意の２点の計算結果の成果を、さまざまに検証してみてください。
使用方法：メニュー画面から、４を選択すると「２テンカンノキョリ」と表示され、改行して？のマークが表示されますから、Ｔ（＝トラバース点ということ）と入力します。すると改行して？マークが表示されますから０を入力します。今度は、「ｔｏ」が表示され？となって、もう一方の求点の表示を要求して来ますので、Ｓと入力し、さらに５と入力します。すると、求める２点間の距離が表示されます。同様の作業で、任意の２点間の距離を求めることができます。