線元法計(jì)算器兼匝道程序

1、58005800計(jì)算程序計(jì)算程序主程序主程序QXJSQXJSLbI0:“1.SZ=XY”:“2.XY=SZ”“3.GC=SQX”:Q:Q=1=Goto1:Q=2=Goto2：Q=3=Goto3LbI1:“CE:X”G:“CEY:”H:Prog“XLXY”:LbIA:“K=”S:Prog“KM”：“B0B=”Z:“σ右交角=”M:Prog“SUB1”:Fix4:Cls“X=”:Locate31N◢“Y=”:Locate31E◢Prog“J

2、I”:GotoALbI2:“X=”B:“Y=”C:B→N:C→E:Prog“SUB2”:“K=”:S◢“B，0，B=”:Z◢Goto0LbI3:0→B:“HB”B:B→Z[9]:LbID:Prog“XLXY”:“KM”Z:Prog“KM”：“B0B”D:Prog“H”Fix5：“H=”:HZ[9]→H◢“I=”:I◢GotoD說(shuō)明：Q:代表正反算及豎曲線，其中1為正算，2為反算；3代表豎曲線；S:代表里程；Z：代表偏移距離；M：代表偏移

3、角度（以線路前進(jìn)方向?yàn)閄方向，順時(shí)針轉(zhuǎn)為正；N：X坐標(biāo)；E：Y坐標(biāo)；F：切線方位角；SUB1正算子程序0.5（1R1P）L→D:SO→XU∫(cos(A(XPDX2)180π0X)→NV∫(sin(A(XPDX2)180π0X)→ESUB0(數(shù)據(jù)庫(kù))Goto1↙Lbl1IFS157687.528:Then157547.528→o:2884169.2517→U:471475.6573→V:9832′43.08″→A:10^45→P:100

4、00；→R:140→L:Return:IfEnd說(shuō)明：S：里程；O為線元起點(diǎn)里程；U為線元起點(diǎn)X坐標(biāo)；V為線元起點(diǎn)Y坐標(biāo)；A線元起點(diǎn)切線方位角；P線元起點(diǎn)半徑（左轉(zhuǎn)為負(fù)右轉(zhuǎn)為正）；R線元終點(diǎn)半徑（左轉(zhuǎn)為負(fù)右轉(zhuǎn)為正）高程計(jì)算子程高程計(jì)算子程序（序（H）程序名：HProg“S1”:CT→F:ZF→S:CT→E:GTI→Q:IfT=O:ThenQSI→H:Goto0:ElseIfZF:ThenQSI→H:Goto0:ElseIfZ≤E:The

5、nQSIS22R→H:Goto0:LbI0:H:IfD=0:ThenGotoI:ElseProg“I”:HV→H:GotoILbII高程超高計(jì)算程序（高程超高計(jì)算程序（I）程序名：IIfZ[3]=1:ThenProg“I1”:Goto1:IfEndLbI1:IfW=1:ThenGotoZ:ElseGotoX:IfEndLbIZ:IfS=0:ThenAbs(D)M→V:Goto2:ElseAbs(D)((NM)(ZC)SM)→V:Goto