5800程序手中大全

5800计算器程序大全，手持天下，无人能敌A1-[Z-C-X] 程序名Deg:Fix 3:50→DimZ: “1=ZXCX （主线程序）4=ZBFS （坐标反算程序）2=ZDCX （匝道程序）5=HDCX （涵洞程序）3=ZBZS （坐标正算）6=HCX（高程程序）”?N:N=1 =>Prog “A2-[ZXCX]”:N=2=>Prog “A9-[ZDCX]-1”:N=3=>Prog “A4-[ZBZS]”:N=4=>Prog “A5-[ZBFS]”:N=5=>Prog “A10-[HDXC]”:N=6=>Prog “A7-[GCCX]”Goto 0A2-[ZDCX]-T(T匝道程序，与主线程序一样的）Deg：Fix3:30→DimZ:“1=[ZXCS] 1? (正算程序）2=[FSCS] 2”?M:M=1=>Goto 0 （反算程序）N=2=>GOto 4Lb1 0“[CZD-X]”?U : “[CZD-Y]”?VLb1 1“[FYZH]-KP”?PⅠf P<0:Then Stop:ⅠfEndⅠf P>2900:Then Stop:ⅠfEndProg “[ZDCX]-T11”（匝道程序T11的子程序曲线要素）Z[20]+O→Z[21]Prog “[ZXCX]-DKJS”（子程序里程计算）Prog “[ZXCX]-ZBJS”（子程序坐标计算）“[FYZH]-XP=”:F◢“[FYZH]-YP=”:G◢“[FYZH]-AP”:Z▲DMS◢Ⅰf U=0:Then Goto 0:E1se Po1(F-U,G-V): ⅠfEndLb1 2Ⅰf J<0:Then J+360→J: ⅠfEnd“[BJ]-A1=”: J▲DMS◢“[BJ]-D1=”: Ⅰ◢Lbl 3“[PJ]Z=-ZJ,Y=+ZJ”?H: Ⅰf H=0:Then Prog “A3-[FSCX]”: ⅠfEnd:“[FYJL]-D”?D“[FYZB]-XB=”:F+Dcos(Z+H)→Z[11]◢“[FYZB]-YB=”:G+Dsin(Z+H)→Z[12]◢Ⅰf U=0:Then Goto 0:E1se Po1 (Z[11]-U,Z[12]-V): ⅠfEndⅠf J<0:Then J+360→J: ⅠfEnd“[BJ]-A1=”:J▲DMS◢“[BJ]-D1=”:Ⅰ◢Goto 1Lbl 4“[BZZB]-XB”?U:“[BZZB]-YB”?V:“[SSZH-KP]”?P Lbl 5Prog “[ZDCX]-T11”Z[20]+O→Z[21]Prog “[ZXCX]-DKJS”Prog “[ZXCX]-ZBJS”Z-90→A(V-G)cos(A)-(U-F)sin(A)→HⅠf Abs(H)>0.0001:Then P+H→P:Goto 5: ⅠfEnb “[FS-K]=”:P◢“[FS-D]=”:(G-V)÷sin(A)→D◢Goto 4A2-[ZXCX] （主线程序）Deg:Fix 3:30→DimZ“A1=[ZSCX] 1? （正算程序）A2=[FSCX] 2? （反算程序）A3=[JDCX] 3”?M:M=1=>Goto 0 （交点程序）M=2=>Goto 4M=3=>Prog “A6-[JDCX]”Lbl 0“[CZD-X]”?U“[CZD-Y]”?VLbl 1“[FYZH]-KP”?PⅠf P<100901.422:Then Stop: ⅠfEndⅠf P>105817.289:Then Stop: ⅠfEndProg “[ZXCX]-QXYS”（主线程序子程序曲线要素）Z[20]+0→Z[21]Prog“[ZXCX]-DKJS”（主线程序子程序里程计算）Prog“[ZXCX]-ZBJS”（主线程序子程序坐标计算）“[FYZH]-XP=”：F◢“[FYZH]-YP=”：G◢“[FYZH]-AP=”：Z▲DMS◢Ⅰf U=0:Then Goto 0:E1se Pol(F-U,G-V): ⅠfEndLbl 2Ⅰf J<0:Then J+360→J: ⅠfEnd“[BJ]-A1=”:J▲DMS◢“[BJ]-D1=”:Ⅰ◢Lbl 3“[PJ]Z=-ZJ,Y=+ZJ”?H: Ⅰf H=0:Then Prog “A3-[FSCX]”: ⅠfEnd “[FYJL]-D”?D“[FYZB]-XB=”:F+Dcos(Z+H)→Z[11]◢“[FYZB]-YB=”:G+Dsin(Z+H)→Z[12]◢Ⅰf U=0:Then Goto 0:E1se Pol(Z[11]-U,Z[12]-V):I fEndI f J<0:Then J+360→J:I fEnd“[BJ]-A1=”:J▲DMS◢“[BJ]-D1=”:I◢Goto 1Lbl 4“[BZZB]-XB”?U:“[BZZB]-YB”?V:"[SSZH-KP]"?PLbl 5Prog “[ZXCX]-QXYS”Z[20]+O→Z[21]Prog “[ZXCX]-DKJS”Proger “[ZXCX]-ZBJS”Z-90→A(V-G)cos（A）-(U-F)sin（A）→HI f Abs(H)>0.0001:Then P+H→P:Goto 5:I fEnd“[FS-K]=”:P◢“[FS-D]=”(G-V)÷sin(A)→D◢Goto 4A3-[FSCX] （反算程序）“[BZZB]-XB”?U:“[BZZB]-YB”?V“[SSZH]-KP”?PLbl 9Prog “[ZXCX]-QXYS” (主线程序曲线要素）Z[20]+O→Z[19]Prog “[ZXCX]-DKJS”（主线程序里程计算）Prog “[ZXCX]-ZBJS”（主线程序坐标计算）Z-90→A(V-G)cos(A)-(U-F)sin(A)→HI f Abs(H)>0.0001:Then P+H→P:Goto 9:I fEnd“[FSZH]-K=”:P◢“[FSJL]-D=”:(G-V)÷sin(A)→D◢A4-[ZBZS] 坐标计算70→DimZLbl 1“X1”?A:“Y1”?B:“FWJ”?J“D1”?DLbl 2“X2=”:A+Dcos(J)→Z[41]◢“Y2=”:B+Dsin(J)→Z[42]◢Lbl 3“2FWJ=ZP-J,YP+J”?0:“D2”?PI f P=0:Then Goto 1:E1se0+J→Z[43]“X3=”:Z[41]+Pcos(Z[43])→Z[44]◢“Y3=”:Z[42]+Psin(Z[43])→Z[45]◢Lbl 4“3FWJ=ZP-J,YP+J”?E:“D3”?RI f R=0:Then Goto 1:E1seE+Z[43]→Z[46]“X4=”:Z[44]+Rcos(Z[46])→Z[47]◢“Y4=”:Z[45]+Rsin(Z[46])→Z[48]◢Lbl 5“FWJ=ZP-J,YP+J”?C:“D4”?FI f F=0:Then Goto 1：ElseC+Z[46]→Z[49]“X5=”:Z[47]+Fcos(Z[49])→Z[50]◢“Y5=”:Z[48]+Fsin(Z[49])→Z[51]◢Lbl 6“FWJ=ZP-J,YP+J”?C:“D5”?FI f F=0:Then Goto 1:E1seC+Z[49]→Z[52]“X6=”:Z[50]+Fcos(Z[52])→Z[53]◢“Y6=”:Z[51]+Fsin(Z[52])→Z[54]◢Lbl 7“FWJ=ZP-J,YP+J”?W:“D6”?VI f V=0:Then Goto 1:ElseW+Z[52]→Z[55]“X7=”:Z[53]+Vcos(Z[55])→Z[56]◢“X7=”:Z[54]+Vsin（Z[55]）→Z[57]◢Lbl 8“FWJ=ZP-J,YP+J”?W:“D7”?VI f V=0:Then Goto 1:ElseW+Z[55]→Z[58]“X8=”:Z[56]+Vcos(Z[58])→Z[59]◢“Y8=”:Z[57]+Vsin(Z[58])→Z[60]◢Lbl 9“FWJ=ZP-J,YP+J”?W:“D8”?VI f V=0:Then Goto 1:ElseW+Z[58]→Z[61]“X9=”:Z[59]+Vcos(Z[61])→Z[62]◢“Y9=”:Z[60]+Vsin(Z[61])→Z[63]◢Lbl A“FWJ=ZP-J,YP+J”?R:“D10”?QI f Q=0:Then Goto 1:ElseR+Z[61]→Z[64]“X10=”:Z[62]+Qcos(Z[64])→Z[65]◢“Y10=”:Z[63]+Qsin(Z[64])→Z[66]◢Goto 1A5-[ZBFS] 坐标反算程序Lbl 0“AX”?R:“AY”?S:“BX”?T:“BY”?UPol(T-R,U-S):J<0=>J+360→J“D=”:I◢“J=”:J▲DMS◢Goto 0A6-[JDCX] 交点程序Deg:Fix 3:26→DimZ“X(JD1)”?X:“Y(JD1)”?Y:“X(JD0)”?M:“Y(JD0)”?NProg “[ZXCX]-LCJS” (里程计算子程序）Pol(X-M,Y-N):J→Z[20]:J+0→Z[19]X-Scos(Z[20]→Z[21]：Y-Ssin(Z[20])→Z[22]X+Tcos(Z[19])→Z[23]:Y+Tsin(Z[19])→Z[24]“[CZD→XZB]→XO”?U:“[CZD→YZB]→YO”?VLbl 0“FXZH→KP”?P:I f P>Z[1]:Then Goto 1:I fEndZ[1]-P→L“FXZH→XP=”:X-(S+L)cos(Z[20])→F◢“FXZH→YP=”:Y-(S+L)sin(Z[20])→G◢Z[20]→Z:Goto 5Lbl 1I f P>Z[2]:Then Goto 2：I fEndP-Z[1]→L:L→Z[14]:B→Z[15]:Prog “[ZXCX]-QXJS”“XP=”:Z[21]+Z[16]cos(Z[20])-WZ[17]sin(Z[20])→F◢“YP=”:Z[22]+Z[16]sin(Z[20])+WZ[17]cos(Z[20])→G◢Z[20]+90WL2÷(BRπ)→ZGoto 5Lbl 2I f P>Z[4]:Then Goto 3:I fEndP-Z[1]→L:90(2L-B)÷R÷π→Z[13]Rsin(Z[13])+Z[8]→Z[16]:R(1-cos(Z[13]))+Z[6]→Z[17]“[ZZZB]-XP=”:Z[21]+Z[16]cos(Z[20])-WZ[17]sin(Z[20])→F◢“[ZZZB]-YP=”:Z[22]+Z[16]sin(Z[20])+WZ[17]cos(Z[20])→G◢Z[20]+WZ[13]→ZGoto 5Lbl 3I f P>Z[5]:Then Goto 4:I fEndZ[5]-P→L:L→Z[14]:C→Z[15]:Prog “[ZXCX]-QXJS”“XP=”:Z[23]-Z[16]cos（Z[19]）-WZ[17]sin(Z[19]→F◢“YP=”:Z[24]-Z[16]sin(Z[19]+WZ[17]cos(Z[19])→G◢2÷(CRπ)→ZZ[19]-90WLGoto 5Lbl 4P-Z[5]→L“XP=”:X+(T+L)cos(Z[19])→F◢“YP=”:Y+(T+L)sin(Z[19])→G◢Z[19]→ZLbl 5I f Z>0:Then Z+360→Z:I fEnd“A=”:Z▲DMS◢I f U=0:Then Goto 7:Else Pol(F-U,G-V):I fEndLbl 6I f J<0:Then J+360→J:I fEnd“A1=”:J▲DMS◢“D1=”:I◢Lbl 7“ZJ(ZZ=-?,YZ=+?)”?H:I f H=0:Then Goto 0:I fEnd:“FYJL→D”?D“[BZZB]-XB=”:F+Dcos(Z+H)→Z[11]◢“[BZZB]-YB=”:G+Dsin(Z+H)→Z[12]◢I f U=0:Then Goto 7:Else Pol(Z[11]-U,Z[12]-V):I f J<0:Then J+360→J:I fEnd “A1=”:J▲DMS◢“D1=”:I◢I fEndGoto 0A7-[GCCX] 数曲线程序Fix 3Deg:Fix 3:50→DimZ: "A1-[GCCX] =1A2-[JDGC] =2" ?N:N=1 =>GOTO 1:N=2=>Prog “A9-[JDGC]”Lbl 1“DK=”?KI f K<100900:Then Stop:I fEnd:I f K>105720:Then Stop:I fEnd:Prog “[GCCX]-GCSJ”（高程计算子程序）S-K→L:A-B→W:Abc((RxW)÷2)→T:S-T→C:S+T→DI f K≤C:Then G-LXB→H:Goto 5:Else I f K≤S:Then Goto 3:Else I fK≤D:Then Goto 4 : I fEnd:I fEnd:I fEndLbl 3I f W>0:Then G+(K-C)2÷(2R)-LxB→H:Goto 5:Else I f W<0:Then G-(K-C)2÷(2R)-LxB→H:Goto 5:I fEnd:I Fend Lbl 4I f W>0:Then G+(D-K)2÷(2R)-LxA→H:Goto 5:Else I f W<0:Then G-(D-K)2÷(2R)-LxA→H:Goto 5I fEnd:I fEndLbl 5“H=”:H◢“D= ZB=D,YB=D”?Y:“i=”?J“BH=”:H+((Y-1-0.75)XJ)-0.75x0.04→Q◢“h”?M“BH,+,-h=”:Q+M◢Goto 1A9-[HDCX] 暂无编制？A9-[ZDCX]-1 匝道程序第一个，无须输入曲线要素，已用子程序编制好了Deg:Fix 3Lbl 1Cls:“A1-[ZDCX]-1? A2-[ZDCX]-2? A3-[ZDCX]-3”?GG=2=>Prog “A9-[ZDCX]-2”（进入第二个匝道程序）G=3=>Prog “A9-[ZDCX]-3”（进入第三个匝道程序）Lbl 2Cls:“1.A1-[ZDCX] 2.A2-[ZDFS]”?→Q:Q=2=>Goto 3 (一个正算，一个反算）Cls:“1=A 2=B 3=C 4=D 5=E 6=G 7=I 8=P 9=Y 10=Z 11=T 12=YHQ”?→I I=11=>Prog “A2-[ZDCX]-T”（选择各种匝道，进入匝道）Cls:“[CZD-X]”?H:“[CZD-Y]”?ZI=1=>Goto AI=2=>Goto DI=3=>Goto CI=4=>Goto BI=5=>Goto EI=6=>Goto GI=7=>Goto II=8=>Goto PI=9=>Goto YI=10=>Goto ZI=12=>Goto HLbl A:Cls:“[FYZH]-KP”?KI f K<0:Then Stop I fEndI f K>645.65:Then Stop: I fEndProg “[ZDCX]-A1”（匝道程序子程序A匝道曲线要素）Cls:90→B:Cls:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2:“[D]Z=-D,Y=+D”?TProg “[ZDCX]-C”（匝道程序子程序计算）Goto ALbl B:Cls:“[FYZH]-KP”?KI f K<0:Then Stop:I fEndI f K>453.81:Then Stop:I fEndProg “[ZDCX]-D4”（匝道程序子程序B匝道曲线要素）Cls:90→B:Cls“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2:“[D]Z=-DIY=+D”?TProg “[ZDCX]-C”Goto BLbl C:Cls:“[FYZH]-KP”?KI f K<0:Then Stop:I fEndI f K>387.98:Then Stop:I fEndProg “[ZDCX]-C3”:Cls:90→B:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2:“[D]Z=-D,Y=+D”?T Prog “[ZDCX]-C”（匝道程序子程序C匝道曲线要素）Goto CLbl D:Cls:“[FYZH]-KP”?KI f K<0:Then Stop:I fEndI f K>299.55:Then Stop:I fEndProg “[ZDCX]-B2”:Cls:90→B:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2“[D]Z=-D,Y=+D”?T Prog “[ZDCX]-C”（匝道程序子程序D匝道曲线要素）Goto DLbl E:Cls:“[FYZH]-KP”?KI f K<0:Then Stop:I fEndI f K>434.25:Then Stop:I fEndProg “[ZDCX]-E5”:Cls:90→B:Cls:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2:“[D]Z=-D,Y=+D”?T （匝道程序子程序E匝道曲线要素）Prog “[ZDCX]-C”Goto ELbl G:Cls:“[FYZH]-KP”?KI f K>340:Then Stop:I fEndProg “[ZDCX]-G6”:Cls:90→B:Cls:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2:“[D]Z=-D,Y=+D”?TProg “[ZDCX]-C”（匝道程序子程序G匝道曲线要素）Goto GLbl I:Cls:“[FYCX]-KP”?KI f K>640.64:Then Stop:I fEndProg “[ZDCX]-I7”:Cls:90→B:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2:“[D]Z=-D,Y=+D“?T Prog “[ZDCX]-C" （匝道程序子程序I匝道曲线要素）Goto ILbl P:Cls:“[FYZH]-KP”?KI f K>200:Then Stop:I fEndProg “[ZDCX]-P8”:Cls:90→B:Cls“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2:“[D]Z=-D,Y=+D”?T （匝道程序子程序P匝道曲线要素）Prog “[ZDCX]-C”Goto PLbl Y:Cls“[FYZH]-KP”?KI f K>655.74:Then Stop:I fEndProg “[ZDCX]-Y9”:Cls:90→B:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2“[D]Z=-D,Y=+D”?T:Prog “[ZDCX]-C”（匝道程序子程序Y匝道曲线要素）Goto YLbl Z:Cls:“[FYZH]-KP”?KI f K>774.77:Then Stop:I fEnd:Prog“[ZDCX]-Z10”:Cls:90→B:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2“[D]Z=-D,Y=+D”?T:Prog “[ZDCX]-C”Goto Z （匝道程序子程序Z匝道曲线要素）Lbl H:Cls:“[FYZH]-KP”?KI f K<0:Then Stop:I fEndProg “[ZDCX]-YY”（匝道程序子程序养护区曲线要素）Cls:90→B:Cls:“[PJ]Z=-ZJ,Y=+ZJ”?B:B=0=>Goto 2:“[D]Z=-D,Y=+D”?TProg“[ZDCX]-C”Goto HLbl 3Cls:“1=A 2=B 3=C 4=D 5=E 6=G 7=I 8=P 9=Y 10=Z 11=T 12=YHQ”?→I Lbl 4I=11=>Prog “A2-[ZDCX]-T”（匝道程序子程序T）Cls:“[BZZB]-XB”?C:“[BZZB]-YB”?D“[SSZH]-KP”？KI f K<0:Then Goto 2:I fEndLbl 5I=1=>Prog “[ZDCX]-A1”I=2=>Prog “[ZDCX]-B2”I=3=>Prog “[ZDCX]-C3”I=4=>Prog “[ZDCX]-D4”I=5=>Prog “[ZDCX]-E5”I=6=>Prog “[ZDCX]-G6”I=7=>Prog “[ZDCX]-I7”I=8=>Prog “[ZDCX]-P8”I=9=>Prog “[ZDCX]-Y9”I=10=>Prog “[ZDCX]-Z10”I=12=>Prog“[ZDCX]-YY”Prog“[ZDCX]-A”(D-Y)sin(M)+(C-X)cos(M)→HI f Abs(H)>0.001:Then K+H→K:Goto 5:I fEnd(D-Y)÷cos(M)→T3→0:Prog “[ZDCX]-B”:Goto 4A9-[ZDCX]-2 第二个匝道程序“QD-K”?A:“ZD-K”?L:“QD-X”?U:“ZD-Y”?V:“QD-FWJ”?W:“QD-R”?P:“ZD-R”?Q:“ZX:-1,+1,0”?G1→0:Prog “[ZDCX]-B”（子程序计算)Cls:“A1-[ZDZS]? A2-[ZDFS]”?I:I=2=>Goto 3Cls:“[CZD-X]”?H:“[CZD-Y]”?ZLbl 1:Cls:“[FYZH]-KP”?KLbl 2:Cls:90→B:Cls:“[PJ]Z=-ZJ,Y=+ZJ”?B:I f B=0:Then Goto A:I fEnd:“[D]Z=-D,Y=+D”?TProg “[ZDCX]-A”（子程序计算）X+Tcos(M+B)→XY+Tsin(M+B)→Y360Frac((M+360)÷360→MPol(X-H,Y-Z:360Frac((J+360)÷360→J2→0:Prog “[ZDCX]-B”Goto 1Lbl 3:Cls:“XB”?C:“YB”?DLbl 4I f K>L 0r K<A:Then Cls:Locate 6,2,“K OUT”◢Stop:I fEndProg “[ZDCX]-A”(D-Y)sin(M)+(C-X)cos(M)→HI f Abs(H)>x10-3:Then K+H→K:Goto 4:I fEnd(D-Y)÷cos(M)→T3→O:Prog “[ZDCX]-B”:Goto 3A9-[ZDCX]-3 第三个匝道程序Deg:Fix 3:2→DimZ“QD-X”?W:“QD-Y”?Y:“QD-FWJ”?Q:“QD-K”?S:“ZD-K”?EE-S→C:0→A:0→B“QD-R”?R:I f R≠0:Then 1÷R→A:I fEnd“ZD-R”?T:I f T≠0:Then 1÷T→B:I fEnd“[CZD-XZB]”?U:“[CZD-YZB]”?VLbl 0“[FYZH]-KP”?P:P-S→LI f P>E Or P<S:Then Cls:Locate 6,2,“K OUT”◢Stop:I fEnd“X=”:W+∫(cos(Q+180AX÷π+90（B-A）X 2÷C÷π),0,L)→F◢ 0等于零“Y=”:Y+∫(sin(Q+180AX÷π+90（B-A）X 2÷C÷π),0,L)◢ 0等于零Q+180AL÷π+90(B-A)L 2÷C÷π→ZI F Z<0:Then Z+360→Z:I fEnd“ao=”:Z▲DMS◢I f U=0:Then Goto 2:Else Pol(F-U,G-V):I fEnd Lbl 1I f J<0:Then J+360→J:I fEnd“BJ-A1=”:J▲DMS◢“BJ-D1=”:I◢Lbl 2“ZJ(ZZ=-J,YZ=+J)”?H：I f H=0:Then Goto 0:I fEnd:?D“[BZZB-XB]=”:F+Dcos(Z+H)→Z[1]◢“[BZZB-YB]=”:G+Dsin(Z+H)→Z[2]◢I f U=0:Then Goto 2:Else Pol(Z[1]-U,Z[2]-V):I fEndGoto 1[GCCX]-GCSJ 数曲线程序Lbl 1I f K<101100:Then -0.038→A:-0.03→B:25000→R:101000→S:362.31→G:Return:I fEndLbl 2I f K<101572.5:Then -0.035→B:-0.015→A:15000→R:101400→S:347.11→G:Return:I fEndLbl 3I f K<102120:Then -0.015→A:0.005→B:12000→R:102000→S:338.11→G:Return:I fEndLbl 4I f K<102735:Then 0.005→B::-0.022→A:10000→R:102600→S:341.11→G:Return:I fEndLbl 5I f K<103265:Then -0.022→B:0.011→A:10000→R:103100→S:330.11→G:Return:I fEndLbl 6I f K<104044.4:Then 0.011→B:-0.0214→A:12000→R:103850→S:338.36→G:Return:I fEndLbl 7I f K<105003.4:Then -0.0214→B:0.0125→A:12000→R:104800→S:318.03→G:Return:I fEndLbl 8I f K<105668.75:Then 0.0125→B:0.005→A:45000→R:105500→S:326.78→G:Return:I fEnd[ZDCX]-A 匝道程序主程序的子程序计算5→N:G(Q-1-P-1)÷Abs(L-A)→F:Abs(K-A)÷N→R:90R÷π→S:W+(FNR+2GP-1)NS→M:1→EU+R÷6x(cos(W)+cos(M)+4Σ(cos(W+((E+0.5)FR+2GP-1)x(E+0.5)S),E,0,(N-1))+2Σ(cos(W+((EFR+2GP-1)ES,E,1,(N-1)))→XV+R÷6x(sin(W)+sin(M)+4Σ(sin((E+0.5)FR+2GP-1)x（E+0.5）S）,E,0,(N-1))+2Σ(sin(W+((EFR+2GP-1)ES,E,1,(N-1))）→Y[ZDCX]-A1Lbl AI f K≥0:Then 0→A:50.15→L:2843405.34→U:503100.77→V:6°23′51″→W:51→P:51→Q:1→G:I fEndLbl BI f K≥50.15:Then 50.15→A:102.74→L:2843444.99→U:503128.09→V:62°44′09″→W:51→P:200→Q:1→G:I fEndLbl C:I f K≥102.74:Then 102.74→A:277.99→L:2843449.53→U:503179.54→V:99°48′31″→W:200→P:200→Q:1→G:I fEndLbl D:I f K≥277.99:Then 277.99→A:353.84→L:2843352.40→U:503318.70→V:150°0′56″→W:200→P:x1045→Q:1→G:I fEndLbl E:I f K≥353.84:Then 353.84→A:429.69→L:2843282.56→U:503347.98→V:160°52′49″→W:x1045→P:-200→Q:1→G:I fEbdLbl F:I f K≥429.69:Then 429.69→A:645.65→L”2843212.72→U:503377.25→V:150°0′56″→W:-200→P:-200→Q:1→G:I fEnd[ZDCX]-B （匝道程序计算子程序）Cls:Fix 3:I f O=1:Then “[QX]-[YS]:=>”:“QD K=”:“ZD K=”:“QD F=”:Locate 6,2,A:Locate6,3,L:Locate 6,4,W◢Cls:“QD X=”:“QD Y=”:“QD R=”:“ZD R=”:Locate 6,1,U:Locate 6,2,V:Locate 6,3,GP:Locate 6,4,GQ◢I fEndI f O=2ThenCls:“[FY]-PK=”:“[FY]-PD=”:“X=”:“Y=”:Locate 10,1,K:Locate 10,2,T:Locate 4,3,X:Locate 4,4,Y◢I f T=0:Then Cls:“FWJ(Z)=”:Locate 8,1,M:M▲DMS◢I fEndCls:“[FY]-PK=”:“[BJ]-D1=”:Locate 10,1,K:Locate 10,2,I:“[BJ]-A1=”:J:J▲DMS ◢I fEndI f O=3:Then “X=”:“Y=”0:“JS-K=”:“JS-D=”:Locate 4,1,C:Locate 4,2,D:Locate 6,3,K:Locate 6,4,T◢I fEnd:Cls[ZDCX]-B2 （匝道程序曲线要素子chengxu)I f K≥0:Then 0→A:60.31→L:2843405.52→U:503099.78→V:186°28′20″→W:-52→P:x1045→Q:1→G:I fEndI f K≥60.31:Then 60.31→A:100.31→L:2843348.33→U：503115.87→V:153°14′50″→W:x1045→P:160→Q:1→G:I fEndI f K ≥100.31:Then 100.31→A:177.05→L:2843311.92→U:503132.36→V:160°24′34″→W:160→P:160→Q:1→G:I fEndI f K ≥177.05:Then 177.05→A:299.55→L:2843236.30→U:503140.10→V:187°53′28″→W:160→P ：x1045→Q:1→G:I fEnd[ZDCX]-C （ 匝道程序 子程序） Prog “[ZDCX]-A ” X+Tcos(M+B)→X Y+Tsin(M+B)→Y360Frac((M+360)÷360→MPol(X-H,Y-Z:360Frac((J+360)÷360→J 2→O:Prog “[ZDCX]-B ”[ZDCX]-C3 （子程序，曲线要素）I f K ≥0:Then 0→A:110.08→L:2843568.92→U:503348.62→V:212°41′14″→W:x1045→P:x1045→Q:1→G:I fEndI f K ≥110.08:Then 110.08→A:166.33→L:2843476.28→U:503289.17→V:212°41′14″→W:x1045→P:400→Q:1→G:I fEndI f K ≥166.33:Then 166.33→A:224.77→L:2843429.67→U:503257.70→V:216°42′57″→W:400→P:400→Q:1→G:I fEndI f K ≥224.77:Then 224.77→A:315.96→L ：2843385.54→U:503219.47→V:225°5′12″→W:400→P:50→Q:1→G:I fEndI f K ≥315.96:Then 315.96→A:387.89→L ：2843351.12→U:503139.46→V:283°52′10″→W:50→P:50→Q:1→G:I fEnd[ZDCX]-D4 （子程序，曲线要素）Lbl A:I f K ≥0:Then 0→A:150.73→L:2843091.00→U:503096.53→V:32°20′30″→W:x1045→P:x1045→Q:1→G:I fEndLbl B:I f K ≥150.73:Then 150.73→A:200.73→L:2843218.35→U:503177.17→V:32°20′30″→W:x1045→P:200→Q:1→G:I fEndLbl C:I f K ≥200.73:Then 200.73→A:239.92→L:2843259.41→U:503205.64→V:39°30′13″→W:200→P:200→Q:1→G:I fEnd Lbl D:I f K ≥239.92:Then 239.92→A:281.92→L:2843287.02→U:503233.36→V:50°43′51″→W:200→P:60→Q:1→G:I fEndLbl E:I f K≥281.92:Then 281.92→A:332.53→L:2843306.94→U:503269.92→V:76°48′1″→W:60→P:60→Q:1→G:I fEndLbl F:I f K≥332.53:Then 332.53→A:392.53→L:2843297.59→U:503318.14→V:125°7′47″→W:60→P:x1045→Q:1→G:I fEndLbl G:I f K≥392.53:Then 392.53→A:453.81→L:2843249.44→U:503352.81→V:153°46′39″→W:x1045→P:-204.5→Q:1→G:I fEnd[ZDCX]-E5 （子程序，曲线要素）I f K≥0:Then 0→A:146.43→L:2843230.80→U:503372.95→V:335°14′32″→W:195.5→P:x1045→Q:1→G:I fEndI f K≥146.43：Then 146.43→A:241.85→L:2843373.9→U:503346.57→V:356°41′57″→W:x1045→P:300→Q:1→G:I fEndI f K≥241.85:Then 241.85→A:300.92→L:2843469.22→U:503346.13→V:5°48′41″→W:300→P:300→Q:1→G:I fEndI f K≥300.92:Then 300.92→A:434.25→L:2843527.02→U:503357.84→V:17°5′32″→W:300→P:x1045→Q:1→G:I fEnd[ZDCX]-G6 （子程序，曲线要素）I f K≥0:Then 0→A:161.23→L:2841995.44→U:503341.76→V:200°30′31″→W:x1045→P:x1045→Q:1→G:I fEndI f K≥161.23:Then 161.23→A:237.99→L:2841844.43→U:503285.28→V:200°30′31″→W:1500→P:1500→Q:1→G:I fEndI f K≥237.99:Then 237.99→A:340→L:2841773.25→U:503256.55→V:203°26′27″→W:x1045→P:x1045→Q:1→G:I fEnd[ZDCX]-I7 （子程序，曲线要素）I f K≥0:Then 0→A:24.94→L:2843576.30→U:503056.05→V:131°29′4″→W:x1045°→P:x1045→Q:1→G:I fEndI f K≥24.94:Then 24.94→A:56.19→L:2843559.78→U:503074.73→V:131°29′4″→W:x1045→P:80→Q:1→G:I fEndI f K≥56.19:Then 56.19→A:138.69→L:2843537→U:503096.71→V:142°40′30″→W:80→P:80→Q:1→G:I fEndI f K≥138.69:Then 138.69→A:169.94→L:2843459.47→U:503107.39→V:201°45′53″→W:80→P：x1045→Q:1→G:I fEndI f K≥169.94:Then 169.94→A:198.77→L:2843432.24→U:503092.16→V:212°57′19″→W:x1045→P:70→Q:-1→G:I fEndI f K≥198.77:Then 198.77→A:279.78→L:2843407.08→U:503078.20→V:201°9′33″→W:-70→P:-70→Q:1→G:I fEndI f K≥279.78:Then 279.78→A:308.6→L:2843332.19→U:503094.12→V:134°50′49″→W:-70→P:x1045→Q:1→G:I fEndI f K≥308.6:Then 308.6→A:408.72→L:2843314.88→U:503117.1→V:123°3′2″→W:x1045→P:x1045→Q:1→G:I fEndI f K≥408.72:Then 408.72→A:437.65→L:2843260.28→U:503201.01→V:123°3′2″→W:x1045→P:70→Q:1→G:I fEndI f K≥437.65:Then 437.65→A:483.55→L:2843242.91→U:503224.08→V:134°53′23″→W:70→P:70→Q:1→G:I fEndI f K≥483.55:Then 483.55→A:512.47→L:2843202.5→U：503244.07→V:172°27′28″→W:70→P:x1045→Q:1→G:I fEndI f K≥512.47:Then 512.47→A:536.40→L:2843173.63→U:503243.89→V:184°17′49″→W:x1045→P:-130→Q:1→G:I fEndI f K≥536.4:Then 536.4→A:574.29→L:2843149.73→U:503242.83→V:179°1′28″→W:-130→P:-130→Q:1→G:I fEndI f K≥574.29:Then 574.29→A:598.22→L:2843112.48→U:503248.95→V:162°19′32″→W:-130→P:x1045→Q:1→G:I fEndI f K≥598.22:Then 598.22→A:640.64→L:2843090.18→U:503257.59→V:157°3′10″→W:x1045→P:x1045→Q:1→G:I fEnd[ZDCX]-P8I f K≥0:Then 0→A:200→L:2843196.1→U:503734.53→V:196°38′9″→W:x1045→P:x1045→Q:1→G:I fEnd[ZDCX]-T11（子程序，曲线要素）Lbl AI f P<119.3:Then 19°44′59″→O:230→R:40.02→B:40.02→C:60.09→K:2843727.22→X:504351.22→Y:198°04′11″→Z[20]:Return:I fEndLbl BI f P<204.94:Then -21°42′34″→O:150→R:28.8→B:28.8→C:162.5→K:2843645.62→X:504287.88→Y:217°49′10″→Z[20]:Return:I fEndLbl CI f P<293.23:Then 48°35′19″→O:70→R:28.93→B:28.93→C:251.20→K:2843559.66→X:504263.05→Y:196°06′36″→Z[20]:Return:I fEndLbl DI f P<425.01:Then -23°54′27″→O:130→R:27.69→B:27.69→C:384.48→K:2843500.89→X:504138.72→Y:244°41′55″→Z[20]:Return:I fEndLbl EI f P<546.3:Then 13°52′17″→O:350→R:0→B:0→C:504.14→K:2843409.62→X:504059.97→Y:220°47′28″→Z[20]:Return:I fEndLbl FI f P<666.82:Then 28°45′41″→O:130→R:27.69→B:27.69→C:621.1→K:2843341.73→X:503964.21→Y:234°39′45″→Z[20]:Return:I fEndLbl GI f P<761.65:Then -38°30′24″→O:100→R:27.63→B:27.63→C:713.66→K:2843330.73→X:503868.76→Y:263°25′26″→Z[20]:Return:I fEndLbl HI f P<1104.35:Then 43°13′46″→O:160→R:62.5→B:62.5→C:1016.14→K:2843115.93→X:503654.59→Y:224°55′02″→Z[20]:Return:I fEndLbl II f P<1334.16:Then -20°40′05″→O:300→R:56.33→B:56.33→C:1252.55→K:2843108.07→X:503411.5→Y:268°05′48″→Z[20]:Return:I fEndLbl JI f P<1563.16:Then -88°23′57″→O:70→R:35.71→B:35.71→C:1506.07→K:2843010.45→X:503176.08→Y:247°28′43″→Z[20]:Return:I fEndLbl KI f P<1753:Then -18°04′16″→O:220→R:36.82→B:36.82→C:1700.22→K:2842801.51→X:503255.96→Y:159°04′46″→Z[20]:Return:I fEndLbl LI f P<1897.17:Then 65°07′08″→O:65→R:31.15→B:31.15→C:1849.59→K:2842684.91→X:503350.35→Y:141°0′30″→Z[20]:Return:I fEndLbl MI f P<2117.57:Then -15°12′46″→O:350→R:48.33→B:48.33→C:2047.25→K:2842498.59→X:503258.96→Y:206°07′38″→Z[20]:Return:I fEndLbl NI f P<2253.19:Then 18°54′31″→O:280→R:43.21→B:43.21→C:2185.84→K:2842361.9→X:503232.6→Y:190°54′52″→Z[20]:Return:I fEndLbl OI f P<2499.64:Then -22°01′14″→O:200→R:40.5→B:40.5→C:2441.5→K:2842139.29→X:503105→Y:209°49′23″→Z[20]:Return:I fEndLbl PI f P<2897.19:Then -79°59′46″→O:80→R:45→B:45→C:2708.44→K:2841873.75→X:503068.61→Y:187°48′09″→Z[20]Return:I fEnd[ZDCX]-Y9 （子程序，曲线要素）I f K≥0:Then 0→A:110→L:2846164.839→U:505591.374→V:230°58′24″→W:x1045→P:x1045→Q:1→G:I fEndI f K≥110:Then 110→A:136.62→L:2846095.574→U:505505.920→V:230°58′24″→W:1200→P:1200→Q:1→G:I fEndI f K≥136.62:Then 136.62→A:298.03→L:2846079.041→U:505485.054→V:232°14′40″→W:-600→P:-600→Q:1→G:I fEndI f K≥298.03:Then 298.03→A:410.66→L:2845964.339→U:505372.188→V:216°49′53″→W:-1229→P:-1229→Q:1→G:I fEndI f K≥410.66:Then 410.66→A:563.91→L:2845871.226→U:505308.894→V:210°12′14″→W:-600→P:-600→Q:1→G:I fEndI f K≥563.91:Then 563.91→A:589.07→L:2845730.419→U:505249.454→V:195°34′08″→W:600→P:600→Q:1→G:I fEndI f K≥589.07:Then 589.07→A:655.74→L:2845706.331→U:505242.195→V:197°58′18″→W:600→P:x1045→Q:1→G:I fEnd[ZDCX]-YYI f K ≥0:Then 0→A:33.689→L:2843221.803→U:503392.190→V:63°23′05.7″→W:x1045→P:x1045→Q:1→G:I fEndI f K ≥33.689:Then 33.689→A:232.903→L:2843236.896→U:503422.309→V:0°37′22.1″→W:x1045→P:x1045→G:1→G:I fEndI f K ≥232.903:Then 232.903→A:306.409→L:2843436.098→U:503424.475→V:275°02′18.0″→W:x1045→P:x1045→Q:1→G:I fEnd[ZDCX]-Z10 （子程序，曲线要素）I f K ≥0:Then 0→A:111.17→L:2845550.785→U:505205.919→V:22°59′33″→W:x1045→P:x1045→Q:1→G:I fEndI f K ≥111.17:Then 111.17→A:222.84→L:2845653.125→U:505249.344→V:22°59′33″→W:600→P:600→Q:1→G:I fEndI f K ≥222.84:Then 222.84→A:483.59→L:2845751.285→U:505302.251→V:33°39′23″→W:x1045→P:x1045→Q:1→G:I fEndI f K ≥483.59:Then 483.59→A:586.46→L:2845968.325→U:505446.76→V:33°39′23″→W:x1045→P:600→Q:1→G:I fEndI f K ≥586.46:Then 586.46→A:633.68→L:2846052.262→U:505506.176→V:38°34′5″→W:600→P:600→Q:1→G:I fEndI f K ≥633.68:Then 633.68→A:774.77→L:2846087.984→U:505537.036→V:43°04′37″→W:600→P:1190.5→Q:I fEnd[ZXCX]-DKJS 主线程序里程计算 I f O<0:Then -1→W:Else 1→W:I fEnd:WO →AB 2÷24÷R-B ˄ (4)÷2688÷R ˄(3)+B ˄(6)÷506880÷R ˄(5)→Z[6] C 2÷24÷R-C ˄(4)÷2688÷R ˄(3)+C ˄(6)÷506880÷R ˄(5)→Z[7] B ÷2-B ˄(3)÷240÷R 2+B ˄(5)÷34560÷R ˄(4)→Z[8] C ÷2-C ˄(3)÷240÷R 2+C ˄(5)÷34560÷R ˄(4)→Z[9] Z[8]+(R+Z[7]-(R+Z[6])cos(A))÷sin(A)→S Z[9]+(R+Z[6]-(R+Z[7])cos(A))÷sin(A)→TRAπ÷180+（B+C)÷2→LL-B-C→Q(R+(Z[6]+Z[7])÷2）÷cos(A÷2）-R→EK-S→Z[1]Z[1]+B→Z[2]Z[2]+Q÷2→Z[3]Z[1]+L-C→Z[4]Z[4]+C→Z[5][ZXCX]-LCJS 交点程序"PJ"?O:?R"LS1"?B:"LS2"?C:"K(JD1)"?KI f O<0:Then -1→W:Else 1→W:I fEnd:WO→AB2÷24÷R-B^(4）÷2688÷R^(3)+B^(6)÷506880÷R^(5)→Z[6] C2÷24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)→Z[7] B÷2-B^(3)÷240÷R2+B^(5)÷34560÷R^(4)→Z[8]C÷2-C^(3)÷240÷R2+C^(5)÷34560÷R^(4)→Z[9]“T1=":Z[8]+(R+Z[7]-(R+Z[6])cos(A))÷sin(A)→S◢“T2=":Z[9]+(R+Z[6]-(R+Z[7])cos(A))÷sin(A)→T◢“L=":RAπ÷180+（B+C)÷2→L◢“LY=":L-B-C→Q◢“E=":(R+(Z[6]+Z[7])÷2）÷cos(A÷2）-R→E◢“K(ZH)=":K-S→Z[1]◢"K(HY)=":Z[1]+B→Z[2]◢“K(QZ)=":Z[2]+Q÷2→Z[3]◢“K(YH)=":Z[1]+L-C→Z[4]◢“K(HZ)=":Z[4]+C→Z[5]◢[ZXCX]-QXJS 主线程序曲线计算I f Z[14]=0:Then 0→Z[16]:0→Z[17]:ElseZ[14]-Z[14]˄(5)÷（40R 2Z[15]2)+Z[14]˄(9)÷（3456R˄(4)Z[15]˄(4))→Z[16]Z[14]˄(3)÷（6RZ[15])-Z[14]˄(7)÷（336R˄(3)Z[15]˄(3))+Z[14]˄(11)÷42240÷（RZ[15])˄(5)→Z[17]I fEnd[ZXCX]-QXYS 主线程序曲线要素Lbl AI f P<102346.17:Then -48°32′37.5″→O:1200→R:432.723→B:423.376→C:101661.22→K:2846093.854→X:505355.478→Y :245°08′47.7″→Z[20]:Return:I fEndLbl BI f P <103358.276:Then 102880.179→K:2844857.864→X:504986.9469→Y:196°36′10.2″→Z[20]:51°51′15.9″→O:750→R:333.333→B:333.333→C:Return:I fEnd Lbl CI f P <105817.289:Then 104058.854→K:2844404.528→X:503838.6033→Y:248°27′26″→Z[20]:-38°37′57″→O:1000→R:160→B:160→C:Return:I fEndLbl DI f P <77489.65:Then 76954.176→K:2866202.088→X:507268.6→Y:149°35′46″→Z[20]:51°11′53.8″→O:1100→R:160→B:160→C:Return:I fEndLbl EI f P <78103.267:Then 77800.261→K:2865343.818→X:506942.67→Y:200°47′39.8″→Z[20]:-24°45′09.8″→O:1050→R:160→B:160→C:Return:I fEndLbl FI f P <79200:Then 78460.894→K:2864677.174→X:506988.799→Y:176°02′30.0″→Z[20]:19°39′50.3″→O:1500→R:195→B:195→C:Return:I fEndGoto A[ZXCX]-ZBJSX-Scos(Z[20])→F:Y-Ssin(Z[20])→GI f P ˄Z[1]:Then Goto 1:I fEndX →F:Y →G:P-K →Z[16]:0→Z[17]:Z[20]→A:Z[20]→Z:Goto 5Lbl 1I f P ˄Z[2]:Then Goto 2:I fEndP-Z[1]→L:L →Z[14]:B →Z[15]"Prog “[ZXCX]-QXJS"WZ[17]→Z [17]:Z[20]→A:Z[20]+90WL 2÷（BR π）→Z:Goto 5Lbl 2I f P ˄Z[4]:Then Goto 3:I fEndP-Z[1]→L:90(2L-B)÷R ÷π→ARsin(A)+Z[8]→Z[16]:W(R(1-cos(A))+Z[6])→Z[17]Z[20]+WA →Z:Z[20]→A:Goto 5Lbl 3I f P ˄Z[5]:Then Goto 4:I fEndZ[5]-P →L:L →Z[14]:C →Z[15]:Prog “[ZXCX]-QXJS"X+Tcos(Z[21])→F:Y+Tsin(Z[21])→G-Z[16]→Z[16]:WZ[17]→Z[17:Z[21]→A:Z[21]-90WL 2÷（CR π）→Z:Goto 5Lbl 4X →F:Y →G:P-Z[5]+T →Z[16]:0→Z[17]:Z[21]→A:Z[21]→Z:Goto 5Lbl 5F+Z[16]cos(A)-Z[17]sin(A)→FG+Z[16]sin(A)+Z[17]cos(A)→GI f Z<0:Then Z+360→Z:I fEndA9-[JDGC] 数曲线程序( 交点要素输入）Fix 3Lbl 1（前坡,大里程方向）“QP-A=”?A:（后坡,小里程方向）“HP-B=”？B:（数曲线半径）？R:（数曲线交点里程）“JD-DK=”?S:（交点高程）“JD-GC”?GLbl 2“DK=”?KIF K<0 Then Goto 1 ElseS-K→L:A-B→W:Abc((RxW)÷2)→T:S-T→C:S+T→DI f K≤C:Then G-LXB→H:Goto 5:Else I f K≤S:Then Goto 3:Else I fK≤D:Then Goto 4 : I fEnd:I fEnd:I fEndLbl 3I f W>0:Then G+(K-C)2÷(2R)-LxB→H:Goto 5:Else I f W<0:Then G-(K-C)2÷(2R)-LxB→H:Goto 5:I fEnd:I Fend Lbl 4I f W>0:Then G+(D-K)2÷(2R)-LxA→H:Goto 5:Else I f W<0:Then G-(D-K)2÷(2R)-LxA→H:Goto 5I fEnd:I fEnd Lbl 5“H=”:H◢Goto 1A匝道收费站的程序编制Lbi 1"DK-K"?KK=395 => Goto 2Lbi 2X=328318536:X◢Y=543333:Y◢Goto 3Lbi 3"ZP=+90,YP=-90"?A"BZJL-D"?D"A=":B=323232◢"BX=":X+D*cos(B+A)=C◢Y+D*sin(B+A)=D◢Goto 1“QD F=”:Locate 6,2,A:Locate6,3,L:Locate 6,4,W◢。