土方カーブ(弦長入力、弧長入力)

土方カーブ(弦長入力、弧長入力) 【ファイル名：P21】（272バイト）

　　　Fixm:Deg:K=180÷π:I=0
　　　"<DOKATA_CURVE>"
Lbl 0:{R}:R"R_"
　　　R≦0⇒Goto 0△
Lbl 1:{I}
　　　"GENTYO_INPUT⇒1"
　　　I"KOTYO_INPUT_⇒2"
　　　I＝2⇒Goto 3△
　　　I≠1⇒Goto 1△
Lbl 2:{S}:S"GENTYO_"
　　　S≦0⇒Goto 2△
　　　M=R−√(R^2−(S÷2)^2)
　　　Goto 4
Lbl 3:{L}:L"KOTYO_"
　　　L≦0⇒Goto 3△
　　　N=L÷R×K
　　　S=2×R×sin (N÷2)
　　　M=R×(1−cos (N÷2))
Lbl 4:P=M÷4
　　　S"GENTYO="▲
　　　M"M1="▲
　　　P"M2="▲
　　　Goto 0

QUICK RUN に書き加える条件文 （16バイト）

ご注意下さい

• プログラムを入力する前に、fx-4800Pの取扱説明書をよくお読みください。
• プログラムをご使用になる前に、「内容説明書」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。

• 上記プログラムソースは見やすいようにインデントされていますが、fx-4800Pに入力する際には、インデントを無視してください。
• ファイル名は変更可能ですが、ソフト起動プログラム（QUICK RUN）を利用する場合には変更しないでください。
• アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
• fx-4800Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。