5800程序改TI-84

16805322

4-XY线路计算主程序
100→DimZ
Deg:Fix 6
“1=XY,2=KMD”:1→A:?A
If A=1:Then Goto A:IfEnd
If A=2:Then Goto B:IfEnd
Lal A
Prog:”4-XX”:”CZD(x)”?B:”CZD(Y)”?C
Do:“KM=”?Z:If Z=-1=>Stop:Z=-2=>Break:Prog”4-K”:”D=”?P:90→Q:”PJ=”?Q
Prog”4-QXYS”:0→Z[52]：？Z[52]:If Z[52]=1:Then Prog”4-QXXS”:IfEnd
Prog”4-Z”:Prog:”4-JS”
Prog “4-GC”: “H=”：H◢
LpWhile Z=-1
Lal B
Prog:”4-XX”:Do:＂KM=＂?Z：If Z=-1=>Stop:Z=-2=>Break:
Prog”4-K”:＂X0＂?U：＂Y0＂?V:10(45)→Z[25]:
Prog”4-FS”:＂KM=＂：Locate 6,4,Z：＂D=＂：Locate 6,4,Z[30]:＂FWJ=＂：Locate 3,1,Z[27]°◢
LpWhile Z =-1
4-XX选线程序
“0=New,1=X1,2=x2:1→A:?A→Z[51]
If A=0:Then“FWJ”?F:”JD(x)”?V:JD(y)”?E:JD(km)”?D:?R:”LS1”?S:”LS2”?T:”ZJ”?A:IfEnd
4-K线元判别程序
If Z[51]=1:Then Prog”4-X1”:IfEnd
If Z[51]=2:Then Prog”4-X2”:IfEnd
4-Z正算子程序
If Z≤Z[12]：Z[12]-Z→G
Z[18]+G×Cos(Z[17])+P×Cos(F+Q)→X：Z[19]+G×Sin(Z[17])+P×Sin(F+Q)→Y：F→Z[27] ：IfEnd
If Z≤Z[13]： Z-Z[12]→W：If A<0：Then -1→H：Else 1→H：IfEnd
(Z-Z[12])^(2)÷2÷R÷S×180÷π→Z[26]
F+Z[26]×H→Z[27]：W-W^(5)÷40÷R^(2)÷S^(2)→Z[28]：W^(3)÷6÷R÷S→Z[29]
Z[18]+Z[28]×Cos(F)-H×Z[29]×Sin(F)+P×Cos(Z[27]+Q)→X
Z[19]+Z[28]×Sin(F)+H×Z[29]×Cos(F)+P×Sin(Z[27]+Q)→Y：IfEnd
If Z≤Z[15]： Z-Z[12]→K：If A<0：Then -1→H：Else 1→H：IfEnd
((Z-Z[12])-0.5×S)÷R×180÷π→Z[32]
F+Z[32]×H→Z[33]：R×Sin(Z[32])+Z[7]→Z[34]：R×(1-Cos(Z[32]))+Z[5]→Z[35]
Z[18]+Z[34]×Cos(F)-H×Z[35]×Sin(F)+P×Cos(Z[33]+Q)→X
Z[19]+Z[34]×Sin(F)+H×Z[35]×Cos(F)+P×Sin(Z[33]+Q)→Y：Z[33]→Z[27] ：IfEnd
If Z≤Z[16]： Z[16]-Z→M：If A>0：Then -1→H：Else 1→H：IfEnd
Z[20]+180→Z[42]：If Z[42]>360：Then Z[42]-360→Z[42]：IfEnd
M^(2)÷2÷R÷T×180÷π→Z[38]：Z[20]+Z[38]×H→Z[39]
M-M^(5)÷40÷R^(2)÷T^(2)→Z[40]：M^(3)÷6÷R÷T→Z[41]
Z[21]+Z[40]×Cos(Z[42])-H×Z[41]×Sin(Z[42])+P×Cos(Z[39]+Q)→X
Z[23]+Z[40]×Sin(Z[42])+H×Z[41]×Cos(Z[42])+P×Sin(Z[39]+Q)→Y：Z[39]→Z[27] ：IfEnd
If Z≥Z[16]：Then Z-Z[16]→Ｏ:Z[21]+Ｏ×Cos(Z[20])+P×Cos(Z[20]+Q)→X：Z[23]+Ｏ×Sin(Z[20])+P×Sin(Z[20]+Q)→Y：Z[20]→Z[27]
4-FS反算子程序
0→P:0→Q:Prog"4-QXYS":Lbl1:Prog"4-Z":Prog"4-FS":Z[27]-90→Z[14]
(V-Y)×Cos(Z[14])-(U-X)×Sin(Z[14])→Z[25]
IfAbs(Z[25])>0.001:ThenZ+Z[25]→Z:Goto1:IfEnd:Else(Y-V)÷Sin(Z[14])→Z[30]:Prog"4-Z"
If Z[25]<0.001:Return:IfEnd
4-JS极坐标放样
Pol(X-B,Y-C):If J<0:Then J+360→Z[50]:Else J→Z[50]:IfEnd
Fix 6：”X=”:Locate 6，4，X
”Y=”:Locate 6，4，Y
＂FWJ=＂：Locate 3,1,Z[27]°◢
“FYJ=”:Z[50] DMS
“D=” ”:Locate 6，4，I◢
4-QXYS
S^(2)÷24÷R-S^(4)÷2688÷R^(3)→Z[5]：T^(2)÷24÷R-T^(4)÷2688÷R^(3)→Z[6]
S÷2-S^(3)÷240÷R^(2)→Z[7]：T÷2-T^(3)÷240÷R^(2)→Z[8]
90×S÷π÷R→Z[9]：90×T÷π÷R→Z[10]
(Abs(A)-Z[9]-Z[10])×R×π÷180→Z[2]
(R+Z[5])×tan(Abs(A)÷2)+(Z[6]-Z[5])÷sin(Abs(A))+Z[7]→Z[11]
(R+Z[6])×tan(Abs(A)÷2)+(Z[5]-Z[6])÷sin(Abs(A))+Z[8]→Z[22]
(R+Z[5])÷COS(Abs(A)÷2)-R→Z[1]
Z[2]+S+T→L：D-Z[11]→Z[12]：Z[12]+S→Z[13]：Z[13]+Z[2]→Z[15]：Z[12]+L→Z[16]
F+180→Z[17]：If Z[17]>360：Then Z[17]-360→Z[17]：IfEnd：N-Z[11]×Cos(F)→Z[18]：E-Z[11]
×Sin(F)→Z[19]
F+A→Z[20]：If Z[20]>360：Then Z[20]-360→Z[20]：IfEnd：N+Z[22]×Cos(Z[20])→Z[21]：E+Z[22]×Sin(Z[20])
→Z[23]
4-QXXS
＂T1=＂：Locate 4,1,Z[11]：＂T2=＂：Locate 4,2,Z[22]：＂E=＂：Locate 4,3,Z[1]：＂L=＂：Locate
4,4,L◢
＂ZH=＂：Locate 4,1,Z[12]：＂HY=＂：Locate 4,2,Z[13]：＂YH=＂：Locate 4,3,Z[15]：＂HZ=＂：Locate
4,4,Z[16]◢
4-F
Mat F[1,1]→D: Mat F[1,2]→N: Mat F[1,3]→E: Mat F[1,4]→F
Mat F[1,5]→R: Mat F[1,6]→S: Mat F[1,7]→T: Mat F[1,8]→A:
4-X1数据库
If Z<本交点HZ里程或者下一交点ZH里程：Then [[交点里程，交点X坐标，交点Y坐标，ZH点切线方位角，曲线半径，第一缓和曲线长，第二缓和曲线长，转角A]]→Mat F Prog”4-F”:Return:IfEnd
…………………………………………….
4-X2数据库
同X1数据库
4-GC高程计算程序

(If Z[51]=1:Then Prog”4-G1”Ifend:If Z[51]=2:Then Prog”4-G2”：Ifend

0.5RAbs（0.01(E-D）→T :
If   E>D : Then 1→C : Else  -1→C: IfEnd
If   S<A : Then -0.01D→W : Else 0.01E→W: IfEnd
Abs（A-S）→L
If   L>T : Then  B+WL→H  : Else   B+WL+C(T-L)2/2/R→H : IfEnd :Return
9.XG高程线路选择程序
If Z[3]=1:Then  Prog “GX1”:Return:IfEnd：If Z[3]=2:Then Prog “GX2”:Return:IfEnd :
10.高程数据库G1…….G2……GN……
If  S≤66894.3 :Then  -0.00052→D: 0→E : 67394.3→A : 67.37→B: 600000→R : Goto  2 : IfEnd↙
If S≤本段竖曲线终点里程 :Then  -0.0048→前坡D : -0.00052→后坡E : 68494.3→竖曲线交点里程A :66.8→交点高程B : 100000→曲率半径R : Goto  2 : IfEnd↙
………
依次类推，计算原始数据完成输入，坡度换算成小数

16805322

请有能力的朋友帮忙改个大概
一人一句也可以

liliang0992

改到是会改，我也试着改过5800的小程序程序，能正常运行和计算。例如坐标正算和坐标反算。但是改写像线路任意里程坐标计算程序和加数据库的程序能正常运行但计算错误。你能确定根据编程改处来的程序能在TI上运行。说不定就是徒劳。