ＣＡＳＩＯ　ＦＸ−６０３Ｐ 　　　　　　　測量計算プログラム　６０３　（　Ｖer.３．１５　） 　　　　　　　　　　　　 　［ 目　 次 ］　　 　概　　　要　 　・・・・・・・・・・・・・ 37 　プログラム　概　説　 ・・・・・・・・・・・・・ 37 　プログラム　内　容　・　操　作　方　法　 　　Ｐ　０：　逆　計　算　［　放　射　逆　計　算　］ ・・・・・・38 　　Ｐ　１：　放　射　ﾄﾗﾊﾞｰｽ　計　算　・　開放 ﾄﾗﾊﾞｰｽ　計　算 ・・・39 　　Ｐ　２：　中　間　点　計　算　・　巾　杭　計　算　 ・・・・・・40 　　Ｐ　３：　４　点　交　点　計　算 ・・・・・・41 　　Ｐ　４：　杭　打　計　算　・　傾　斜　補　正　計　算 ・・・・・42 　　Ｐ　５：　内　角　計　算 ・・・・・・43 　　Ｐ　６：　間接水準 1 ( S,V )［ 標高計算 ・ 座標標高計算 ］・・・44 　　Ｐ　７：　単　曲　線　中　間　点　計　算　　 ・・・・・・45 　　Ｐ　８：　２　内　角　交　点　計　算　　 ・・・・・・46 　Ｐ　９：　２　円　交　点　計　算　　 ・・・・・・47 　　Ｐ１０：　垂　線　長　計　算　　 ・・・・・・48 Ｐ１１：　鉛　直　角　計　算 ( 観測手簿 ) ・・・・・・49 Ｐ１２：　気圧・温度　補　正　計　算 WILD 簡易計算 ・・・・・50 Ｐ１３：　投影・縮尺　補　正　計　算 ( 観測手簿 ) ・・・・・・51 Ｐ１４：　ｽﾀｼﾞｱ 　計　算 1 ［ 標高計算 ］ ・・・・・・52 Ｐ１５：　ｽﾀｼﾞｱ 　計　算 2 ［ 座標標高計算 ］ ・・・・・・53 Ｐ１６：　ｽﾀｼﾞｱ 　計　算 3 ［ REVERSE ］ ・・・・・・54 　　Ｐ１７：　間接水準 2 ( h,l )［ 標高計算 ・ 座標標高計算 ］・・・55 　　Ｐ１８：　間接水準 3 ( S,V )［ REVERSE ］ ・・・56 　　Ｐ１９：　間接水準 4 ( dh ) ［ REVERSE ］ ・・・57 　　　　　　　　　　　ＣＡＳＩＯ　ＦＸ−６０３Ｐ 　　　　　　　　　　　　　測量計算プログラム　　 　　　　　　　　　　　　　　　　６０３ ［　概　　　要　］ 　現在、測量作業はパーソナルコンピュータ等での処理が一般化され、事務所で は計算作業が比較的簡素化されて処理されています。 しかし、現場作業における計算もポケットコンピュータにより簡単に出来るよう になりましたが、胸のポケットに入り手軽に計算できる関数電卓が、依然使い易 く便利だと考えられます。 　以上のようなことより、現場における計算作業に適していると考えられる プログラム関数電卓　ＣＡＳＩＯ　ＦＸ−６０３Ｐによる測量計算プログラムを 考えコーディングしてみました。 ［　プログラム　概　説　］ 　現場における計算作業での簡単な計算及びチェツクを主目的とし、少し手間が かかるかもしくは、事務所での計算の方がより効果的なものは極力さけ、しかも プログラムの読み換えが少なく、１回の読み込みで効果的な処理が可能となるよ うなプログラムとした。 　また、精密解はパーソナルコンピュータ等を使用して求める事を前堤としてい るので、このプログラムでは五捨五入などのまるめは行なっていない為、精密解 とは表示上１ｍｍ程度の誤差を有するが、これを無視するものとした。 しかし、メモリー内には精密解が存在しているので、必要に応じメモリーをマニ ュアルで呼び出して、確認をするようにした。 ［　プログラム　内　容　・　操　作　方　法　］ Ｐ０：　逆　計　算　［　放　射　逆　計　算　］ 　　　２点間の距離と方向角を放射状に計算し表示する。 　　　Ｐ４：杭打計算との連続計算も可能である。 　　　　　　　　　　　　　　　・（２−１） 　　　　　　　　　　　　　　　　　　　　・（２−２） 　　　　　　（１）・ 　　　　　・・・・・・　変　　数　　表　・・・・・・ 　　　　　Ｍ 81：Ｘ１座標　　　　　Ｍ 83：Ｘ２座標 　　　　　Ｍ 82：Ｙ１座標　　　　　Ｍ 84：Ｙ２座標 　　　　　Ｍ 00：水平距離 Ｍ F：方向角 　　　　　・・・・・・　　例　　　題　　・・・・・・ 　　　　　Ｘ１＝１００．０００　Ｙ１＝１００．０００ 　　　　　Ｘ２＝３５０．０００　Ｙ２＝２５０．０００　（２−１） 　　　　　Ｘ２＝２２６．８２４　Ｙ２＝４０９．３３２　（２−２） ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ０ 　　２　ＲＥＶＥＲＳＥ　　　　　　 ＥＸＥ 　　３　Ｘ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　（２−１）　３５０　ＥＸＥ　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　（２−１）　２５０　ＥＸＥ　　　　　Ｙ２座標の入力 　　７　ＡＺ　３０゜５７’４９．５２”ＥＸＥ　　　　　方向角　の表示 　　８　Ｌ　２９１．５４８　　ＥＸＥ　　　　　　　　　水平距離の表示 　　９　Ｘ２　　　（２−２）　２２６．８２４　ＥＸＥ　Ｘ２の入力に戻る 　１０　Ｙ２　　　（２−２）　４０９．３３２　ＥＸＥ　Ｙ２座標の入力 　１１　ＡＺ　６７゜４２’２４．１５”ＥＸＥ　　　　　方向角　の表示 　１２　Ｌ　３３４．３２１　　ＥＸＥ　　　　　　　　　水平距離の表示 　１３　Ｘ２　　　　　　　　　　　　　　　　　　　　　Ｘ２の入力に戻る Ｐ１：　放　射　トラバース　計　算　・　オープントラバース　計　算 　　　　２既知点からの内角と距離より、未知点の座標を放射状に計算し表示す 　　　る。 　　　内角に　−（マイナス）符号を付けて入力した場合は、オープントラバー 　　　スとして計算することも可能となっている。 　　　又、距離に　−（マイナス）符号を付けて入力すると、斜距離入力と判断 　　　し鉛直角（バーチカル）の入力モードになり、鉛直角の入力が可能となっ 　　　ている。 　　　鉛直角には、水平が　０゜と９０゜の２種類が有り、 　　　　　　　＋（プラス　）　入力　・・・・・　水平　９０゜　 　　　　　　　−（マイナス）　入力　・・・・・　水平　　０゜　 　　　に対応している。 　　　　・・・・・　変　　数　　表　・・・・・　　・・・　変数名　・・・ 　　　Ｍ 81：Ｘ１座標　　　Ｍ F：方向角　　　　　ＨＡ　　　内　角 　　　Ｍ 82：Ｙ１座標　　　Ｍ 97：内　角　　　　　Ｌ　　　　距　離 　　　Ｍ 83：Ｘ２座標　　　Ｍ 8F：Ｘ　座標　　　　Ｖ　　　　鉛直角 　　　Ｍ 84：Ｙ２座標　　　Ｍ 9F：Ｙ　座標 　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　Ｘ１＝１００．０００　　　Ｙ１＝１００．０００ 　　　Ｘ２＝３５０．０００　　　Ｙ２＝２５０．０００ 　　　ＨＡ＝３６゜４４’３５”　Ｌ　＝３３４．３２２ ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１ 　　２　ＴＲＡＶＥＲＳＥ　　　ＥＸＥ　　　　　　　　　タイトルの表示 　　３　Ｘ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　　　　　　　３５０　ＥＸＥ　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　　　　　　　２５０　ＥＸＥ　　　　　Ｙ２座標の入力 　　７　ＡＺ　３０゜５７’４９．５２”ＥＸＥ　　　　　基準点方向角の表示 　　８　Ｌ　２９１．５４８　　ＥＸＥ　　　　　　　　　基準点間距離の表示 　　９　ＨＡ　　　　　　　　　３６．４４３５　ＥＸＥ　内角の入力 　１０　Ｌ　　　　　　　　　　３３４．３２２　ＥＸＥ　距離の入力　　　 　１１　ＡＺ　６７゜４２’２４．５２”ＥＸＥ　　　　　方向角の表示 　１２　Ｘ　２２６．８２４　　ＥＸＥ　　　　　　　　　Ｘ座標の表示 　１３　Ｙ　４０９．３３３　　ＥＸＥ　　　　　　　　　Ｙ座標の表示 　１４　ＨＡ　　　　　　　　　　　　　　　　　　　　　内角の入力に戻る Ｐ２：　中　間　点　計　算　・　巾　杭　計　算　 　　　　路線測量などの場合、２既知点間の直線上に点を設置する機会も多く、 　　　放射トラバース計算により簡単に求められるが、計算をより簡素化して計 　　　算ミスなどを防ぐ意味で別プログラムとした。 　　　又、巾杭座標の計算も可能であり、続けて計算できる。 　　　　　（−）　・・・　左側　　　　（＋）　・・・　右側 　　　繰り返し計算も可能である。 　　　斜距離入力はできず、すべて水平距離とみなす。 　　　又、巾杭計算で表示される巾杭の方向角は左側の巾杭を計算した場合も、 　　　常に右側の方向角を表示するものとする。 　　　　・・・・・　変　　数　　表　・・・・・　　・・・　変数名　・・・ 　　　Ｍ　81：Ｘ１座標　　　Ｍ　95：方向角　　　　Ｌ　　　中間点距離 　　　Ｍ　82：Ｙ１座標　　　Ｍ　　： 　　　　−：＋　巾杭　距離 　　　Ｍ　83：Ｘ２座標　　　Ｍ　8F：Ｘ　座標 　　　Ｍ　84：Ｙ２座標　　　Ｍ　9F：Ｙ　座標 　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　Ｘ１＝１００．０００　　　Ｙ１＝１００．０００ 　　　Ｘ２＝３５０．０００　　　Ｙ２＝２５０．０００ 　　　Ｌ　＝１６７．１６０　　−：＋＝　１０．０００ ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ２ 　　２　ＩＮＴＥＲ　ＰＯＩＮＴ　　　　ＥＸＥ　　　　　タイトルの表示 　　３　Ｘ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　　　　　　　３５０　ＥＸＥ　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　　　　　　　２５０　ＥＸＥ　　　　　Ｙ２座標の入力 　　７　ＡＺ　３０゜５７’４９．５２”ＥＸＥ　　　　　基準点方向角の表示 　　８　Ｌ　２９１．５４８　　ＥＸＥ　　　　　　　　　基準点間距離の表示 　　９　Ｌ　　　　　　　　　　１６７．１６０　ＥＸＥ　中間点距離の入力 　１０　ＡＺ　３０゜５７’４９．５２”ＥＸＥ　　　　　中間点方向角の表示 　１１　Ｘ　２４３．３３９　　ＥＸＥ　　　　　　　　　中間点Ｘ座標の表示 　１２　Ｙ　１８６．００３　　ＥＸＥ　　　　　　　　　中間点Ｙ座標の表示 　１３　−：＋　　　　　　　　１０　　ＥＸＥ　　　　　巾杭距離の入力 　１４　ＡＺ　１２０゜５７’４９．５”ＥＸＥ　　　　　巾杭方向角の表示 　１５　Ｘ　２３８．１９４　　ＥＸＥ　　　　　　　　　巾杭Ｘ座標の表示 　１６　Ｙ　１９４．５７８　　ＥＸＥ　　　　　　　　　巾杭Ｙ座標の表示 　１７　−：＋　　　　　　　　　　　　　　　　　　　　巾杭距離の入力に戻る Ｐ３：　４　点　交　点　計　算 　　　　いうまでもなく、４点既知の交点計算。　 　　　再計算が可能で、入力ミスの所まで空打ちエントリーして再入力・再計算 　　　ができる。 　　　又、再実行計算も可能で、ＰＯＷＥＲ　ＯＦＦ・ＰＯＷＥＲ　ＯＮの後再 　　　度プログラムをスタートした時も、空打ちにより再入力・再計算ができる 　　　。 　　　　　　　　　　　　　　　　　　　　　・（２） 　　　　　　　（３）・ 　　　　　　　　（１）・　　　　　　　　・（４） 　　　　　・・・・・・　変　　数　　表　・・・・・・ 　　　　　Ｍ　81：Ｘ１座標　　　　　Ｍ　85：Ｘ３座標 　　　　　Ｍ　82：Ｙ１座標　　　　　Ｍ　86：Ｙ３座標 　　　　　Ｍ　83：Ｘ２座標　　　　　Ｍ　87：Ｘ４座標 　　　　　Ｍ　84：Ｙ２座標　　　　　Ｍ　88：Ｙ４座標 　　　　　Ｍ　8F：Ｘ　座標　　　　　Ｍ　9F：Ｙ　座標 　　　　　・・・・・・　　例　　　題　　・・・・・・ 　　　　　Ｘ１＝　　４．０００　Ｙ１＝　　５．０００ 　　　　　Ｘ２＝　１１．０００　Ｙ２＝　１２．０００ 　　　　　Ｘ３＝　　７．０００　Ｙ３＝　　４．０００ 　　　　　Ｘ４＝　　６．０００　Ｙ４＝　１２．０００ ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ３ 　　２　４Ｘ　　　　　　　　　ＥＸＥ　　　　　　　　　　タイトルの表示 　　３　Ｘ１　　　　　　　　　４　　　ＥＸＥ　　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　５　　　ＥＸＥ　　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　　　　　　　１１　　ＥＸＥ　　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　　　　　　　１２　　ＥＸＥ　　　　　　Ｙ２座標の入力 　　７　Ｘ３　　　　　　　　　７　　　ＥＸＥ　　　　　　Ｘ３座標の入力 　　８　Ｙ３　　　　　　　　　４　　　ＥＸＥ　　　　　　Ｙ３座標の入力 　　９　Ｘ４　　　　　　　　　６　　　ＥＸＥ　　　　　　Ｘ４座標の入力 　１０　Ｙ４　　　　　　　　　１２　　ＥＸＥ　　　　　　Ｙ４座標の入力 　１１　Ｘ　６．５５６　　　　ＥＸＥ　　　　　　　　　　交点Ｘ座標の表示 　１２　Ｙ　７．５５６　　　　ＥＸＥ　　　　　　　　　　交点Ｙ座標の表示 　１３　Ｘ１　　　　　　　　　　　　　　　　　　　　　　Ｘ１の入力に戻る Ｐ４：　杭　打　計　算　・　傾　斜　補　正　計　算 　　　　現地に測量杭・境界杭などの座標復元を行なう場合、仮杭位置から求め 　　　る本杭位置までの残距離を，計算し表示する。 　　　又、Ｌ０に０（ゼロ）を代入した場合、単なる傾斜補正計算として利用で 　　　きる。 　　　結果が　ｄ＝＋（プラス　）の時：　仮杭より　ｄ　遠くの位置 　　　　　　　ｄ＝−（マイナス）の時：　仮杭より　ｄ　近くの位置 　　　が、求める地点である。 　　　繰り返し計算、再実行計算が可能である。 　　　鉛直角は、 　　　　　　　＋（プラス　）　入力　・・・・・　水平　９０゜ 　　　　　　　−（マイナス）　入力　・・・・・　水平　　０゜ 　　　に対応している。 　　　　　　　　　　　　　　　 Ｌ　　　　　　　　　　・ 　　　　　　　　　　　　　　　　 　　　　　　　　 ・ 　　　　　　器械点・・・・・・・・・・・・・・・・・・・・仮　杭 　　　　　　　　　　　　　　Ｌ０　　　　本　杭　　- ｄ 　　　・・・・・・・・・　変　　数　　表　・・・・・・・・・ 　　　Ｍ　00：基準距離［Ｌ０］　　　Ｍ　90：斜距離　［Ｓ　］ 　　　Ｍ　94：水平距離　　　　　　　Ｍ　5F：鉛直角　［Ｖ　］ 　　　　　　　　・・・・　　例　　　題　　・・・・ 　　　　　　　　Ｌ０＝１００．０００　　　基準距離 　　　　　　　　Ｖ　＝８８゜４９’５５”　鉛直角 　　　　　　　　Ｓ　＝１００．１１１　　　斜距離 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ４ 　　２　Ｓ−＞Ｌ　　　　　　　ＥＸＥ　　　　　　　　　タイトルの表示 　　３　Ｌ０　　　　　　　　　１００　ＥＸＥ　　　　　基準水平距離の入力 　　５　Ｖ　　　　　　　　　　８８．４９５５　ＥＸＥ　鉛直角の入力 　　４　Ｓ　　　　　　　　　　１００．１１１　ＥＸＥ　斜距離の入力　　 　　６　Ｌ　１００．０９０　　ＥＸＥ　　　　　　　　　水平距離の表示 　　７　ｄ　−０．０９０　　　ＥＸＥ　　　　　　　　　残水平距離の表示 　　８　Ｖ　　　　　　　　　　　　　　　　　　　　　　鉛直角の入力に戻る Ｐ５：　内　角　計　算 　　　　２既知点により現地に測量杭等を設置する場合に、２既知点及び設置点 　　　のＸ・Ｙ座標を入力することにより既知点からの内角と距離を計算し表示 　　　する。 　　　又、Ｐ４：杭打計算との連続計算が可能である。 　　　　　　　　　　　　　　　・（２） 　　　　　　　　　　　　　　　　　　　　・（３） 　　　　　　（１）　・ 　　　　・・・・・・　変　　数　　表　・・・・・・　 　　　 Ｍ　81：Ｘ１座標　　　　　Ｍ　85：Ｘ３座標 　　 　Ｍ　82：Ｙ１座標　　　　　Ｍ　86：Ｙ３座標 　　 　Ｍ　83：Ｘ２座標　　　　　Ｍ　 F：内　角 　　 　Ｍ　84：Ｙ２座標　　　 Ｍ　00：水平距離 　　 　・・・・・・　　例　　　題　　・・・・・・ 　　　 Ｘ１＝１００．０００　Ｙ１＝１００．０００ 　　　 Ｘ２＝３５０．０００　Ｙ２＝２５０．０００ 　　 　Ｘ３＝２２６．８２４　Ｙ３＝４０９．３３２ ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　 　SHIFT Ｐ５ 　　２　ＡＮＧＬＥ　　　　　　ＥＸＥ　　　　　　　　　タイトルの表示 　　３　Ｘ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　　　　　　　３５０　ＥＸＥ　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　　　　　　　２５０　ＥＸＥ　　　　　Ｙ２座標の入力 　　７　ＡＺ　３０゜５７’４９．５２”ＥＸＥ　　　　　基準点方向角の表示 　　８　Ｌ　２９１．５４８　　ＥＸＥ　　　　　　　　　基準点間距離の表示 　　９　Ｘ３　　　　　　　　　２２６．８２４　ＥＸＥ　Ｘ３座標の入力 　１０　Ｙ３　　　　　　　　　４０９．３３２　ＥＸＥ　Ｙ３座標の入力 　１１　ＡＮＧ　３６゜４４’３４．６２”　　　ＥＸＥ　内角の表示 　１２　Ｌ　３３４．３２１　　ＥＸＥ　　　　　　　　　水平距離の表示 　１３　Ｘ３　　　　　　　　　　　　　　　　　　　　　Ｘ３の入力に戻る Ｐ６：　間 接 水 準 1 ( S,V )［ 標高計算 ・ 座標標高計算 ］ 　　　　斜距離と鉛直角から、水平距離と標高を放射状に計算し表示する。 　　　ＭＨ（観測高）を　−（マイナス）入力した場合、その点をターニング点 　　　として、以後の計算はその点より計算される。 　　　又、ＩＨ（器械高）を　−（マイナス）入力すれば、座標も同時に計算し 　　　表示することも可能となる。 　　　入力距離は常に斜距離とみなす。 　　　繰り返し計算、再実行計算が可能である。 　　　鉛直角は、 　　　　　　　＋（プラス　）　入力　・・・・・　水平　９０゜ 　　　　　　　−（マイナス）　入力　・・・・・　水平　　０゜ 　　　に対応している。 　　　・・・・・・・・・　変　　数　　表　・・・・・・・・・ 　　　Ｍ　91：基準標高［ＥＬ］　　　Ｍ　96：地盤高 ［ＧＨ］ 　　　Ｍ　94：水平距離　　　　　　　Ｍ　92：器械高　［ＩＨ］ 　　　Ｍ　5F：鉛直角　［Ｖ　］　　　Ｍ　93：目標高　［ＭＨ］ 　　　Ｍ　90：斜距離　［Ｌ　］ 　　　　　　・・・・・・　　例　　　題　　・・・・・・ 　　　　　　ＥＬ＝５００．０００　Ｓ　＝１００．０００ 　　　　　　ＩＨ＝　　１．５００　Ｖ　＝８７゜３９’４５” 　　　　　　ＭＨ＝　　０．２５０　 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　SHIFT Ｐ６ 　　２　HIGH 1 ( S,V ) ＥＸＥ　　　　　タイトルの表示 　　３　ＥＬ　　　　　　　　　５００　ＥＸＥ　　　　　基準標高の入力 　　４　ＩＨ　　　　　　　　　１．５００　ＥＸＥ　　　器械高の入力 　　５　ＭＨ　　　　　　　　　０．２５０　ＥＸＥ　　　目標高の入力 　　６　Ｓ　　　　　　　　　　１００　ＥＸＥ　　　　　斜距離の入力 　　７　Ｖ　　　　　　　　　　８７．３９４５　ＥＸＥ　鉛直角の入力 　　８　Ｌ　９９．９１７　　　ＥＸＥ　　　　　　　　　水平距離の表示 　　９　ＧＨ　５０５．３２９　ＥＸＥ　　　　　　　　　地盤高の表示 　１０　ＭＨ　　　　　　　　　　　　　　　　　　　　　目標高の入力に戻る Ｐ７：　単　曲　線　中　間　点　計　算　　 　　　　単曲線上の２既知点より単曲線上の中間点の座標をもとめる。　　　 　　　２既知点を入力後、半径（Ｒ）を入力すると中心点の座標が出力され、さ 　　　らに曲線長（ＣＬ）を入力すると単曲線上の点が求まる。 　　　この場合、半径（Ｒ）は 　　　　　（−）　・・・　左側　　　　（＋）　・・・　右側 　　　又、曲線長（ＣＬ）は　　 　　　　　（−）　・・・　逆方向　　　（＋）　・・・　順方向 　　　として入力すること。 　　　斜距離入力はできず、すべて水平距離とみなす。 　　　　　・・・・・　変　　数　　表　・・・・・・・・　 　　　　　Ｍ　81：Ｘ１座標　　　Ｍ　97：半径　［Ｒ　］　 　　　　　Ｍ　82：Ｙ１座標　　　Ｍ　98：曲線長［ＣＬ］　　 　　　　　Ｍ　83：Ｘ２座標　　　Ｍ　8F：Ｘ　座標 　　　　　Ｍ　84：Ｙ２座標　　　Ｍ　9F：Ｙ　座標 　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　Ｘ１＝１００．０００　　　Ｙ１＝　　０．０００ 　　　Ｘ２＝　　０．０００　　　Ｙ２＝１００．０００ 　　−Ｒ＋＝１００．０００　　　ＣＬ＝　１０．０００ ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　SHIFT Ｐ７ 　　２　ＳＩＭＰＬＥ　ＣＵＲＶＥ　　　ＥＸＥ　　　　　タイトルの表示 　　３　Ｘ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　　　０　ＥＸＥ　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　　　　　　　　　０　ＥＸＥ　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　　　　　　　１００　ＥＸＥ　　　　　Ｙ２座標の入力 　　７　ＡＺ　１３５゜０’０”　　　　ＥＸＥ　　　　　基準点方向角の表示 　　８　Ｌ　１４１．４２１　　ＥＸＥ　　　　　　　　　基準点間距離の表示 　　９　−Ｒ＋　　　　　　　　１００．０００　ＥＸＥ　単曲線半径の入力 　１０　Ｘ　０．０００　　　　ＥＸＥ　　　　　　　　　中心点Ｘ座標の表示 　１１　Ｙ　０．０００　　　　ＥＸＥ　　　　　　　　　中心点Ｙ座標の表示 　１２　ＣＬ　　　　　　　　　１０　　ＥＸＥ　　　　　曲線長の入力 　１３　Ｘ　９９．５００　　　ＥＸＥ　　　　　　　　　中間点Ｘ座標の表示 　１４　Ｙ　９．９８３　　　　ＥＸＥ　　　　　　　　　中間点Ｙ座標の表示 　１５　ＣＬ　　　　　　　　　　　　　　　　　　　　　曲線長の入力に戻る Ｐ８：　２　内　角　交　点　計　算　　 　　　　２既知点の内角（Ａ，Ｂ）による交点計算。 　　　基準点１側の内角を　Ａ　とする。 　　　基準点２側の内角を　Ｂ　とする。 　　　又、基準点１から基準点２に向って右側に交点が有るものとする。 　　　　　　　　　　　　　　　（２）・ 　　　　　　　　　　　　　　　　　 ・＼ 　　　　　　　　　　　　　　　　　　・Ｂ＼ ・ ・求点 　　　　　　　　　　　　　　　　　　・Ａ／ ・／ 　　　　　　　　　　　　　　　（１）・ 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　81：Ｘ１座標　　　Ｍ　96：内角　［Ａ］　 　　　　　　　　Ｍ　82：Ｙ１座標　　　Ｍ　97：内角　［Ｂ］　　 　　　　　　　　Ｍ　83：Ｘ２座標　　　Ｍ　8F：Ｘ　座標 　　　　　　　　Ｍ　84：Ｙ２座標　　　Ｍ　9F：Ｙ　座標 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　Ｘ１＝１００．０００　　　Ｙ１＝１００．０００ 　　　　　　Ｘ２＝３５０．０００　　　Ｙ２＝２５０．０００ 　　　　　　Ａ　＝３６゜４４’３５”　Ｂ　＝８３゜１５’２５” ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　SHIFT Ｐ８ 　　２　２　ＡＮＧＬＥ　　　　ＥＸＥ　　　　　　　　　タイトルの表示 　　３　Ｘ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　　　　　　　３５０　ＥＸＥ　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　　　　　　　２５０　ＥＸＥ　　　　　Ｙ２座標の入力 　　７　ＡＺ　３０゜５７’４９．５２”ＥＸＥ　　　　　基準点方向角の表示 　　８　Ｌ　２９１．５４８　　ＥＸＥ　　　　　　　　　基準点間距離の表示 　　９　Ａ　　　　　　　　　　３６．４４３５　ＥＸＥ　内角（Ａ）の入力 　１０　Ｂ　　　　　　　　　　８３．１５２５　ＥＸＥ　内角（Ｂ）の入力 　１１　ＡＺ　６７゜４２’２４．５２”ＥＸＥ　　　　　方向角の表示 　１２　Ｘ　２２６．８２４　　ＥＸＥ　　　　　　　　　交点Ｘ座標の表示 　１３　Ｙ　４０９．３３３　　ＥＸＥ　　　　　　　　　交点Ｙ座標の表示 　１４　Ａ　　　　　　　　　　　　　　　　　　　　　 内角(Ａ)の入力に戻る Ｐ９：　２　円　交　点　計　算　　 　　　　２既知点からの半径（ａ，ｂ）による交点計算。 　　　基準点１側の半径を　ａ　とする。 　　　基準点２側の半径を　ｂ　とする。 　　　又、基準点１から基準点２に向って右側に交点が有るものとする。 　　　　　　　　　　　　　　　（２）・ 　　　　　　　　　　　　　　　　　　・＼ｂ 　　　　　　　　　　　　　　　　　　・　＼ ・ ・求点 　　　　　　　　　　　　　　　　　　・ ／ ・／ａ 　　　　　　　　　　　　　　　（１）・ 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　81：Ｘ１座標　　　Ｍ　98：半径　［ａ］　 　　　　　　　　Ｍ　82：Ｙ１座標　　　Ｍ　99：半径　［ｂ］　　 　　　　　　　　Ｍ　83：Ｘ２座標　　　Ｍ　8F：Ｘ　座標 　　　　　　　　Ｍ　84：Ｙ２座標　　　Ｍ　9F：Ｙ　座標 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　Ｘ１＝１００．０００　　　Ｙ１＝１００．０００ 　　　　　　Ｘ２＝３５０．０００　　　Ｙ２＝２５０．０００ 　　　　　　　ａ＝３３４．３２２　　　　ｂ＝２０１．３９３ ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　SHIFT Ｐ９ 　　２　２　ＬＥＮＧＴＨ　　　ＥＸＥ　　　　　　　　　タイトルの表示 　　３　Ｘ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　　　　　　　３５０　ＥＸＥ　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　　　　　　　２５０　ＥＸＥ　　　　　Ｙ２座標の入力 　　７　ＡＺ　３０゜５７’４９．５２”ＥＸＥ　　　　　基準点方向角の表示 　　８　Ｌ　２９１．５４８　　ＥＸＥ　　　　　　　　　基準点間距離の表示 　　９　ａ　　　　　　　　　　３３４．３２２　ＥＸＥ　半径（ａ）の入力 　１０　ｂ　　　　　　　　　　２０１．３９３　ＥＸＥ　半径（ｂ）の入力 　１１　ＡＺ　６７゜４２’２４．０６”　　　　ＥＸＥ　方向角の表示 　１２　Ｘ　２２６．８２４　　ＥＸＥ　　　　　　　　　交点Ｘ座標の表示 　１３　Ｙ　４０９．３３３　　ＥＸＥ　　　　　　　　　交点Ｙ座標の表示 　１４　ａ　　　　　　　　　　　　　　　　　　　　　 半径(ａ)の入力に戻る Ｐ１０：　垂　線　長　計　算 　　　　２既知点と１既知点との垂線長計算。 　　　ーｈ＋：　基準線１から２へ向かい右側を＋、左側をーとする。 　　　　Ｌ　：　基準線１から２への距離をＬとし＋、逆方向をーとする。 　　　　　　　　　　　　　　　（２）・ 　　　　　　　　　　　　　　　　　　・ + h 　　　　　　　　　　　　　　　　　　・・・・・・（３） ・ 　　　　　　　　　　　　　　　　+ L ・ ・ 　　　　　　　　　　　　　　　（１）・ 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・ 　　　　　　　　Ｍ　81：Ｘ１座標　　　Ｍ　85：Ｘ３座標 　　　　　　　　Ｍ　82：Ｙ１座標　　　Ｍ　86：Ｙ３座標 　　　　　　　　Ｍ　83：Ｘ２座標　　　Ｍ　3F：ーｈ＋ 　　　　　　　　Ｍ　84：Ｙ２座標　　　Ｍ　4F：Ｌ 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　　Ｘ１＝１００．０００　Ｙ１＝１００．０００ 　　　　　　　Ｘ２＝３５０．０００　Ｙ２＝２５０．０００ 　　　　　　　Ｘ３＝２２６．８２４　Ｙ３＝４０９．３３２ ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１０ 　　２　ＰＥＲＰＥＮＤＩＣＵＬＡＲ　　ＥＸＥ　　　　　タイトルの表示 　　３　Ｘ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｘ１座標の入力 　　４　Ｙ１　　　　　　　　　１００　ＥＸＥ　　　　　Ｙ１座標の入力 　　５　Ｘ２　　　　　　　　　３５０　ＥＸＥ　　　　　Ｘ２座標の入力 　　６　Ｙ２　　　　　　　　　２５０　ＥＸＥ　　　　　Ｙ２座標の入力 　　７　ＡＺ　３０゜５７’４９．５２”ＥＸＥ　　　　　基準点方向角の表示 　　８　Ｌ　２９１．５４８　　ＥＸＥ　　　　　　　　　基準点間距離の表示 　　９　Ｘ３　　　　　　　　　２２６．８２４　ＥＸＥ　Ｘ３座標の入力 　１０　Ｙ３　　　　　　　　　４０９．３３２　ＥＸＥ　Ｙ３座標の入力 　１１　ーｈ＋　　　　　　　　２００．０００　ＥＸＥ　高さの表示 　１２　Ｌ　　　　　　　　　　２６７．９０１　ＥＸＥ　距離の表示 　１４　Ｘ３　　　　　　　　　　　　　　　　　　　　　Ｘ３座標入力に戻る Ｐ１１：　鉛　直　角　計　算　( 観測手簿 ) 　　　　鉛直角の正及び反の補正計算。 　　　鉛直角の正（Ｖｒ）、反（Ｖｌ）を入力すると補正計算される。 　　　繰り返し計算、再計算が可能である。 　　　但し、鉛直角が水平９０゜の場合にのみ使用可能である。 　　　　　　　　　　　・・　変　　数　　表　・・　 　　　　　　　　　　　Ｍ　96：鉛直角　正［Ｖｒ］　　 　　　　　　　　　　　Ｍ　97：鉛直角　反［Ｖｌ］　　 　　　　　　　　　　　・・　　例　　　題　　・・ 　　　　　　　　　　　Ｖｒ＝　９４゜１３’５３”　 　　　　　　　　　　　Ｖｌ＝２６５゜４６’４９”　 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１１ 　　２　ＶＥＲＴＩＣＡＬ　　　ＥＸＥ　　　　　　　　　タイトルの表示 　　３　Ｖｒ　　　　　　　　　９４．１３５３　ＥＸＥ　正鉛直角の入力 　　４　Ｖｌ　　　　　　　　２６５．４６４９　ＥＸＥ　反鉛直角の入力 　　５　３６０゜０’４２”　　ＥＸＥ　　　　　　　　　正・反合計の表示 　　６　　　０゜０’４２”　　ＥＸＥ　　　　　　　　　誤差の表示 　　７　１８８゜２７’４”　　ＥＸＥ　　　　　　　　　Ｖｒ−Ｖｌの表示 　　８　　９４゜１３’３２”　ＥＸＥ　　　　　　　　　Ｚの表示 　　９　　−４゜１３’３２”　ＥＸＥ　　　　　　　　　αの表示 　１０　Ｖｒ　　　　　　　　　　　　　　　　　　　　　正鉛直角の入力に戻る Ｐ１２：　気圧・温度　補　正　計　算　( 簡易計算 ) WILD 　　　　光波測距儀で測った距離の気圧補正と温度補正。 基準標高 ----- 0 m 基準気温 ----- 10ﾟC 　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　91：GH 地盤高　 　Ｍ　5F：V 鉛直角 　　　　　　　　Ｍ　92：IH 器械高 　　Ｍ　81：L 1 距離 　　　　　　　　Ｍ　93：FH 目標高 　　Ｍ　82：L 2 距離 　　　　　　　　Ｍ　94：Tem 気温 Ｍ　83：L 3 距離 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　 　GH = 500.000 Tem= 20ﾟC 　　　 FH = 0.250 L 1= 1000.001 　　　 V = + 1ﾟ14'25" L 2= 1000.002 IH = 1.500 L 3= 1000.003 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１２ 　　２　WILD ATMOSPHER ＥＸＥ　　　　　タイトルの表示 　　３　GH 　　　　　　　　　500 ＥＸＥ　　　　　地盤高の入力 　　４　IH 　　　　　　　　 1.5 ＥＸＥ　　　　　器械高の入力 　　５　FH 　　　　　　　　　0.25 　ＥＸＥ　　　　　目標高の入力 　　６　Tem 　　　　　　　　　20 　ＥＸＥ　　　　　気温の入力 　　７　V 1.1425 ＥＸＥ　　　　　鉛直角の入力 　　８　L 1 1000.001ＥＸＥ　　　　　距離の入力 　　９　L 2 1000.002ＥＸＥ　　　　　距離の入力 １０ L 3 1000.003ＥＸＥ　　　　　距離の入力 　１１　Σ　　　　　　　　　　3000.006ＥＸＥ 合計距離の表示 　１２　AL 1000.0020 ＥＸＥ　 平均距離の表示 　１３　* 2.39 ＥＸＥ 係数の表示 　１４　d 　 0.0239 ＥＸＥ 補正量の表示 　１５　D0 1000.0259 ＥＸＥ　　　　補正斜距離の表示 １６　GH　　　　　　　　　　　　　　　　　　　　　　地盤高の入力に戻る Ｐ１３：　投影・縮尺　補　正　計　算 ( 観測手簿 ) 　　　　 距離の投影補正と縮尺補正。 地球の半径 --- 6377397.155 m 縮尺係数 --- 0.9999 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　90：D0 斜距離　 　Ｍ　91：GH 地盤高 　　　　　　　　Ｍ　87：V1 鉛直角 　　Ｍ　92：IH 器械高 　　　　　　　　Ｍ　88：V2 鉛直角 　　Ｍ　93：FH 目標高 　　　　　　　　Ｍ　5F：V 鉛直角 Ｍ　98： 地球の半径 　　　　　　　　 Ｍ　99： 縮尺係数 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　　　　D0 = 1000.0259 IH = 1.500 V1 = + 4ﾟ13'30" FH = 0.250 　　 　V2 = - 4ﾟ13'34" K = 0.9999 GH = 500.000 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１３ 　　２　DISTANCE ＥＸＥ　　　　　タイトルの表示 　　３　D0 　　　　　　　　　1000.0259 ＥＸＥ　　　　斜距離の入力 　　４　V1 　　　　　　　　 4.1330 ＥＸＥ　　　　　鉛直角の入力 　　５　V2 　　　　　　　　 -4.1334　ＥＸＥ　　　　　鉛直角の入力 　　６　V 　　　　　　　　　4ﾟ13'32" ＥＸＥ 　　　　平均鉛直角の表示 　　７　GH 　　　　　　　 　500 ＥＸＥ　　　　　地盤高の入力 　　８　IH 　　　　　　　 　 1.5 ＥＸＥ　　　　　器械高の入力 　　９　FH 　　　　　　　　　 0.25　ＥＸＥ　　　　　目標高の入力 　１０　dH 　　　　　　　　 　73.685 ＥＸＥ　　　　　標高差の表示 　１１　EL 574.935 ＥＸＥ　　　　　標高の表示 　１２　AH 537.468 ＥＸＥ　　　　　平均標高の表示 　１３　D 997.3075 ＥＸＥ 　　　　傾斜補正の表示 １４ d -0.0841 ＥＸＥ　　　　 投影補正の表示 　１５　S 　　　　　　　　　　997.2234 ＥＸＥ 球面距離の表示 　１６　K 0.9999 ＥＸＥ　 縮尺係数の入力 　１７　dK -0.0997 ＥＸＥ 縮尺補正の表示 　１８　L 997.1237 ＥＸＥ 平面距離の表示 １９　D0　　　　　　　　　　　　　　　　　　　　　　斜距離の入力に戻る Ｐ１４：　ｽﾀｼﾞｱ 　計　算 1 ［ 標高計算 ］ ｽﾀｼﾞｱ 定数 ---- 100 ｽﾀｼﾞｱ 加定数 -- 0 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　91：EL 標高　　 　Ｍ　87：S1 下端(上端) ｽﾀｼﾞｱ 　　　　　　　　Ｍ　92：IH 器械高 　　Ｍ　88：S2 上端(下端) ｽﾀｼﾞｱ 　　　　　　　　Ｍ　93：FH 目標高 　　Ｍ　94：L 距離 　　　　　　　　Ｍ　5F：V 鉛直角 Ｍ　3F：dH 標高差 　　　　　　　　Ｍ　　： Ｍ　96：GH 地盤高 Ｍ　98： ｽﾀｼﾞｱ 定数 Ｍ　99： ｽﾀｼﾞｱ 加定数 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　　　　EL = 500.000 V = 89ﾟ14'25" IH = 1.500 S1 = 1.230 　　 　FH = 2.895 S2 = 4.560 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１４ 　　２　STADIA 1 ＥＸＥ　　　　　タイトルの表示 　　３　EL 　　　　　　　　　500.000 ＥＸＥ 　　　　地盤高の入力 　　４　IH 　　　　　　　 　 1.5 ＥＸＥ　　　　　器械高の入力 　　５　FH 　　　　　　　　　 2.895 ＥＸＥ　　　　　目標高の入力 　　６　V 　　　　　　　　　89.1425 ＥＸＥ 　　　　鉛直角の入力 　　７　S1 　　　　　　　 　 1.230 ＥＸＥ　　　　　下端 ｽﾀｼﾞｱ の入力 　　８　S2 　　　　　　　 　 4.560 ＥＸＥ　　　　　上端 ｽﾀｼﾞｱ の入力 　　９　L 　　　　　　　　　332.94　ＥＸＥ　　　　　距離の表示 　１０　dH 　　　　　　　　 　 3.02 ＥＸＥ　　　　　標高差の表示 　１１　GH 503.02 ＥＸＥ　　　　　地盤高の表示 １２　FH　　　　　　　　　　　　　　　　　　　　　　目標高の入力に戻る Ｐ１５：　ｽﾀｼﾞｱ 　計　算 2 ［ 座標標高計算 ］ ｽﾀｼﾞｱ 定数 ---- 100 ｽﾀｼﾞｱ 加定数 -- 0 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　91：EL 標高　　 　Ｍ　93：FH 目標高 　　　　　　　　Ｍ　92：IH 器械高 　　Ｍ　5F：V 鉛直角 　　　　　　　　Ｍ　81：X1 座標　　 　Ｍ　87：S1 下端(上端) ｽﾀｼﾞｱ 　　　　　　　　Ｍ　82：Y1 座標　 　　Ｍ　88：S2 上端(下端) ｽﾀｼﾞｱ 　　　　　　　　Ｍ　83：X2 座標　　 　Ｍ　94：L 距離 　　　　　　　　Ｍ　84：Y2 座標　 　　Ｍ　3F：dH 標高差 　　　　　　　　Ｍ　　： 　　 Ｍ　96：GH 地盤高 Ｍ　98： ｽﾀｼﾞｱ 定数 Ｍ　99： ｽﾀｼﾞｱ 加定数 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　　　　EL = 500.000 FH = 2.895 IH = 1.500 V = 89ﾟ14'25" X1 = 0.000 S1 = 1.230 　　 　Y1 = 0.000 S2 = 4.560 X2 = 100.000 HA = 90ﾟ0'0" Y2 = 100.000 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１５ 　　２　STADIA 2 ＥＸＥ　　　　　タイトルの表示 　　３　EL 　　　　　　　　　500.000 ＥＸＥ 　　　　地盤高の入力 　　４　IH 　　　　　　　 　 1.5 ＥＸＥ　　　　　器械高の入力 　　５　X1 　　　　　　　　　 0.000 ＥＸＥ　　　　　X1 座標の入力 　　６　Y1 　　　　　　　　　 0.000 ＥＸＥ　　　　　Y1 座標の入力 　　７　X2 　　　　　　　　　100.000 ＥＸＥ　　　　　X2 座標の入力 　　８　Y2 　　　　　　　　　100.000 ＥＸＥ　　　　　Y2 座標の入力 　　９　AZ 　　　　　　　　　45ﾟ0'0" ＥＸＥ　　　　　方向角の表示 　１０　L 　　　　　　　　　141.421 ＥＸＥ　　　　　距離の表示 　１１　FH 　　　　　　　　　 2.895 ＥＸＥ　　　　　目標高の入力 　１２　V 　　　　　　　　　89.1425 ＥＸＥ 　　　　鉛直角の入力 　１３　S1 　　　　　　　 　 1.230 ＥＸＥ　　　　　下端 ｽﾀｼﾞｱ の入力 　１４　S2 　　　　　　　 　 4.560 ＥＸＥ　　　　　上端 ｽﾀｼﾞｱ の入力 　１５　L 　　　　　　　　　332.94　ＥＸＥ　　　　　距離の表示 　１６　dH 　　　　　　　　 　 3.02 ＥＸＥ　　　　　標高差の表示 　１７　GH 503.02 ＥＸＥ　　　　　地盤高の表示 　１８　HA 90.0000 ＥＸＥ　　　　　内角の入力 　１９　AZ 　　　　　　　　 135ﾟ0'0" ＥＸＥ　　　　　方向角の表示 　２０　X 　　　　　　　　 -235.43 ＥＸＥ　　　　　X 座標の表示 　２１　Y 　　　　　　　　　 235.43 ＥＸＥ　　　　　Y 座標の表示 ２２　FH　　　　　　　　　　　　　　　　　　　　　　目標高の入力に戻る Ｐ１６：　ｽﾀｼﾞｱ 　計　算 3 ［ REVERSE ］ ｽﾀｼﾞｱ 定数 ---- 100 ｽﾀｼﾞｱ 加定数 -- 0 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　91：*EL 標高　 　Ｍ　87：S1 下端(上端) ｽﾀｼﾞｱ 　　　　　　　　Ｍ　92：*IH 器械高 　Ｍ　88：S2 上端(下端) ｽﾀｼﾞｱ 　　　　　　　　Ｍ　93：*FH 目標高 　Ｍ　94：L 距離 　　　　　　　　Ｍ　5F：V 鉛直角 Ｍ　3F：dH 標高差 　　　　　　　　Ｍ　　： Ｍ　96：GH 地盤高 Ｍ　98： ｽﾀｼﾞｱ 定数 Ｍ　99： ｽﾀｼﾞｱ 加定数 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　　　 *EL = 503.020 V = 89ﾟ14'25" *IH = 1.500 S1 = 1.230 　　 *FH = 2.895 S2 = 4.560 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１６ 　　２　STADIA 3 ＥＸＥ　　　　　タイトルの表示 　　３　*EL 　　　　　　　　　503.020 ＥＸＥ 　　　　地盤高の入力 　　４　*IH 　　　　　　　 　 1.5 ＥＸＥ　　　　　器械高の入力 　　５　*FH 　　　　　　　　　 2.895 ＥＸＥ　　　　　目標高の入力 　　６　V 　　　　　　　　　89.1425 ＥＸＥ 　　　　鉛直角の入力 　　７　S1 　　　　　　　 　 1.230 ＥＸＥ　　　　　下端 ｽﾀｼﾞｱ の入力 　　８　S2 　　　　　　　 　 4.560 ＥＸＥ　　　　　上端 ｽﾀｼﾞｱ の入力 　　９　L 　　　　　　　　　332.94　ＥＸＥ　　　　　距離の表示 　１０　dH 　　　　　　　　 　-3.02 ＥＸＥ　　　　　標高差の表示 　１１　GH 500.00 ＥＸＥ　　　　　地盤高の表示 　１２　STADIA 3 ＥＸＥ　　　　　タイトルの表示に戻る 　　Ｐ１７：　間接水準 2 ( h,l )［ 標高計算 ・ 座標標高計算 ］ 　　　　標高差と水平距離から、標高を放射状に計算し表示する。 　　　ＭＨ（観測高）を　−（マイナス）入力した場合、その点をターニング点 　　　として、以後の計算はその点より計算される。 　　　又、ＩＨ（器械高）を　−（マイナス）入力すれば、座標も同時に計算し 　　　表示することも可能となる。 　　　繰り返し計算、再実行計算が可能である。 　　　・・・・・・・・・　変　　数　　表　・・・・・・・・・ 　　　Ｍ　91：EL 基準標高 　　　Ｍ　96：GH 地盤高 　　　Ｍ　92：IH 器械高 　　　　　　Ｍ　81：X1 座標 　　　Ｍ　93：MH 目標高 　　　Ｍ　82：Y1 座標 　　　Ｍ　1F：dh 観測高　　　 　　　Ｍ　83：X2 座標 Ｍ　2F：dL 水平距離 Ｍ　84：Y2 座標 　　　　　　・・・・・・　　例　　　題　　・・・・・・ 　　　　　　　　　EL = 500.000 X1 = 0.000 IH = 1.500 Y1 = 0.000 MH = 0.250　　　　　　X2 = 100.000 　　 　dh = 50.000 　　　　　Y2 = 100.000 dL = 100.000 　　　　 HA = 90ﾟ0'0" ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　 Ｐ１７ 　　２　HIGH 2 ( h,l )　　　　ＥＸＥ　　　　　　　　　タイトルの表示 　　３　EL 　　　　　　　　　500.000 　ＥＸＥ　　　基準標高の入力 　　４　IH　　　　　　　　　 1.500 　ＥＸＥ　　　器械高の入力 　　５　MH　　　　　　　　　 0.250 　ＥＸＥ　　　目標高の入力 　　６　dh　　　　　　　　　　 50.000 　ＥＸＥ　　　観測高の入力 　　７　GH 　 551.250　 ＥＸＥ　　　地盤高の表示 　１０　MH 　　　　　　　　　　　　　　　　　　　　　目標高の入力に戻る 　　Ｐ１８：　間接水準 3 ( S,V )［ REVERSE ］ 標高未知の点に ﾄﾗﾝｼｯﾄ を据えた場合に標高既知の点を測った時の 　　　標高計算。 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　91：*EL 標高　 　Ｍ　5F：V 鉛直角 　　　　　　　　Ｍ　92： IH 器械高 　Ｍ　94：L 水平距離 　　　　　　　　Ｍ　93： MH 目標高 　Ｍ　1F：DH 標高差 　　　　　　　　Ｍ　90： S 斜距離 Ｍ　96：GH 地盤高 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　　　 *EL = 505.329 S = 100.000 IH = 1.500 V = 87ﾟ39'45" 　　 MH = 0.250 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１８ 　　２　HIGH 3 ( S,V ) ＥＸＥ　　　　　タイトルの表示 　　３　*EL 　　　　　　　　　505.329 ＥＸＥ 　　　　地盤高の入力 　　４　IH 　　　　　　　 　 1.5 ＥＸＥ　　　　　器械高の入力 　　５　MH 　　　　　　　　　 0.25　ＥＸＥ　　　　　目標高の入力 　　６　S 　　　　　　　 　 100.000 ＥＸＥ　　　　　斜距離の入力 　　７　V 　　　　　　　　　87.3945 ＥＸＥ 　　　　鉛直角の入力 　　８　L 　　　　　　　 　 99.917 ＥＸＥ　　　　　水平距離の表示 　　９　DH 　　　　　　　　　-5.329　ＥＸＥ　　　　　標高差の表示 　１０　GH 500.000 ＥＸＥ　　　　　地盤高の表示 　１２　HIGH 3 ( S,V ) ＥＸＥ　　　　　タイトルの表示に戻る 　　Ｐ１９：　間接水準 4 ( dh ) ［ REVERSE ］ 標高未知の点に ﾄﾗﾝｼｯﾄ を据えた場合に標高既知の点を測った時の 　　　標高計算。 　　　　　　　　・・・・・　変　　数　　表　・・・・・・・　 　　　　　　　　Ｍ　91：*EL 標高　 　Ｍ　1F：dh 観測高 　　　　　　　　Ｍ　92： IH 器械高 　Ｍ　2F：DH 標高差 　　　　　　　　Ｍ　93： MH 目標高 　Ｍ　96：GH 地盤高 　　　　　　・・・・・・・　　例　　　題　　・・・・・・・ 　　　　　　　　 *EL = 451.250 MH = 0.250 IH = 1.500 dh = -50.000 ・・・・・・・・・・・・・　操　作　手　順　・・・・・・・・・・・・・・ ステップ　　表　示　　　　　　　　キー入力　　　　　　　　備　考 　　１　　　　　　　　　　　　Ｐ１９ 　　２　HIGH 4 ( dh ) ＥＸＥ　　　　　タイトルの表示 　　３　*EL 　　　　　　　　　451.250 ＥＸＥ 　　　　標高の入力 　　４　IH 　　　　　　　 　 1.5 ＥＸＥ　　　　　器械高の入力 　　５　MH 　　　　　　　　　 0.25　ＥＸＥ　　　　　目標高の入力 　　６　dh 　　　　　　　 　-50.000 ＥＸＥ　　　　　観測高の入力 　　７　DH 　　　　　　　　　 48.750 ＥＸＥ　　　　　標高差の表示 　　８　GH 500.000 ＥＸＥ　　　　　地盤高の表示 　　９　HIGH 4 ( dh ) ＥＸＥ　　　　　タイトルの表示に戻る 　以下、主な注意事項を揚げると、 　　・　常に器械点を主体にして考えること。 　　　　　　　　Ｘ１，Ｙ１　・・・・　器械点座標 　　　　　　　　Ｘ２，Ｙ２　・・・・　後視点座標 　　　　　　　　方向角　　　・・・・　器械点から後視点への方向角 　　　・　２既知点　Ｘ１，Ｙ１・Ｘ２，Ｙ２　を入力し計算するものは、逆計 　　　　　算により距離と方向角の表示後、プログラム計算に移る。 　　　　　又、Ｘ２に出発方向角を入力し、Ｙ２を０（ゼロ）入力する事で方向 　　　　　角による計算も可能である。 　　　　　但し、Ｙ２座標が０（ゼロ）の場合は、演算結果に影響しない程度の 　　　　　ダミー（０．００００１など）をＹ２に入力しなければならない。 　　　・　鉛直角は２種類（水平　０゜，９０゜）に対応している為、 　　　　　＋−鉛直角（バーニア式トランシット等）は使用できない。 　　　　　この場合、３６０゜鉛直角に変換して入力する事が必要となる。 　　　・　角度（内角・鉛直角）の入力は、ＯＯＯ．ＯＯＯＯＥＸＥ　とする。 　　　　　　　　　　　　　　　　　　　（　　度　　分　秒　） 　　　・　繰り返し計算をする場合、一部のプログラムを除き旧データと新デー 　　　　　タが同じ時は、空打ちエントリーで対処できる。 　　　　　　　　　　　　　　　　　　　　　　　　　　　・・・・・　以　上 ［　参　　　考　］ 　　　　　　　　　　　　　　　　　・（２） 　　　　　　　　　　　　　　　　　　　　　　・（３） 　　　　　　　　（１）・ 　Ｘ１＝１００．０００　Ｙ１＝１００．０００　内角１＝３６゜４４’３５” 　Ｘ２＝３５０．０００　Ｙ２＝２５０．０００　内角２＝８３゜１５’２５” 　Ｘ３＝２２６．８２４　Ｙ３＝４０９．３３２　内角３＝６０゜００’００” 　Ｌ（１−２）＝２９１．５４８　　方向角（１−２）＝　３０゜５７’５０” 　Ｌ（２−３）＝２０１．３９３　　方向角（２−３）＝１２７゜４２’２４” 　Ｌ（３−１）＝３３４．３２２　　方向角（３−１）＝２４７゜４２’２４” TO:QZY07016@nifty.ne.jp SUB:【ポケコンとパソコン間の送受信】 FROM:Tossy ダゴシ さん、こんにちは。 【ポケコンとパソコン間のプログラム送受信】をお送りします。 会議室にでも書き込んでください。 1.通信条件の設定 【パソコン】 @ Windows95 のハイパーターミナルを起動します。 スタート -> プログラム -> ハイパーターミナル -> Hypertrm.exe の順で選 択してください。 A 「接続の設定」ウインドウが現れるので、「名前(N)」に "FX-603P"と入力し て OK をクリックします。 B「電話番号」ウインドウが現れるので、「接続方法(N)」の欄を "COM1へダイ レクト"を選択し、 OK をクリックします。 注）ケーブルを COM1 以外に接続している場合（COM2,COM3,COM4など）は、 そちらを選択してください。 C「ポートの設定」ウインドウが現れるので、次のように値を変更し、OK をク リックしてください。 FX-603P PC-E500 ビット/秒(B) 4800 1200 データビット(D) 7 8 パリティ(P) 偶数 なし ストップビット(S) 2 1 フロー制御(F) Xon/Xoff Xon/Xoff D「新しい接続-ハイパーターミナル」の画面が現れるので、「ファイル(F)」 メニューから「名前を付けて保存(A)」を選択します。 E「保存(S)」をクリックします。 注）次回からは"FX-603P"と名前がついたファイルをダブルクリックすれば、 ハイパーターミナルが起動します。 このファイルには上記の設定内容も保存されていますので設定は不要です。 【FX-603P】 POKE 命令を使用して通信条件を設定します。 以下の操作のうち、Aは特に慎重に行ってください 操作を誤るとメモリー破壊を起こすことがあります。 @MODE -> - -> SHIFT -> BIN(LOG)の順に押します。 ↑ 注）これは - (マイナス)の記号を入力 A10100010 -> 2ndF -> POKE(GOTO) -> 0892 の順に押します。 BMODE -> 1 の順に押します。 パソコンから FX-603P へのプログラム送信 T.受信側(FX-603P)の準備をする。 @ MODE -> X の順に押します。 A SHIFT -> RSLOAD(FST) -> SHIFT -> EXE の順に押します。 B FX-603P の画面が受信直前の状態に戻ったら、MODE -> 1 の順に押します。 U.送信する（パソコン） @ "FX-603P"のファイルをダブルクリックし、ハイパーターミナルを起動し ます。 A「転送(T)」メニューから「テキストファイルの送信(T)」を選択します。 B送信するファイルを選択し、「開く(O)」をクリックします。 CFX-603P の画面が受信直前の状態に戻ったら、「ファイル(F)」メニュー から「ハイパーターミナルの終了」を選択します。 FX-603P から パソコン へのプログラム転送 T.受信側(パソコン)の準備をする。 @ハイパーターミナルの「転送(T)」メニューから「テキストのキャプチャ (C)」を選択します。 A保存する時のファイル名を入力し OK をクリックします。 注）ファイル名の各調子は「,TXT」をおすすめします。 U.送信する（FX-603P) @ MODE -> X の順に押します。 A SHIFT -> RSSAVE(BST) -> SHIFT -> EXE の順に押します。 B FX-603P の画面が受信直前の状態に戻ったら、MODE -> 1 の順に押します。 V.ハイパーターミナルを終了する @「ファイル(F)」メニューから「ハイパーターミナルの終了(X)」を選択 します。 注）「現在、接続されています。切断してもよろしいですか？」と表示さ れた場合は「はい(Y)」 をクリックしてください。 99/10/21(木) 11:44 Tossy(KHF00050) 　　　　1999.11.27 Tossy KHF00050@nifty.ne.jp TDS_S ( Toshio , Dagoshi , Suwa - Survey ) が 1999.06.01 に発表されました のでソース・リストをこの Document に添付させていただきました。 添付にあたりご快諾いただきました ダゴシ さん 諏訪 さんには感謝いたします。 以下 TDS_S100 の READ.ME より転載 ------------------------------------------------------------------------ CASIO FX-603P 測量計算プログラム TDS_Survey について はじめに 『CASIO FX-603P 測量計算プログラム TDS_Survey』（以下 TDS_S）は、 KHF00050 Toshio 氏、FZZ00634 諏訪 和善 氏 と QZY07016 ダゴシ の所有す る各プログラム群を QZY07016 ダゴシ が再編集し FCIVIL 製測量ソフトとし て登録したものです。 TDS_S はフリーソフトウェアとして公開します、よって著作権は各作者が保 留します。 また基本的に転載は禁止としますが（著作者が複数の為）、転載希望の方は その旨ご連絡下さい。 ご利用の際いかなる損害に関しても著作者は責任をおわないものとします。 御意見、御希望、御感想、Bug 報告等、御座いましたら、FCIVIL 17番会議室 【測】にて承っております。 『TDS_Survey』 の由来 KHF00050 Toshio 氏 の "T" とダゴシの "D" に FZZ00634 諏訪 和善 氏 の "S" と Survey = 測量から採用しました。 使用方法 １，FA-6（RS-232C インターフェース）をお持ちでない場合。 PROG603P.TXT の各プログラムを FX-603P に直接打ち込みます。 ２，FA-6（RS-232C インターフェース）をお持ちの場合。 FA-6 のマニュアルと本体マニュアルに従い PROG603P.TXT を転送して下さい。 特異点と注意事項 データ入力において、角度入力は、125.3456(実際の125°34′56″)のように 入力して下さい。 座標 X=0.000 Y=0.000 標高 EL=0.000 GH=0.000 などについては Program で Control していますので使用の際は十分注意して下さい。 その他にも 0 ( ｾﾞﾛ ) 入力や - ( ﾏｲﾅｽ ) 入力は特別な意味を持っています ので説明書を熟読の上使用して下さい。 全収録プログラム 【Ｐ ０】 (ＳＴ・杭打内角)逆計算 【Ｐ １】 放射・開放トラバース計算 【Ｐ ２】 結合・閉合トラバース計算 【Ｐ ３】 ２辺狭角 【Ｐ ４】 垂線長計算 【Ｐ ５】 中間点・幅杭計算 【Ｐ ６】 ２円交点計算 【Ｐ ７】 ２内角交点計算 【Ｐ ８】 平行移動付２直線の交点計算 【Ｐ ９】 平行移動付直線と円交点計算 【Ｐ１０】 鉛直角補正計算 【Ｐ１１】 単曲線中間点計算 【Ｐ１２】 座標面積計算 【Ｐ１３】 間接水準１(S,V)標高・座標標高 【Ｐ１４】 間接水準２(h,l)標高・座標標高 【Ｐ１５】 間接水準３(S,V)逆計算 【Ｐ１６】 間接水準４(d,h)逆計算 【Ｐ１７】 結合トラバース本体（サブルーチン） 【Ｐ１８】 閉合トラバース本体（サブルーチン） 【Ｐ１９】 結合・閉合用表示サブルーチン 著作権 以下の１２本のプログラムに関しては KHF00050 Toshio 氏 著作のもと QZY07016 ダゴシ がメモリーレジスタの変更と表示方法の統一編集を行いました。 【Ｐ ０】 (ＳＴ・杭打内角)逆計算 【Ｐ １】 放射・開放トラバース計算 【Ｐ ４】 垂線長計算 【Ｐ ５】 中間点・幅杭計算 【Ｐ ６】 ２円交点計算 【Ｐ ７】 ２内角交点計算 【Ｐ１０】 鉛直角補正計算 【Ｐ１１】 単曲線中間点計算 【Ｐ１３】 間接水準１(S,V)標高・座標標高 【Ｐ１４】 間接水準２(h,l)標高・座標標高 【Ｐ１５】 間接水準３(S,V)逆計算 【Ｐ１６】 間接水準４(d,h)逆計算 以下の４本のプログラムに関しては FZZ00634 諏訪 和善 氏 著作のもと QZY07016 ダゴシ が表示方法の統一編集を行いました。 【Ｐ ２】 結合・閉合トラバース計算 【Ｐ１７】 結合トラバース本体（サブルーチン） 【Ｐ１８】 閉合トラバース本体（サブルーチン） 【Ｐ１９】 結合・閉合用表示サブルーチン 以下の４本のプログラムに関しては QZY07016 ダゴシ の著作権とします。 【Ｐ ３】 ２辺狭角 【Ｐ ８】 平行移動付２直線の交点計算 【Ｐ ９】 平行移動付直線と円交点計算 【Ｐ１２】 座標面積計算 最後に 各プログラムは個人での使用であるかぎり自由に改変して結構です。 ただし、これを公に公開されるときは著作権者の承諾を得て下さい。 公開にあたりご協力いただいた KHF00050 Toshio 氏、FZZ00634 諏訪 和善 氏 には感謝いたします。 ------------------------------------------------ ////// ダゴシ（吉田 徹） NIFTY-Serve ID:QZY07016 ////// ~~~~~------------------------------------------------ ~~~~~ All Program List P0 AC DEG "REVERSE ANGLE" HLT MR24 "X1?" HLT Min24 MR25 "Y1?" HLT Min25 LBL0 MR11 "X2?" HLT Min11 Min39 MR12 "Y2?" HLT Min12 X=0 GOTO2 MR11 - MR24 ) R>P ( MR12 - MR25 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF GOTO4 LBL3 AC " REVERSE NEXT" HLT X=0 GOTO0 LBL4 MR15 "X3?" HLT Min15 MR16 "Y3?" HLT Min16 MR15 - MR24 ) R>P ( MR16 - MR25 = Min00 X<>Y - MR22 = LBL5 X>=0 GOTO6 + 360 = GOTO5 LBL6 MinF "ANG" SDMS HLT MR00 FIX3 "L" HLT GOTO4 P1 AC DEG "OPEN TRAVERSE" HLT "AZmode[RTA]X2=AZ" PAUSE MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO2 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL3 MR32 "OPEN[RTA](-) HA?" HLT Min32 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min00 MR30 "S,V[RTA](-) L?" HLT Min30 X>=0 GOTO5 ABS Min41 90 Min39 "V?" HLT Min38 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min5F COS * 0 MR41 = Min3F MR5F SIN * MR41 = Min4F Min30 MR38 X>=0 GOTO4 MR3F Min30 LBL4 MR30 FIX3 "L" HLT LBL5 MR00 + MRF - 360 Min5F = LBL6 X>=0 GOTO7 + MR5F = GOTO6 LBL7 Min5F "AZ" SDMS HLT MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X" HLT MR25 FIX3 "Y" HLT MR32 X>=0 GOTO3 MR24 Min11 MR25 Min12 MR5F - 180 = MinF GOTO3 P2 AC DEG "TRAVERSE" PAUSE LBL3 3 MinF "1:FIXED,2:CLOSED" 0 HLT X=0 GOTO3 X>=F GOTO3 +/- = X>=0 GOTO3 Min00 IND GOTO0 LBL1 GSBP17 GOTO3 LBL2 GSBP18 GOTO3 P3 AC DEG "2 HEN KYOUKAKU" HLT MR34 "a?" HLT Min34 MR36 "A?" HLT Min36 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 LBL0 MR35 "b?" HLT Min35 MR37 "B?" HLT Min37 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min23 ( MR34 X^2 + MR35 X^2 - 2 * MR34 * MR35 * ( MR22 - MR23 ) COS ) SQR = Min20 FIX3 "L" HLT GOTO0 P4 AC DEG "LINE OFFSET" HLT MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO2 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL3 MR15 "X3?" HLT Min15 MR16 "Y3?" HLT Min16 MR15 - MR11 ) R>P ( MR16 - MR12 = Min00 X<>Y - MR22 = LBL4 X>=0 GOTO5 + 360 = GOTO4 LBL5 MinF SIN * MR00 = Min3F MRF COS * MR00 = Min4F MR3F FIX3 "(L)- h +(R)" HLT MR4F FIX3 "(1[RTA]2) L" HLT GOTO3 P5 AC DEG "INTER POINT" HLT "AZmode[RTA]X2=AZ" PAUSE MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO2 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL3 MR11 Min1F MR12 Min2F MR22 MinF AC "(1[RTA]2) L?" HLT Min30 MRF - 360 Min5F = LBL4 X>=0 GOTO5 + MR5F = GOTO4 LBL5 Min5F "AZ" SDMS HLT MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR2F = Min25 MR3F + MR1F = Min24 FIX3 "X" HLT MR25 FIX3 "Y" HLT MR24 Min1F MR25 Min2F MRF + 90 = MinF LBL6 AC "(L)- : +(R)" HLT Min30 X=0 GOTO3 MRF - 360 Min5F = LBL7 X>=0 GOTO8 + MR5F = GOTO7 LBL8 Min5F "AZ" SDMS HLT MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR2F = Min25 MR3F + MR1F = Min24 FIX3 "X" HLT MR25 FIX3 "Y" HLT GOTO6 P6 AC DEG "2 LENGTH KOUTEN" HLT MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO2 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL3 MR34 "a?" HLT Min30 Min34 MR35 "b?" HLT Min35 ( ( MR34 X^2 + MR20 X^2 - MR35 X^2 ) / ( 2 * MR34 * MR20 ) ) ACS Min38 + MR22 = MinF - 360 Min5F = LBL4 X>=0 GOTO5 + MR5F = GOTO4 LBL5 Min5F "AZ" SDMS HLT MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X (Right)" HLT MR25 FIX3 "Y (Right)" HLT GOTO3 P7 AC DEG "2 ANGLE KOUTEN" HLT MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO2 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL3 MR36 "A?" HLT Min36 Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min34 + MR22 = MinF MR37 "B?" HLT Min37 Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min35 +/- + 180 = X>=0 GOTO4 + 180 = Min35 LBL4 MR35 +/- + 180 - MR34 = Min38 MR20 * MR35 SIN / MR38 SIN = Min30 MRF - 360 Min5F = LBL5 X>=0 GOTO6 + MR5F = GOTO5 LBL6 Min5F "AZ" SDMS HLT MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X (Right)" HLT MR25 FIX3 "Y (Right)" HLT GOTO3 P8 AC DEG "PA 2 LINE KOUTEN" HLT "AZmode[RTA]X2,4=AZ" PAUSE MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO1 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO0 + 360 = LBL0 Min22 MinF "AZ1" SDMS HLT MR20 FIX3 "L1" HLT GOTO2 LBL1 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL2 AC "(L)- W1 +(R)?" HLT Min30 LBL3 MR15 "X3?" HLT Min15 MR16 "Y3?" HLT Min16 MR17 "X4?" HLT Min17 Min39 MR18 "Y4?" HLT Min18 X=0 GOTO5 MR17 - MR15 ) R>P ( MR18 - MR16 = Min21 Min00 X<>Y X>=0 GOTO4 + 360 = LBL4 Min23 MinF "AZ2" SDMS HLT MR21 FIX3 "L2" HLT GOTO6 LBL5 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min23 MinF LBL6 AC "(L)- W2 +(R)?" HLT Min31 MR11 + MR30 * ( MR22 + 90 ) COS = Min45 MR12 + MR30 * ( MR22 + 90 ) SIN = Min46 MR13 + MR30 * ( MR22 + 90 ) COS = Min47 MR14 + MR30 * ( MR22 + 90 ) SIN = Min48 MR15 + MR31 * ( MR23 + 90 ) COS = Min49 MR16 + MR31 * ( MR23 + 90 ) SIN = Min50 MR17 + MR31 * ( MR23 + 90 ) COS = Min51 MR18 + MR31 * ( MR23 + 90 ) SIN = Min52 MR14 X=0 GOTO7 MR18 X=0 GOTO8 ( MR48 - MR46 ) / ( MR47 - MR45 ) = Min53 ( MR52 - MR50 ) / ( MR51 - MR49 ) = Min54 ( MR54 * MR49 - MR53 * MR45 + MR46 - MR50 ) / ( MR54 - MR53 ) = Min24 FIX3 "X" HLT MR53 * ( MR24 - MR45 ) + MR46 = Min25 FIX3 "Y" HLT GOTO3 LBL7 MR18 X=0 GOTO9 MR22 TAN = Min53 ( MR52 - MR50 ) / ( MR51 - MR49 ) = Min54 ( MR53 * ( MR45 - MR49 ) - ( MR46 - MR50 ) ) / ( MR53 - MR54 ) = Min4F MR49 + MR4F = Min24 FIX3 "X" HLT MR50 + MR4F * MR54 = Min25 FIX3 "Y" HLT GOTO3 LBL8 MR23 TAN = Min53 ( MR48 - MR46 ) / ( MR47 - MR45 ) = Min54 ( MR53 * ( MR49 - MR45 ) - ( MR50 - MR46 ) ) / ( MR53 - MR54 ) = Min4F MR45 + MR4F = Min24 FIX3 "X" HLT MR46 + MR4F * MR54 = Min25 FIX3 "Y" HLT GOTO3 LBL9 MR45 + 1000 * MR22 COS = Min47 MR46 + 1000 * MR22 SIN = Min48 MR49 + 1000 * MR23 COS = Min51 MR50 + 1000 * MR23 SIN = Min52 ( MR48 - MR46 ) / ( MR47 - MR45 ) = Min53 ( MR52 - MR50 ) / ( MR51 - MR49 ) = Min54 ( MR54 * MR49 - MR53 * MR45 + MR46 - MR50 ) / ( MR54 - MR53 ) = Min24 FIX3 "X" HLT MR53 * ( MR24 - MR45 ) + MR46 = Min25 FIX3 "Y" HLT GOTO3 P9 AC DEG "PA LINE [MUL] CIRCLE" HLT "AZmode[RTA]X2=AZ" PAUSE MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO1 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO0 + 360 = LBL0 Min22 MinF "AZ1" SDMS HLT MR20 FIX3 "L1" HLT GOTO2 LBL1 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL2 AC "(L)- W1 +(R)?" HLT Min30 MR11 + MR30 * ( MR22 + 90 ) COS = Min45 MR12 + MR30 * ( MR22 + 90 ) SIN = Min46 MR13 + MR30 * ( MR22 + 90 ) COS = Min47 MR14 + MR30 * ( MR22 + 90 ) SIN = Min48 LBL3 MR15 "RX?" HLT Min15 MR16 "RY?" HLT Min16 MR34 "R?" HLT Min34 MR15 - MR45 ) R>P ( MR16 - MR46 = Min21 Min00 X<>Y X>=0 GOTO4 + 360 = LBL4 Min23 MR23 - MR22 = Min23 X>=0 GOTO5 + 360 = LBL5 Min23 MR21 * MR23 COS = Min30 MR21 * MR23 SIN = Min35 ( MR34 X^2 - MR35 X^2 ) SQR = Min31 MR45 + ( MR30 - MR31 ) * MR22 COS = Min49 FIX3 "X1" HLT MR46 + ( MR30 - MR31 ) * MR22 SIN = Min50 FIX3 "Y1" HLT MR45 + ( MR30 + MR31 ) * MR22 COS = Min51 FIX3 "X2" HLT MR46 + ( MR30 + MR31 ) * MR22 SIN = Min52 FIX3 "Y2" HLT GOTO3 P10 AC DEG "VERTICAL" HLT LBL1 MR36 "Vr?" HLT Min36 Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min34 MR32 "Vl?" HLT Min32 Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min35 - MR34 = X>=0 GOTO2 MR34 Min5F MR35 Min34 MR5F Min35 LBL2 MR34 + MR35 ) "T" SDMS HLT - 360 = "e" SDMS HLT MR34 - MR35 = Min38 X>=0 GOTO3 + 360 = Min38 LBL3 "Vr-Vl" SDMS HLT / 2 = "Z" SDMS HLT +/- + 90 = Min38 "V" SDMS HLT GOTO1 P11 AC DEG "SIMPLE CURVE" HLT MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO2 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL3 MR32 "(L)- R +(R)" HLT Min32 MR20 / 2 / MR32 ) ACS + MR22 = Min38 COS * MR32 = Min3F MR38 SIN * MR32 = Min4F + MR12 = Min2F Min25 MR3F + MR11 = Min1F Min24 FIX3 "RX" HLT MR25 FIX3 "RY" HLT LBL4 MR34 "CL?" HLT Min34 X=0 GOTO3 * 180 / PI / MR32 = Min00 + MR38 - 180 = MinF COS * MR32 = Min3F MRF SIN * MR32 = Min4F + MR2F = Min25 MR3F + MR1F = Min24 FIX3 "X" HLT MR25 FIX3 "Y" HLT GOTO4 P12 LBL0 AC DEG "ZAHYO MENSEKI" HLT 1 Min00 0 Min2F LBL1 "Tensuu(3-)?" MR1F HLT INT Min1F - 1 = X=0 GOTO1 MR1F - 2 = X=0 GOTO1 MR1F +/- = X>=0 GOTO1 "X1?" MR55 HLT Min55 "Y1?" MR56 HLT Min56 Min3F "X2?" 0 HLT Min57 "Y2?" 0 HLT Min58 2 Min00 LBL2 1 M+00 "X[AR00]?" 0 HLT Min59 "Y[AR00]?" 0 HLT Min60 ( MR55 - MR57 ) * ( MR60 - MR3F ) = M+2F MR58 Min3F MR59 Min57 MR60 Min58 MR1F - MR00 - 1 = X>=0 GOTO2 MR56 Min60 ( MR55 - MR57 ) * ( MR60 - MR3F ) = M+2F MR2F ABS FIX7 "2S" HLT / 2 = FIX7 "S" HLT GOTO0 P13 AC DEG "HIGH 1 ( S,V )" HLT MR42 "EL?" HLT Min42 MR43 "POINT[RTA](-) IH?" HLT Min43 X>=0 GOTO3 MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO2 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL3 MR44 "T.P[RTA](-) MH?" HLT Min44 MR41 "S?" HLT ABS Min41 MR38 "V?" HLT Min38 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min5F COS * MR41 = Min3F MR5F SIN * MR41 = Min4F Min30 MR38 X>=0 GOTO4 MR3F Min30 LBL4 MR30 FIX3 "L" HLT MR38 X>=0 GOTO5 MR4F Min3F LBL5 MR3F + MR43 ABS - MR44 ABS + MR42 = Min36 FIX3 "GH" HLT MR43 X>=0 GOTO8 MR32 "HA?" HLT Min32 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min5F = LBL6 X>=0 GOTO7 + MR5F = GOTO6 LBL7 Min5F "AZ" SDMS HLT MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X" HLT MR25 FIX3 "Y" HLT MR44 X>=0 GOTO3 MR24 Min11 MR25 Min12 MR5F - 180 = MinF LBL8 MR44 X>=0 GOTO3 MR36 Min42 MR43 "IH?" HLT Min43 GOTO3 P14 AC DEG "HIGH 2 ( h,l )" HLT MR42 "EL?" HLT Min42 MR43 "POINT[RTA](-) IH?" HLT Min43 X>=0 GOTO3 MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO2 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min22 MinF "AZ" SDMS HLT MR20 FIX3 "L" HLT GOTO3 LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL3 MR44 "T.P[RTA](-) MH?" HLT Min44 MR1F "dh?" HLT Min1F MR43 X>=0 GOTO4 MR2F "dL?" HLT Min2F LBL4 MR1F + MR43 ABS - MR44 ABS + MR42 = Min36 FIX3 "GH" HLT MR43 X>=0 GOTO7 MR32 "HA?" HLT Min32 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min5F = LBL5 X>=0 GOTO6 + MR5F = GOTO5 LBL6 Min5F "AZ" SDMS HLT MR5F COS * MR2F = Min3F MR5F SIN * MR2F = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X" HLT MR25 FIX3 "Y" HLT MR44 X>=0 GOTO3 MR24 Min11 MR25 Min12 MR5F - 180 = MinF LBL7 MR44 X>=0 GOTO3 MR36 Min42 MR43 "POINT[RTA](-) IH?" HLT Min43 GOTO3 P15 LBL1 AC DEG "HIGH 3 ( S,V )" HLT MR42 "EL?" HLT Min42 MR43 "IH?" HLT Min43 MR44 "MH?" HLT Min44 MR41 "S?" HLT ABS Min41 MR38 "V?" HLT Min38 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min5F COS * MR41 = Min3F MR5F SIN * MR41 = Min4F Min30 MR38 X>=0 GOTO2 MR3F Min30 LBL2 MR30 FIX3 "L" HLT MR38 X>=0 GOTO3 MR4F Min3F LBL3 MR3F + MR43 ABS - MR44 ABS = Min1F +/- FIX3 "DH" HLT + MR42 = Min36 FIX3 "GH" HLT GOTO1 P16 LBL1 AC DEG "HIGH 4 ( dh )" HLT MR42 "EL?" HLT Min42 MR43 "IH?" HLT Min43 MR44 "MH?" HLT Min44 MR1F "dh?" HLT Min1F + MR43 ABS - MR44 ABS = Min2F +/- FIX3 "DH" HLT + MR42 = Min36 FIX3 "GH" HLT GOTO1 P17 AC DEG "FIXED TRAVERSE" HLT LBL1 21 MinF 0 Min93 Min94 Min95 "Tensuu(1-18)?" MR1F HLT INT Min1F + 2 = X>=F GOTO1 MinF MR1F +/- = X>=0 GOTO1 "Xa?" MR81 HLT Min81 Min3F "Ya?" MR82 HLT Min82 Min4F "AZa(In)?" MR83 HLT Min83 Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = Min2F Min9F "Xb?" MR84 HLT Min84 Min6F "Yb?" MR85 HLT Min85 Min7F "AZb(Out)?" MR86 HLT Min86 Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = Min5F - MR2F + 180 * ( MR1F + 1 ) = Min8F MR3F - MR6F = Min96 MR4F - MR7F = Min97 1 Min00 21 Min91 LBL2 "HA[AR00]?" 0 HLT Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = IND Min00 M+92 "L[AR00]?" 0 HLT IND Min91 M+93 MR9F + IND MR00 - 540 = X>=0 GOTO3 + 360 = X>=0 GOTO3 + 360 = LBL3 Min9F COS = * IND MR91 +/- = M+94 MR9F SIN = * IND MR91 +/- = M+95 MR00 X>=F GOTO4 1 M+00 M+91 GOTO2 LBL4 MR5F - MR9F = Min98 SDMS +/- "dAZ" HLT 1 Min00 LBL5 MR98 / MRF = IND M+00 MR00 X>=F GOTO6 1 M+00 GOTO5 LBL6 1 Min00 21 Min91 MR2F Min9F 0 Min94 Min95 LBL7 MR9F + IND MR00 - 540 = X>=0 GOTO8 + 360 = X>=0 GOTO8 + 360 = LBL8 Min9F COS * IND MR91 +/- = M+94 MR9F SIN * IND MR91 +/- = M+95 MR00 X>=F GOTO9 1 M+00 M+91 GOTO7 LBL9 MR96 - MR94 = Min94 FIX3 "dX" HLT MR97 - MR95 = Min95 FIX3 "dY" HLT MR93 / ( ( MR94 X^2 + MR95 X^2 ) SQR ) = FIX0 "Seido 1/" HLT 1 Min00 21 Min91 MR2F Min9F MRF - 1 = MinF 0 Min6F Min7F MR94 +/- = Min94 MR95 +/- = Min95 GSBP19 GSBP2 P18 AC DEG "CLOSED TRAVERSE" HLT LBL1 21 MinF 0 Min93 Min94 Min95 "Tensuu(3-20)?" MR1F HLT INT Min1F - 1 = X=0 GOTO1 MR1F - 2 = X=0 GOTO1 MR1F X>=F GOTO1 MinF MR1F +/- = X>=0 GOTO1 "Xa?" MR87 HLT Min87 Min3F "Ya?" MR88 HLT Min88 Min4F "AZa(Out)?" MR89 HLT Min89 Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = + 180 = Min2F Min9F 180 * ( MR1F - 2 ) = Min8F 1 Min00 21 Min91 LBL2 "HA[AR00]?" 0 HLT Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = IND Min00 M+92 "L[AR00]?" 0 HLT IND Min91 M+93 MR9F + IND MR00 - 540 = X>=0 GOTO3 + 360 = X>=0 GOTO3 + 360 = LBL3 Min9F COS = * IND MR91 = M+94 MR9F SIN = * IND MR91 = M+95 MR00 X>=F GOTO4 1 M+00 M+91 GOTO2 LBL4 MR2F - MR9F = Min98 SDMS +/- "dAZ" HLT 1 Min00 LBL5 MR98 / MRF = IND M+00 MR00 X>=F GOTO6 1 M+00 GOTO5 LBL6 1 Min00 21 Min91 MR2F Min9F 0 Min94 Min95 LBL7 MR9F + IND MR00 - 540 = X>=0 GOTO8 + 360 = X>=0 GOTO8 + 360 = LBL8 Min9F COS * IND MR91 +/- = M+94 MR9F SIN * IND MR91 +/- = M+95 MR00 X>=F GOTO9 1 M+00 M+91 GOTO7 LBL9 MR94 +/- FIX3 "dX" HLT MR95 +/- FIX3 "dY" HLT MR93 / ( ( MR94 X^2 + MR95 X^2 ) SQR ) = FIX0 "Seido 1/" HLT 1 Min00 21 Min91 MR2F Min9F 0 Min6F Min7F GSBP19 GSBP2 P19 LBL1 MR9F + IND MR00 - 540 = X>=0 GOTO2 + 360 = X>=0 GOTO2 + 360 = LBL2 Min9F SDMS "AZ[AR00]" HLT MR9F COS * IND MR91 + MR94 * IND MR91 / MR93 = M+6F MR6F + MR3F = FIX3 "X[AR00]" HLT MR9F SIN * IND MR91 + MR95 * IND MR91 / MR93 = M+7F MR7F + MR4F = FIX3 "Y[AR00]" HLT MR00 X>=F GOTO3 1 M+00 M+91 GOTO1 "TDS-Survey (Toshio,Dagoshi,Suwa - Survey) 1999.06.01" LBL3 END Memory List ------------------------------------------------------------------------ 吉田 徹（ダゴシ） E-Mail qzy07016@nifty.ne.jp URL http://homepage1.nifty.com/dagoshi/index.html 諏訪 和善 E-mail FZZ00634@nifty.ne.jp 2000.04.07 KHF00050@nifty.ne.jp Toshio KAWAGUCHI 以上です。------------------------------------------------------------------ 274700 bytes 2000.04.07 Tossy KHF00050@nifty.ne.jp E-mail:tossy@tossy.net ----------------------------------------------------------------------------