可以给我个卡西欧5800计算器公路高程计算程序吗

可以给我个卡西欧5800计算器公路高程计算程序吗
可以给我个卡西欧5800计算器公路高程计算程序吗

可以给我个卡西欧5800计算器公路高程计算程序吗
（坐标正反算,程序模块化设计,可自行升级,扩展功能）
建议录入程序次序
KEYLOCK　 锁键程序　可独立测试能正常运行　1
DISPLAYXYZ 　主程序　　可独立测试能正常运行　2
READDAT　　　　要素数据库文件　（请改为自已路线的要素）　3
ZBJS 　　　　　坐标计算程序　4
INZHANDZBJS　　桩号、横距输入程序　5
TURNZH　　　　　坐标反算　　6
INNEZ 　　　　　实测坐标输入程序　　7
如正确输入以上程序,运行DISPLAYXYZ,按“0”进行坐标反算,按“.”进行坐标正算.
技术支持：Q285507730
FileName:INZHANDZBJS
//:桩号、横距输入程序://
Lbl S
Cls:Norm 1
"ZH"?G ;桩求桩号
"JL"?B ;输入横向距离
"JJ"?W ;输入斜桩角,一般为90
Wπ÷180→W
Prog"ZBJS" ;080702晚添加
Return
FileName：ZBJS 坐标计算程序
Prog"READDAT"
Rad
G-M→Q
0.5(R-A)÷L→K
AQ→I
KQ2→J
0.0469100770→P:H+IP+JP2→O
0.2307653449→P:H+IP+JP2→T
0.5→P :H+IP+JP2→D
0.7692346551→P:H+IP+JP2→F
0.9530899230→P:H+IP+JP2→P
0.1184634425→I
0.2393143352→J
0.2844444444→Y
N+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P))→X
E+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→Y
H+AQ+KQ2→F
X+BCos(F+W)→X
Y+BSin(F+W)→Y
Return
FileName:TURNZH(坐标反算)
Prog"INNEZ"
0→B：M+L÷2→G：Prog"ZBJS"
Lbi S:Rad
U-X→I:V-Y→J
If I=0 And J=0 :Then Goto A:IfEnd
Pol(I,J)
Lbi A:Rec(I,J-F)
G+I→G:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S↙
J→B
FileName：INNEZ 实测坐标输入程序
Lbl S
Norm 1:Cls
"DQD-N"?U 输入待求点N坐标
"DQD-E"?V 输入待求点E坐标
Return
FileName:KEYLOCK
//:本程序用于锁定键盘大部分按键,设定时间内无按键则反回默认健.只有“0”,“.”,“x10x”,“(-)”这四个键可用,为了更方便说明程序,以后将分别定义这四个键为热键
“0” ===F1
“.” ===F2
“x10x” ===F3
“(-)” ===F4
Exit 退出程序
://
1000→J ;无按键时间,5800设1000时大约为50秒.
Lbl S
0→I
Do:I+1→I:I≥J=>Goto E:LpWhile Not(Getkey=25 Or Getkey=26 OrGetkey=27 OrGetkey=57 OrGetkey=73)
Getkey=73=>Stop ;停止全部程序
Getkey=0=>Goto S
Getkey→I:Return
Lbl E
57→I:Retrutn ;默认按键值为F4
FileName:DISPLAYXYZ
//:,显示：桩号,N,E,Z,横向偏移.
热键功能
F1 快捷坐标反算
F2 快捷坐标正算
F3
F4
://
7→DimZ
Z[1]→N　当前分段要素N坐标
Z[2]→E　当前分段要素E坐标
Z[3]→M　当前分段要素起点桩号
Z[4]→H　当前分段要素起点方位角（正北）单位：弧度
Z[5]→A　当前分段要素起点曲率有左偏负右偏正（注意不是半径）
Z[6]→R　当前分段要素终点曲率有左偏负右偏正（注意不是半径）
Z[7]→L　当前分段要素长度
Lbl S:Cls:Fix 3
"ZH=":Locate 4,1,G
"N=":Locate 3,2,X
"E=":Locate 3,3,Y
"Z":Locate 2,4,Z　　　注意,本程序无高程计算.所以这句无意义.
Locate 10,4,B
Prog "KEYLOCK"
If I=25:Then Prog "TURNZH":Goto S:IfEnd ;定义F1功能
If I=26:Then Prog "INZHANDZBJS":Goto S:IfEnd ;定义F2功能
Goto S
FileName:READDAT　要素数据库文件
π÷180→J
GM+L=>Goto 1
Return
Lbi 1
If G