Qh2-8线元法任意路线与匝道曲线坐标正反算程序.doc

5800计算器坐标计算程序 （线元法任意路线与匝道曲线坐标正、反算程序） 程序1：QH2-8 ROUTE Or RAMP QH2-8◢书中多了个个双引号（这里说的书是产品配备的说明书） Deg:Fix 3:书中Freqon取消 NEW(0),OLD(≠0)DATA=?→C If C≠0:Then RECOMP(0),NO(≠)= ?→G书中0取消 If G=0:Then Goto T:Else Goto J: IfEnd “CURVE NUM=”?N 1→Q:5N+11→DimZ “START a(Deg)=”?→Z[5] For 1→I To N “n=”：I◢ “START R(m)=”?→Z[5I-4] Z[5I-4]=0=1X1030→Z[5I-4] “END R(m)=”?→Z[5I-3] Z[5I-3]= 0=1X1030→Z[5I-3] “LENGTH(m)=”?→Z[5I-2] If Z[5I-4]＜1X1030 Or Z[5I-3] ＜1X1030 Then “DEFLEX L(-1),R(1)=”?→Z[5I-1]:IfEnd 注意-1是减1 NEXT “[MODE][1] =Stop!” ◢ Lb1 T:0→I:For 1→I To N List X[I]+Rep(Z[5I-2])→List X[I+1] List X[I+1]→Z If Z[5I-4]=Z[5I-3]And Z[5I-4]= 1X1030 Then 0→S:0→T:Z[5I-2]→D Prog “SUBQ2-84”:Goto 0:IfEnd If Z[5I-4]=Z[5I-3] And Z[5I-4] ＜1X1030 Then Prog “SUBQ2-83”:Goto 0:IfEnd √根号(Rep(Z[5I-2])÷Abs(Z[5I-4]-1-Z[5I-3]-1))→A Rep(Z[5I-2])+Ai→Z[5I-2] Prog “SUBQ2-82” Lb1 0:T→Z[5I+1]] Rep(U)→List Y[I+1]:Imp(U)→List Freq[I+1] Next “PEG-END(m)=”:List X[N+1] ◢ “a-END(DMS)=”:Z[5(N+1)] DMS◢ “X-END(m)=”:List Y[N+1] ◢ “Y-END(m)=”:List Freq[N+1] ◢ “[MODE][4]=Stop!” ◢ Lb1 J:”STA BACKXY,NEW(0),OLD(≠0)=”?→J J≠0=Goto 1 “STAn,X(m),＜0=NO=“？→S 0→Z[5N+6]：S＜0=Goto 1 If Frac(S)=0 And S≤N+1 Then List Y[S]+List Freq[S]i→Z[5N+6] Else “STA Y(m)=”?→T:S+Ti→Z[5N+6]:IfEnd Lb1 B:”BACKn,X(m),OLDa(0),＜0=a=”?→U U=0=Goto 1 If U＜0:Then “a-BACK(Deg)=”?→Z[5N+8]:Goto 1:IfEnd If S=U And Frac(U)=0 Then”STAn=BACKn,REPEAT!”Goto B:IfEnd If Frac(U)=0 AND U≤N+1 Then List Y[U]+List Freq[U]i→Z[5N+7] Else”BACK Y(m)=”?→V:U+Vi→Z[5N+7]:IfEnd Lb1 S:Arg(Z[5N+7]-Z[5N+6])→J J＜0=J+360→J:J→Z[5N+8] Lb1 1:”PEG→XY(1),XY→PEG(≠1)=”?→Q Q≠1=Goto 2 Do:”+PEG(m), ＜0=END=”?→Z Z＜List X[1] Or Z＞List X[N+1]=Break For 1→I To N Z＜List X[I] Or Z＞List X[I+1]=Goto N Z-List X[I]→L If Z[5I-4]=Z[5I-3] And Z[5I-4]= 1X1030 Then 0→S:0→T:L→D Prog “SUBQ2-84”: Prog “SUBQ2-85”:Break:IfEnd If Z[5I-4]=Z[5I-3] And Z[5I-4]＜1X1030 Then Prog”SUBQ2-83” Prog “SUBQ2-85”: Break:IfEnd Prog “SUBQ2-82”: Prog “SUBQ2-85”:Break Lb1 N:Next LpWhile Z＞0:Goto E Lb1 2:”XJ(m), ＜0=END=”?X:X＜0=Goto E “YJ(m)=”?Y