単曲線ＩＰ座標によるＢＣ．ＳＰ．ＥＣ座標計算　Ｐ6　　
　 
"ＩＰ→ＴＬ．ＣＬ．ＳＬ．ＸＹ"ＰＡＵＳＥ　　ＭＲ99
"Ｚａ．Ｙ0＊Ｎ1？"ＨＬＴ　Ｍｉｎ99　χ＝0　
ＧＯＴＯ　1　ＧＯＴＯ　8
ＬＢＬ　1　ＭＲ01　"ＮＯ．0Ｘ＝＃？"ＨＬＴ　
Ｍｉｎ01　ＭＲ02　"ＮＯ．0Ｙ＝＃？ＨＬＴ
Ｍｉｎ02　ＭＲ03　"ＩＰ1Ｘ＃？"ＨＬＴ　Ｍｉｎ03　
ＭＲ04"ＩＰ．1Ｙ＝＃？ＨＬＴ　Ｍｉｎ04
ＭＲ03−ＭＲ01＝Ｍｉｎ07　ＭＲ04−ＭＲ02＝Ｍｉｎ06　
ＭＲ07　Ｒ→Ｐ　ＭＲ06＝Ｍｉｎ05
Ｘ⇔Ｙ　χ≧0　ＧＯＴＯ　2　＋360＝ＬＢＬ　2　
Ｍｉｎ1ＦＭＲ10　"ＩＰ2Ｘ＝＃？"ＨＬＴ
Ｍｉｎ10　ＭＲ11　"ＩＰ2Ｙ＝＃？"ＨＬＴ　Ｍｉｎ11　
ＭＲ10−ＭＲ03＝Ｍｉｎ17
ＭＲ11−ＭＲ04＝Ｍｉｎ16　MR17　Ｒ→Ｐ　ＭＲ16＝
Ｍｉｎ15Ｘ⇔Ｙ　χ≧0ＧＯＴＯ　3　＋360＝
ＬＢＬ　3　Ｍｉｎ2Ｆ　ＭＲ1Ｆ−ＭＲ2Ｆ＝χ≧0　
ＧＯＴＯ　7　±　＝　ＬＢＬ　7　°′″←
"ＩＡ＝＃"ＨＬＴ　Ｍｉｎ3Ｆ
Ｍｉｎ80　ＭＲ80　χ≧0　ＧＯＴＯ　5　ＭＲ3Ｆ　±＝
Ｍｉｎ3Ｆ　ＬＢＬ　5　ＭＲ20　"Ｒ＝＃？"
ＨＬＴ　Ｍｉｎ20　ＭＲ21　"Ｔｓｉｋａ．Ｓ＝＃？"　
ＨＬＴＭｉｎ21　ＭＲ22　"Ｐｉ．Ｓ＝＃？"ＨＬＴ
Ｍｉｎ22　ＧＯＴＯ　6　ＬＢＬ　8　"ＩＡ＝＃？"
ＨＬＴ　Ｍｉｎ90　ＧＳＢ　Ｐ18　Min3F　MR20
"Ｒ＝＃？"ＨＬＴ　Ｍｉｎ20　ＬＢＬ　6　ＭＲ3Ｆ÷2＝
Ｍｉｎ5Ｆ　ＴＡＮ×ＭＲ20＝ＧＳＢ　Ｐ19
"ＴＬ＝＃ｍ"ＨＬＴ　Ｍｉｎ70　（π÷180）×ＭＲ20×
ＭＲ3Ｆ＝ＧＳＢ　Ｐ19　"ＣＬ＝＃ｍ"ＨＬＴ
Ｍｉｎ71　（（（ＭＲ5Ｆ　ＣＯＳ）1／χ）−1）×
ＭＲ20＝ＧＳＢ　Ｐ19　"ＳＬ＝＃ｍ"ＨＬＴ　Ｍｉｎ72
ＭＲ05　ＧＳＢ　Ｐ19　"ＮＯ0→ＩＰ1．Ｓ＝＃ｍ"ＨＬＴ　
ＭＲ1Ｆ　ＧＳＢ　Ｐ19　°′″←
"ＮＯ0→ＩＰ1．ＨＯ＝＃"ＨＬＴ　ＭＲ21＋ＭＲ05−
ＭＲ70＝Ｍｉｎ60＋ＭＲ71＝Ｍｉｎ61　ＭＲ71÷2＝
Ｍｉｎ73　ＭＲ60＋ＭＲ73＝Ｍｉｎ62　ＭＲ60÷ＭＲ22＝
Ｍｉｎ51　ＩＮＴ　＝Ｍｉｎ52　ＭＲ51　ＦＲＡＣ　
×ＭＲ22＝Ｍｉｎ53　ＭＲ52"ＢＣ1　ＮＯ＃＃"
ＭＲ53　ＧＳＢ　Ｐ19"；＋＃＃＃＃＃＃"ＨＬＴ　ＭＲ62÷
ＭＲ22＝Ｍｉｎ54　ＩＮＴ　＝Ｍｉｎ55
ＭＲ54　ＦＲＡＣ　×ＭＲ22＝Ｍｉｎ56　ＭＲ55　
"ＳＰ1　ＮＯ＃＃"　ＭＲ56　ＧＳＢ　Ｐ19
"；＋＃＃＃＃＃＃"ＨＬＴ　ＭＲ61÷ＭＲ22＝Ｍｉｎ57　
ＩＮＴ　＝Ｍｉｎ58　ＭＲ57　ＦＲＡＣ
×ＭＲ22＝Ｍｉｎ59　ＭＲ58　"ＥＣ1　ＮＯ＃＃"
ＭＲ59　ＧＳＢ　Ｐ19　"；＋＃＃＃＃＃＃"
ＨＬＴ　ＭＲ1Ｆ　−180＝ＭｉｎＦ
（（ＭＲＦ　ＣＯＳ）×ＭＲ70）＋ＭＲ03＝
ＧＳＢ　Ｐ19"ＢＣ1Ｘ＝＃"ＨＬＴ　Ｍｉｎ31　
（（ＭＲＦ　ＳＩＮ）×ＭＲ70）＋ＭＲ04＝
ＧＳＢ　Ｐ19　"ＢＣ1Ｙ＝＃"ＨＬＴ　Ｍｉｎ32　
ＭＲ62−ＭＲ60＝Ｍｉｎ63（180÷π）×60＝÷2＝
×（ＭＲ63÷ＭＲ20）＝÷60＝Ｍｉｎ40　ＳＩＮ　×
（2×ＭＲ20）　＝ＧＳＢ　Ｐ19　Ｍｉｎ41
ＭＲ80　χ≧0　ＧＯＴＯ　4　ＭＲ1Ｆ＋ＭＲ40＝
Ｍｉｎ44　ＭＲ44＋ＭＲ40＝ＧＳＢ　Ｐ19
°′″←"ＳＰ．ＡＺ＝＃"ＨＬＴ　
（（ＭＲ1Ｆ＋90）ＣＯＳ）×ＭＲ20＋ＭＲ31＝
ＧＳＢ　Ｐ19
"ＯｔｅｎＸ＝＃"ＨＬＴ　（（ＭＲ1Ｆ＋90）ＳＩＮ）
×ＭＲ20＋ＭＲ32＝ＧＳＢ　Ｐ19
"ＯｔｅｎＹ＝＃"ＨＬＴ　ＧＯＴＯ　9　
ＬＢＬ　4　ＭＲ1Ｆ
−ＭＲ40＝Ｍｉｎ44 ＭＲ44−ＭＲ40＝ＧＳＢ　Ｐ19　
°′″←"ＳＰ．ＡＺ＝＃"ＨＬＴ　
（（ＭＲ1Ｆ−90）ＣＯＳ）×ＭＲ20＋ＭＲ31＝
ＧＳＢ　Ｐ19　"ＯｔｅｎＸ＝＃"ＨＬＴ
（（ＭＲ1Ｆ−90）ＳＩＮ）×ＭＲ20
＋ＭＲ32＝ＧＳＢ　Ｐ19　"ＯｔｅｎＹ＝＃"ＨＬＴ　
ＬＢＬ　9　（ＭＲ44　ＣＯＳ）×ＭＲ41＝
＋ＭＲ31＝ＧＳＢ　Ｐ19　"ＳＰ1Ｘ＝＃"ＨＬＴ　
（ＭＲ44　ＳＩＮ）×ＭＲ41＝＋ＭＲ32＝
ＧＳＢ　Ｐ19　"ＳＰ1Ｙ＝＃"ＨＬＴ　ＭＲ03＋
（（ＭＲ2Ｆ　ＣＯＳ）×ＭＲ70）＝ＧＳＢ　Ｐ19
"ＥＣ1Ｘ＝＃"ＨＬＴ　ＭＲ04＋（（ＭＲ2Ｆ　ＳＩＮ）
×ＭＲ70）＝ＧＳＢ　Ｐ19　"ＥＣ1Ｙ＝＃"
ＨＬＴ　ＭＲ15　ＧＳＢ　Ｐ19　
"ＩＰ1→ＩＰ2．Ｓ＝＃ｍ"
ＨＬＴ　ＭＲ2Ｆ ＧＳＢ　Ｐ19　°′″←
"ＩＰ1→ＩＰ2．ＨＯ＝＃"ＨＬＴ　ＭＲ61−ＭＲ70＝
ＧＳＢ　Ｐ19"ＩＰ1ｔｕｉ．Ｓ＝＃ｍ"ＨＬＴ　ＭＲ21　

Ｐ．18
Ｍｉｎ09　ＩＮＴ　＋（ＭＲ09　ＦＲＡＣ×2　10ｘ）
Ｍｉｎ09　ＩＮＴ÷60＋ＭＲ09　ＦＲＡＣ　÷36＝

Ｐ．19
×4　10ｘ　＋ＦＲＡＣ＝ＩＮＴ　÷4　10ｘ＝


単曲線要素及びＩＰ座標による路線計算
Ｚａ．Ｙ0＊Ｎ1？
ＮＯ.0〜ＩＰ．1〜ＩＰ．2座標入力でカーブ設置する場合0入力単曲要素
の場合は1入力します。　この例題は、0入力の場合です。　0　 ＥＸＥ
　ＮＯ．Ｘ＝？　　ＮＯ．0Ｘ座標　　　　　例題　100.000　　ＥＸＥ
　ＮＯ．Ｙ＝？　　ＮＯ．0Ｙ座標　　　　　例題　100.000　　ＥＸＥ
ＩＰ．1Ｘ＝？　 ＩＰ．1Ｘ座標　　　　　  例題　100.000　  ＥＸＥ
ＩＰ．1Ｙ＝？　 ＩＰ．1Ｙ座標　　　 　 　例題　125.000　　ＥＸＥ
ＩＰ．2Ｘ＝？　 ＩＰ．2Ｘ座標　　 　 　  例題　130.000　　ＥＸＥ
ＩＰ．2Ｙ＝？　 ＩＰ．2Ｙ座標　　 　 　  例題　162.000　　ＥＸＥ
ＩＡ＝39°2′7.85″　インターセクションアングル（交角）　 ＥＸＥ
Ｒ＝？　　　　　半径入力　　　　　　　　　例題　25.000　　ＥＸＥ
ｔｕ．Ｓ＝？　　追加距離入力ＮＯ．0が0.000なら　　 0.000  ＥＸＥ
Ｐｉ．Ｓ＝？　　ステーションピッチ20.000なら　　　20.000　ＥＸＥ
ＴＬ＝ 8.8617ｍ　　　　　ＥＸＥ
ＣＬ＝17.0325ｍ　　　　  ＥＸＥ
ＳＬ＝ 1.5241ｍ　　　　　ＥＸＥ
0→1Ｓ＝25.000　　　　　 ＥＸＥ　ＮＯ.0よりＩＰ．1の点間距離
0　1ｈ＝90°0′0″　　　 ＥＸＥ　ＮＯ.0よりＩＰ．1への方向角
ＢＣ1ＮＯ．0＋16.1383　　ＥＸＥ
ＳＰ1ＮＯ．1＋ 4.6546　　ＥＸＥ
ＥＣ1ＮＯ．1＋13.1708　　ＥＸＥ
ＢＣ1Ｘ＝100.000　　　　 ＥＸＥ
ＢＣ1Ｙ＝116.1383　　　　ＥＸＥ
ＳＰ．ＡＺ＝70°28′55.92″　ＥＸＥ　ＳＰの接線方向角
ＯｔｅｎＸ＝125.000　　　　　ＥＸＥ　Ｏ点円弧中心のＸ座標
ＯｔｅｎＹ＝116.1383　　　　 ＥＸＥ　Ｏ点円弧中心のＹ座標
ＳＰ1Ｘ＝101.4366　　　　　　ＥＸＥ　　　
ＳＰ1Ｙ＝124.4908　　　　　　ＥＸＥ　　　　　　　　　　　　　　　
ＥＣ1Ｘ＝105.5811　　　　　　ＥＸＥ
ＥＣ1Ｙ＝131.8834　　　　　　ＥＸＥ
1→2Ｓ＝47.634　　　　　　　 ＥＸＥ　ＩＰ．1よりＩＰ．2の点間距離
12ｈ＝50°57′52.2″　　　　 ＥＸＥ　ＩＰ．1よりＩＰ．2への方向角
ＩＰ1ｔｕＳ＝24.30901ｍ　　　ＥＸＥＩＰ．1の追加距離次のカーブ設置に使用