Question

求大神指点卡西欧5800竖曲线程序

我按照网上的程序编写下来，发现不能运行，求指点！
“LK(JD)=”？M： “H(JD)=”？N：“R=”？R：“I1=”？I：“I2”？
J I－J→P：
If P﹥0：Then 1→K：Else －1→K：If End “T=”：
Abs（R×（J－I）÷200）→T▲
“E=”：:T2÷2÷R→E▲
LBI 1：“LK=”？L：
If L≤M－T：Then GOTO 6： Else GOTO 2：If End
LBI 2:If L≤M：Then GOTO 7： Else GOTO 3：If End
LBI 3:If L≤M＋T：Then GOTO 8： Else GOTO 9：If End
LBI 6：“H=”：（L－M）×I÷100＋N→H▲GOTO 1
LBI 7：“H=”：（L－M）×I÷100＋N－K×（L－M＋T）2÷2÷R→H▲GOTO 1
LBI 8：“H=”：（L－M）×J÷100＋N－K×（L－M－T）2÷2÷R→H▲GOTO 1
LBI 9：“H=”：（L－M）×J÷100＋N→H▲GOTO 1

Answer 1

竖曲线（凸）
”LC[K=]”?->K
K-（BPK）->N 注解：BPK为变坡里程 ；
IF N＜0:THEN H+N×-I1->G 注解：H为变坡点高程，I1为第一变坡坡度；
:ELSE H+N×-I2->G:IFEND 注解：I2为第二变坡坡度；
IF AbsN＜T:THEN G+(T-AbsN)2÷2÷R÷-1->H:IFEND 注解：T为切线长；R为半径；当为凹型曲线时-1为1。
“H=”:H▲

说明：在计算器中每句程序可以用“:”来连接；“▲”为计算器中的暂停符号；程序中的蓝色字母为可变量。

Answer 2

第一句，“I2”？赋值不完整，第三句这If End “T=”：不能这么编吧！