求高手帮忙完善超高横坡计算程序

求高手帮忙完善超高横坡计算程序
因为网上关于5800计算超高的程序比较少，我产生自己编写程序的想法，无奈水平有限，才写一点就被卡住，特来向各位高手和老大们求助了
以助我早日完善程序的编写，先在此感谢各位了:handshake
具体如下
超高缓和段任意断面横坡度综合计算程序
Lbl 0：“1.XXCG,2.GCCG”? →N :Cls
“QD”? A: “ZD” ? B: “I1=”? E : “I2=”? F
N=2=>Goto 2
Lbl 1: Cls:“ZH”?C
(B-C)÷(B-A) → D
(E-F)D+F→H
“I=”:H×100→I◢
Goto 1←
Lbl 2: Cls:“ZH”?C
(B-C)÷(B-A) → D
(F-E)(1-3D^2+2D^3)+E→H
“I=”:H×100→I◢
Goto 2←

说明：
1.本程序启动后询问加宽方式 “1.XXCG,2.GCCG”?.
按键⑴进入直线比例; 按键⑵进入高次抛物线方式.
2询问“QD”?：超高段起点桩号，“ZD” ? 超高段终点桩号
3询问“I1=”?，“I2=”? ， 数值输入时横坡度带正负号，起点路拱坡度-2.0％输入-2.0÷100，终点路拱坡度+2.0％输入2.0÷100
4询问“ZH” ? 待计算的断面桩号。C为变量。
5显示计算结果：为X％,计算断面的路拱横坡。
本来程序在4800上运行正常，偏偏在5800上以下步骤出问题了，非要改成下面的样子才能计算出正确的结果，求高人指点呀。
(F-E)(1-3D(2)+2D(3))+E→H
改成公式(F-E) ×(1-3D×D+2D×D×D) +E→H
由于复制过来，某些问题没表达清楚，特将原程序做成PDF文档，并附上图纸一套，设计图为线性超高，程序计算没问题，问题就是三次抛物线超高方式上了，除非改公式。

[ 本帖最后由 wo89207 于 2010-4-5 00:48 编辑 ]