曲线坐标5800计算器编辑程序内容(缓和曲线20xx版) 程序名:QXZB-(曲线坐标--)
?P:?Z:”ZH(X)”?G:”ZH(Y)”?H:?R:”LS1”?T:”ZH-JD”?K:”ZH”?N:”Ly”?L:”HZ(X)”?E:”HZ(Y)”?F:”LS2”?V:”HZ-JD”?Q:”Z+1,Y-1”?:B
LblA
?M:?S
IfM<N:ThenM=>GotoA:Ifend
IfM>(N+T+L+V): ThenM=>GotoA:Ifend
IfM>(N+T+L): ThenM=>GotoD:Ifend
IfM>(N+T): ThenM=>GotoC:Ifend
LblB(第一缓和曲线)
Abs(M-N)→W
W-W5÷(40R2T2)+W9÷(3456R4T4)→C ------------------------ -------支距X坐标
W3÷(6RT)-W7÷(336R3T3)+W11÷(42240R5T5)→D-------------支距Y坐标
90W2÷(πRT)→O--------------------------------------------------------------缓和曲线角
G+CcosK+BDsinK+Scos(K-BO-90)→X▲
H+CsinK-BDcosK+Ssin(K-BO-90)→Y▲
Pol((X-P),(Y-Z)):Cls---------------------------------------------------方位角和距离程序 IfJ<0:ThenJ+360 →J:ElseJ →J:Ifend:I▲ J ◆DMS▲ GotoA
LblC(圆曲线)
T-T3÷(40R2)+T5÷(3456R4)→C---------------------------ZH点到HY点支距X坐标 T2÷(6R)-T4÷(336R3)+T6÷(42240R5)→D-----------ZH点到HY点支距Y坐标
…… …… 余下全文