Qh2-8線元法任意路線與匝道曲線坐標(biāo)正、反算程序教學(xué)資料

1、Good is good, but better carries it.精益求精，善益求善。Qh2-8線元法任意路線與匝道曲線坐標(biāo)正、反算程序-5800計(jì)算器坐標(biāo)計(jì)算程序（線元法任意路線與匝道曲線坐標(biāo)正、反算程序）程序1：QH2-8ROUTEOrRAMPQH2-8書中多了個(gè)個(gè)雙引號(hào)（這里說(shuō)的書是產(chǎn)品配備的說(shuō)明書）Deg:Fix3:書中Freqon取消NEW(0),OLD(0)DATA=?CIfC0:ThenRECOMP(0),NO()=?G書中0取消IfG=0:ThenGotoT:ElseGotoJ:IfEnd“CURVENUM=”?N1Q:5N+11DimZ“STARTa(Deg)=”?Z5

2、For1IToN“n=”：I“STARTR(m)=”?Z5I-4Z5I-4=0=1X1030Z5I-4“ENDR(m)=”?Z5I-3Z5I-3=0=1X1030Z5I-3“LENGTH(m)=”?Z5I-2IfZ5I-41X1030OrZ5I-31X1030Then“DEFLEXL(-1),R(1)=”?Z5I-1:IfEnd注意-1是減1NEXT“MODE1=Stop!”Lb1T:0I:For1IToNListXI+Rep(Z5I-2)ListXI+1ListXI+1ZIfZ5I-4=Z5I-3AndZ5I-4=1X1030Then0S:0T:Z5I-2DProg“SUBQ2-84”:Go

3、to0:IfEndIfZ5I-4=Z5I-3AndZ5I-41X1030ThenProg“SUBQ2-83”:Goto0:IfEnd根號(hào)(Rep(Z5I-2)Abs(Z5I-4-1-Z5I-3-1)ARep(Z5I-2)+AiZ5I-2Prog“SUBQ2-82”Lb10:TZ5I+1Rep(U)ListYI+1:Imp(U)ListFreqI+1Next“PEG-END(m)=”:ListXN+1“a-END(DMS)=”:Z5(N+1)DMS“X-END(m)=”:ListYN+1“Y-END(m)=”:ListFreqN+1“MODE4=Stop!”Lb1J:”STABACKXY,NEW

4、(0),OLD(0)=”?JJ0=Goto1“STAn,X(m),0=NO=“？S0Z5N+6：S0=Goto1IfFrac(S)=0AndSN+1ThenListYS+ListFreqSiZ5N+6Else“STAY(m)=”?T:S+TiZ5N+6:IfEndLb1B:”BACKn,X(m),OLDa(0),0=a=”?UU=0=Goto1IfU0:Then“a-BACK(Deg)=”?Z5N+8:Goto1:IfEndIfS=UAndFrac(U)=0Then”STAn=BACKn,REPEAT!”GotoB:IfEndIfFrac(U)=0ANDUN+1ThenListYU+ListF

5、reqUiZ5N+7Else”BACKY(m)=”?V:U+ViZ5N+7:IfEndLb1S:Arg(Z5N+7-Z5N+6)JJ0=J+360J:JZ5N+8Lb11:”PEGXY(1),XYPEG(1)=”?QQ1=Goto2Do:”+PEG(m),0=END=”?ZZListX1OrZListXN+1=BreakFor1IToNZListXIOrZListXI+1=GotoNZ-ListXILIfZ5I-4=Z5I-3AndZ5I-4=1X1030Then0S:0T:LDProg“SUBQ2-84”:Prog“SUBQ2-85”:Break:IfEndIfZ5I-4=Z5I-3AndZ

6、5I-41X1030ThenProg”SUBQ2-83”Prog“SUBQ2-85”:Break:IfEndProg“SUBQ2-82”:Prog“SUBQ2-85”:BreakLb1N:NextLpWhileZ0:GotoELb12:”XJ(m),0=END=”?X:X0=GotoE“YJ(m)=”?Y“JinNUM,0=AUTO=”?I:I0=Goto3Abs(X+Yi-ListY1-ListFreq1iCListX1+CZFor1SToNZListXSAndZListXS+1=Break:Next9000C:SEForEIToN(ListYI+ListYI+1)2U(ListFreqI+

7、ListFreqI+1)2VAbs(X+Yi-U-Vi)DIfDC:ThenDC:IF:IfEndNext:F2=F-1ILb13:IfZ5I-4=Z5I-3AndZ5I-4=1X1030Thentan(Z5I)T(X+T2ListYI-T(ListFreqI-Y)(T2+1)UU+(Y-(U+X)T)iU:Z5ITU-ListYI-ListFreqIFArg(F)H:H0=H+360H1J:Abs(T-H)150=-1JListXI+JAbs(F)ZIfZListXIAndZListXI+1:ThenGotoZElseI+1N=GotoZ:I+1I:Goto3:IfEnd:IfEndIfZ5

8、I-4=Z5I-3AndZ5I-41X1030ThenListYI+ListFreqIiSZ5I+90Z5I-1AZ5I-4R:S+RAVX+YiU:Arg(U-V)F:Abs(U-V)DV+RFUAbs(U-S)C:sin-1(C2R)EZ5I+2Z5I-1ETListXI+ER90ZIfZListXIAndZListXI+1:ThenGotoZElseI+1N=GotoZ:I+1I:Goto3:IfEnd:IfEndListYI+ListFreqIiUListYI+1+ListFreqI+1V(U+V)2FV-UC:Abs(C)S:Arg(C)JJ0=J+360J:J+90Z5I-1GIf

9、Z5I-4Z5I-3:Then2Z5I-3RElse2Z5I-4R:IfEnd(R2-S24)TF+TGOSin-1(SR2)V:VR90J(Rep(Z5I-2)-J)JPX+Yi-OV:Arg(V)JO+RJC:Abs(C-U)SSin-1(SR2)V:VR90JListXI+J(1-P)ZProg“SUBQ2-82”DoX+Yi-UC:Abs(C)SArg(C)J:J0=J+360JJ-TJ:J0=J+360JIfJ220:ThenJ-270J:-1FElse90-JJ:1F:IfEndIfZ5I-4Z5I-3ThenJ180(FZ5I-1LA2+S-1)EElseJ180(-FZ5I-1

10、LA2+S-1)E:IfEndZ+EZIfZListXI+1:ThenI+1I:Goto3:IfEndProg“SUBQ2-82”Tan(T)(ImP(U)-Y)+ReP(U)-XCLpWhileAbs(C)0.001Fix4:”f(Lp)=”:CFix3:Lb1Z:Prog“SUBQ2-85”:Goto2Lb1E:”QH2-8=END”程序2：SUBQ2-81IfL1X10-5:Then0U:0J:Return:IfEndL-L(5)40A(4)+L(9)3456A(8)-L(13)599040A(12)+L(17)175472640A(16)OL(3)6A2-L(7)336A(6)+L(1

11、1)42240A(10)-L(15)9676800A(14)+L(19)3530096640A(18)UO+UiU:(L2(2A2)rJReturn程序3：SUBQ2-82ImP(Z5I-2)AA2Z5I-4LProg“SUBQ2-81”：UV:JEIfZ5I-4Z5I-3:ThenZ-ListXI+LLProg“SUBQ2-81”:U-VOElseA2Z5I-3LListXI+1-Z+LLProg“SUBQ2-81”:V-UO:IfEdnAbs(O)D:Arg(O)TAbs(T-E)S:Abs(J-E)TProg“SUBQ2-84”Return程序4：SUBQ2-83Z5I-4R:Z-Lis

12、tXIL(L2R)rS:2Rsin(s)D2ST:Prog”SUBQ2-84”Return程序5：SUBQ2-84Z5I+Z5I-1SS:Z5I+Z5I-1TTT0=T+360T:T360=T-360TListYI+ListFreqIi+DSUReturn程序6：SUBQ2-85T0=T+360T:T360=T-360TIfQ=1:Then“ai(DMS)=”:TDMS“Xi(m)=”:Rep(U)“Yi(m)=”:Imp(U)ElseZListXIOrZListXI+1=”O(jiān)UTOFTheCURVE!”Arg(X+Yi-U)H:H0=H+360HAbs(X+Yi-U)DIfH180:Then

13、“JinLeft,NUM=”:IElse“JinRight,NUM=”:IIfEnd“pPEG(m)=”:z“ap(DMS)=”:TDMS“Xp(m)=”:Rep(U)“YP(m)=”:Imp(U)“JpDIST(m)=”:DIfEndIfAbs(Z5N+6)0:ThenUZ5N+7:Prog“SUBQ2-87”:IfEndZ0=Porg“SUBQ2-86”Return程序7：SUBQ2-86“ANGLE(0)=NO,-L+R(Deg)=”?KK=0=ReturnIfK0:ThenK+180P:ElseKP:K-180K:IfEnd“WL(m),0=NO=”?MIfM0:ThenU+M(T+K)V“XL(m)=”:Rep(V)“YL(m)=”:Imp(U)IfAbs(Z5N+6)0:ThenVZ5N+7:Prog“SUBQ2-87”:IfEnd:IfEdn“WR(m),0=NO=”?WIfW0:ThenU+W(T+P)V“XR(m)=”:Rep(V)“Y