qh2-8线元法任意路线与匝道曲线坐标正、反算程序

《qh2-8线元法任意路线与匝道曲线坐标正、反算程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、5800计算器坐标计算程序（线元法任意路线与匝道曲线坐标正、反算程序）程序1：QH2-8"ROUTEOrRAMPQH2-8"◢书中多了个个双引号（这里说的书是产品配备的说明书）Deg:Fix3:书中Freqon取消"NEW(0),OLD(≠0)DATA="?→CIfC≠0:Then"RECOMP(0),NO(≠)="?→G书中0取消IfG=0:ThenGotoT:ElseGotoJ:IfEnd“CURVENUM=”?N1→Q:5N+11→DimZ“STARTa(Deg)=”?→Z[5]For1→IToN“n=”：I◢“STARTR(m)=”?→Z[5I-4]Z[

2、5I-4]=0=>1X1030→Z[5I-4]“ENDR(m)=”?→Z[5I-3]Z[5I-3]=0=>1X1030→Z[5I-3]“LENGTH(m)=”?→Z[5I-2]IfZ[5I-4]＜1X1030OrZ[5I-3]＜1X1030Then“DEFLEXL(-1),R(1)=”?→Z[5I-1]:IfEnd注意-1是减1NEXT“[MODE][1]=>Stop!”◢Lb1T:0→I:For1→IToNListX[I]+Rep(Z[5I-2])→ListX[I+1]ListX[I+1]→ZIfZ[5I-4]=Z[5I-3]AndZ[5I-4]=1X1030

3、Then0→S:0→T:Z[5I-2]→DProg“SUBQ2-84”:Goto0:IfEndIfZ[5I-4]=Z[5I-3]AndZ[5I-4]＜1X1030ThenProg“SUBQ2-83”:Goto0:IfEnd√根号(Rep(Z[5I-2])÷Abs(Z[5I-4]-1-Z[5I-3]-1))→ARep(Z[5I-2])+Ai→Z[5I-2]Prog“SUBQ2-82”Lb10:T→Z[5I+1]]Rep(U)→ListY[I+1]:Imp(U)→ListFreq[I+1]Next“PEG-END(m)=”:ListX[N+1]◢“a-END(DMS

4、)=”:Z[5(N+1)]DMS◢“X-END(m)=”:ListY[N+1]◢“Y-END(m)=”:ListFreq[N+1]◢“[MODE][4]=>Stop!”◢Lb1J:”STABACKXY,NEW(0),OLD(≠0)=”?→JJ≠0=>Goto1“STAn,X(m),＜0=>NO=“？→S0→Z[5N+6]：S＜0=>Goto1IfFrac(S)=0AndS≤N+1ThenListY[S]+ListFreq[S]i→Z[5N+6]Else“STAY(m)=”?→T:S+Ti→Z[5N+6]:IfEndLb1B:”BACKn,X(m),OLDa(0)

5、,＜0=>a=”?→UU=0=>Goto1IfU＜0:Then“a-BACK(Deg)=”?→Z[5N+8]:Goto1:IfEndIfS=UAndFrac(U)=0Then”STAn=BACKn,REPEAT!”GotoB:IfEndIfFrac(U)=0ANDU≤N+1ThenListY[U]+ListFreq[U]i→Z[5N+7]Else”BACKY(m)=”?→V:U+Vi→Z[5N+7]:IfEndLb1S:Arg(Z[5N+7]-Z[5N+6])→JJ＜0=>J+360→J:J→Z[5N+8]Lb11:”PEG→XY(1),XY→PEG(≠1)=”

6、?→QQ≠1=>Goto2Do:”+PEG(m),＜0=>END=”?→ZZ＜ListX[1]OrZ＞ListX[N+1]=>BreakFor1→IToNZ＜ListX[I]OrZ＞ListX[I+1]=>GotoNZ-ListX[I]→LIfZ[5I-4]=Z[5I-3]AndZ[5I-4]=1X1030Then0→S:0→T:L→DProg“SUBQ2-84”:Prog“SUBQ2-85”:Break:IfEndIfZ[5I-4]=Z[5I-3]AndZ[5I-4]＜1X1030ThenProg”SUBQ2-83”Prog“SUBQ2-85”:Break:I

7、fEndProg“SUBQ2-82”:Prog“SUBQ2-85”:BreakLb1N:NextLpWhileZ＞0:GotoELb12:”XJ(m),＜0=>END=”?X:X＜0=>GotoE“YJ(m)=”?Y“JinNUM,＜0=>AUTO=”?→I:I＞0=>Goto3Abs(X+Yi-ListY[1]-ListFreq[1]i→CListX[1]+C→ZFor1→SToNZ＞ListX[S]AndZ＜ListX[S+1]=>Break:Next9000→C:S→EForE→IToN(ListY[I]+ListY[I+1])÷2→U(ListFreq[

8、I]+ListFreq[