FX-603P版はこちらです→FX-603P 縦断曲線 【★印刷用ページ】
縦断曲線長(VCL)，勾配(i1)・(i2)より、水平距離(ｘ)の点の縦距(ｙ)と計画高（Ｈｋ）を計算します。
［勾配(i1)・(i2)の符号は、上り勾配の時(+)，下り勾配の時(-)で入力します。］
縦断曲線 【ファイル名：P9】（258バイト）
Fixm
Lbl 0:"<JUDAN_CURVE>"
{N}:N"H0_"
Lbl 1:{H}
H"VCL_"
H≦0⇒Goto 1△
I=H÷2
Lbl 2:{KL}
K"I1_":L"I2_"
M=L-K
M＝0⇒Prog "ER.SUB":Goto 2△
M=M÷200÷H
P=N＋K×H÷200
Lbl 3:{W}
W"X_"
W＜0⇒Goto 3△
W＞H⇒Goto 3△
W≦I⇒X=W:Q=N＋K×W÷100:≠⇒X=H−W:Q=P＋L×(W−I)÷100△
Y=X^2×M
R=Q＋Y
S=Abs Y
Q"H="▲
S"Y="▲
R"HK="▲
Goto 3
QUICK RUN に書き加える条件文 （14バイト）
I＝9⇒Prog "P9":Goto 0△
エラー表示サブルーチン 【ファイル名：ER.SUB】（38バイト）
Z=999"DATA_ERROR"
Pause 1
ご注意下さい
- プログラムを入力する前に、fx-4800Pの取扱説明書をよくお読みください。
- プログラムをご使用になる前に、「内容説明書」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。
- 上記プログラムソースは見やすいようにインデントされていますが、fx-4800Pに入力する際には、インデントを無視してください。
- ファイル名は変更可能ですが、ソフト起動プログラム（QUICK RUN）を利用する場合には変更しないでください。
- サブルーチンは他のプログラムと共用しますのでファイル名を変更しないでください。
- アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
- fx-4800Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。
