縦断曲線計算 Ｐ4

"ＪＵＤＡＮ"ＰＡＵＳＥ　ＬＢＬ　1　ＭＲ01
"　ｉ1＝＃？"ＨＬＴ　Ｍｉｎ01　ＭＲ02
"ｉ2＝＃？"ＨＬＴ　Ｍｉｎ02　ＭＲ01−ＭＲ02＝
±Ｍｉｎ03 ＭＲ10　"Ｖ→Ｌ．Ｙ0
＊ ＬＸ→Ｍｙ1？"ＨＬＴ　Ｍｉｎ10　ＭＲ10　χ＝0
ＧＯＴＯ　3　ＧＯＴＯ　2
ＬＢＬ　3　ＭＲ04　"Ｖ＝＃？"ＨＬＴ　Ｍｉｎ04＾2×
ＭＲ03 ＡＢＳ÷360＝ＧＳＢ　Ｐ19　"ＶＣＬ＝＃ｍ"
ＨＬＴ　ＧＯＴＯ　1　ＬＢＬ　2　ＭＲ05
"ＶＣＬ＝＃？"ＨＬＴ　Ｍｉｎ05×ＭＲ03÷800＝
ＧＳＢ　Ｐ19　"Ｍ＝＃ｍ"ＨＬＴ
ＭＲ06　"→Ｓ＝＃"ＨＬＴ　Ｍｉｎ06＾2×ＭＲ03÷
ＭＲ05÷200＝ＧＳＢ　Ｐ19
"ｙ＝＃ｍ"ＨＬＴ　ＧＯＴＯ　1

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

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


縦断曲線計算
ｉ1＝？　　　勾配入力　　　　　　　　例題　　1.500　　ＥＸＥ
ｉ2＝？　　　勾配入力　　　　　　　　例題　−1.500　　ＥＸＥ

Ｖ→Ｌ．Ｙ0＊Ｌｘ→Ｍｙ90？　入力の場合ＶＣＬ計算1の場合縦距
（ｙ）計算0入力の場合　　　　　　ＥＸＥ
Ｖ＝？　　　　　　　　　　　　　　　　例題　　40.000　　 ＥＸＥ
ＶＣＬ＝13.3333ｍ　　　  ＥＸＥ

1入力の場合　　　　　 　 ＥＸＥ
ＶＣＬ＝？　　　　　　　　　　　　　  例題　　13.3333　　ＥＸＥ
Ｍ＝−0.05　　　　　　　　ＥＸＥ　　　
→Ｓ＝？　バーチカル始点より中間点までの距離例題　5.000ＥＸＥ
ｙ＝−0.0281ｍ　　　　　　ＥＸＥ　入力画面に、戻ります。