狂风之CASIO4800线路坐标计算程序.docVIP

******************************************************************************************************* 【分段线路坐标正反算程序】 主 程 序：【XLZB-FD】 L1: B=.1739274226:C=.5-B:U=1:{U}:U1.KD=XY 2.XY=KD=1=Prog ZS-FD:≠Prog FS-FD△↙ 子程序1：【ZS-FD】 L1: Z=?:V=9?↙ L2: Lbl ?:{KZ}:K:Prog ZZ-FD:U≠?=Goto ?△ZK.D≠?={V}:VK.A:F=F+V:S=S+Zcos(F):T=T+Zsin(F)△↙ L3: Fix 3: K.X=:S:Pause 1:K.Y=:T◢ L4: Norm:Goto ?↙ 子程序2：【FS-FD】 L1: Lbl 2:{VW}:VK.XWK.Y:K=?↙ L2: Lbl 3:Prog ZZ-FD :I=V-S:J=W-T:Pol(I,J):J=J-F:K=K+Rec(I,J):Abs I1m=Fix 3:K=:K:Pause 1:K.D=:J◢ L3: Norm:≠Goto 3△↙ L4: M=1:{M}:M?.NEXT 1.EXIT=?=Goto 3△Goto 2↙ 子程序3：【ZZ-FD】 L1: Prog DATA-FD:M=K-L:O=(P-R)÷2PQR:D=.?694318442:E=.33???94782:F=1:G=1-E:H=1-D:I=5↙ L2: Lbl 4:C[I]=A+MrC[I](1÷P+OMC[I]):Dsz I:Goto 4↙ L3: S=X+M(Bcos D+Ccos E+CcosG+BcosH)↙ L4: T=Y+M(Bsin D+Csin E+CsinG+BsinH)↙ 子程序4：【DATA-FD】 L1: U=?:K(线路起点里程)=!:U=1△K(线路终点里程)==!: U=1△↙ L2: Q=(线元起点里程):K≤L+Q=P=(线元起点半径):R=(线元终点半径):X=(线元起点X坐标):Y=(线元起点Y坐标):A=(线元起点方位角):Goto E△L=L+Q↙ L3: (重复L2） L4: Lbl E↙ 输入说明： L2开始每行程序为一个线元参数要素，有几个线元就输入几行。 直线半径按1E45输入。 m位于Function－1－▽▽▽▽－1；r位于Function－5－5；e位于EXP键； Dsz位于Function－3－6。 ******************************************************************************************************* 【完整线路坐标正反算程序】 主 程 序：【XLFY-ALL】 L1: Defm 5:Z=1:{Z}:Z1.KD=XY 2.XY=KD=1=Prog ZS-ALL:≠Prog FS-ALL△↙ 子程序1：【ZS-ALL】 L01: Z=?:V=9?↙ L02: Lbl ?:{KZ}:K:Prog ZZ-ALL:Z[1]≠?=Goto ?△ZK.D≠?={V}:VK.A:F=F+V:X=X+ZcosF:Y=Y+ZsinF△ L03: Fix 3:K.X=:X:Pause 1:K.Y=:Y◢Norm:Goto 0↙ 子程序2：【FS-ALL】 L01: Lbl 8:{VW}:VK.XWK.Y:K=?↙ L02: Lbl 9:Prog ZZ-ALL:I=V-X:J=W-Y:Pol(I,J):J=J-F:K=K+Rec(I,J):Abs I1m=Fix 3:K=:K:Pause 1:K.D=:J◢Norm:≠Goto 9△↙ L03: Z=1:{Z}:Z?.NEXT 1.EXIT=?=Goto 9△Goto 8↙ 子程序3：【ZZ-ALL】 L01: Prog DATA-ALL:G=AbsBπR÷18?-(L+M)÷2↙ L02: P=L2÷24÷R-L^4÷2688÷R^3:Q=L÷2-L^3÷24?÷R2↙ L03: U=M2÷24÷R-M^4÷2688÷R^3:O=M÷2-M^3÷24?÷R2↙ L04: T=(R+U-(R+P)cosAbsB)÷sinAbsB+Q:S=(R+P-(R+U)cosAbsB)÷sinAbsB+O:D=J-T+1m L05: K≤D=Goto 1 △K≤D+L=C=K-D:U=L:Goto 2 △K≤D+L+G=C=1:Goto 3 △K≤D+M+L+G=C=K-D-M-L-G:U=M:Goto 2 △KD+M+L+G=C=K-D-L-M-G:Go