casio公路坐标程序

《casio公路坐标程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、ZBZS*坐标正算主程序Deg:FixmLbl0:(0}:O^1,47264-50167.162,50150-50673.503,50700-54700,9Lbl1:(ZKB):Z:K:B:0=l=>Goto2AO=2=>Goto3AO=3=>Goto4ALbl2:Z<47264=>Goto5AZ>50167.16=>Goto5AZV48708・52=>Prog“55":Goto6AZ<49310.50=>Progu56,9:Goto6AZV49874・21=>Prog“57”：Goto6AProgu57-l,9:Goto6ALbl3:Z<50150=>Got

2、o5AZ>50673.5=>Goto5APi*o0'58":Goto6ALbl4:Z<50700=>Goto5AZ>54700=>Goto5ZZV51265・12=>Prog“59”：Goto6AZV52266・78=>Prog“60”：Goto6AZ<53341.82=>Progu619,:Goto6AZV53868・03=>Prog“62":Goto6AProgu63,9:Goto6ALbl5:“ZHERROR"▲Goto0Lbl6:Prog“DQXY'':“X=":X:Pause0:“Y=":YAPol(X-Q,Y-U):J<0=>J=360+JA:l

3、=Intg(1000I+.5)-1000“L=”:I:Pau$e0:aT=9,:J->DMSAGoto1说明：本程序适用于casio4850计算器。把线路从断链处分为三段，O的取值，待求点在第一段输1，第二段输2,第三段输3。Z、待求点的桩号。K、待求点在左幅输0右幅输1。B、待求点距屮距离。Goto5前的桩号为起止点或断链点桩号。Prog“xx”:Goto6前的桩号为曲线组合的HZ点桩号。Q、U为测站坐标，运行程序前先存入。ZHFS^桩号反算主程序Deg:FixmLbl0:{TL}:T:L:T=IntT+Frac100T-36+(Int100T-100-In

4、tT)乞6X=Q+Rec(L,T):Y=U+J:“X=":X:Pause0:uY=,9:YALbll:Progu55,,:ProgwYS,,:Z>48980=>Goto2AProguFQ,9Z<47264=>GotoBAGotoZLbl2:Prog“56”:Prog“YS":Z>49437・85=>Goto3ZPi*o旷FQ":GotoZLbl3:Progu57,,:Prog66YS,,:Z>49874.21=>Goto4AProg“FQ'':GotoZLbl4:Progu57-l,,:ProguYS,,:Z>50354.96=>Goto5AProguFQ,

5、9Z>50167.16=>Z=Z-17.16AGotoZLbl5:Progu58w:ProguYS99:Z>50931.36=>Goto6AProguFQ,9Z>50673.5=>Z=Z+26.5AGotoZLbl6:Pro『59":Pn)『YS'':Z>51953・51=>Goto7AProg“FQ'':GotoZLbl7:Progu60,,:ProguYS,,:Z>52546.8=>Goto8AProguFQM:GotoZLbl8:Progu61:ProguYSM:Z>53477.04=>Goto9AProg“FQ":GotoZLbl9:Prog“62":

6、Prog“YS”:Z>5411&18=>GotoAAProg“FQ”：GotoZLblA:Progu63,,:ProguYSM:Z>54700=>GotoBAPro旷FQ”：GotoZLblB:“CXERRORSGoto0LblZ:Z=Intg(1000Z+.5)-1000:B=Intg(1000B+.5)H000:“LC=":Z:Pauee0:uBJ=9,:BAGoto0说明：T、L测点相对测站的方位角和距离，T的取值例：12。3*56"输为12.3456。Q、U为测站樂标，程序运行前先存入。Goto2前的桩号为第2个曲线组合的ZH点桩号，以后类推。“BJ=

7、”显示正值则测点在线路右幅，显示负值则测点在线路左幅。S=.5Abs(C-A):G=(C-A)一2SC-A<-180=>S=180-S:G=-GAC-A>180=>S=180-S:G二G△T=(R+N.24R)tanS+N-2-NA3-240R2:L=7rRS-90+N:K=0=>K=-lAZGotolAZ>D-T+L=>Goto2AZGoto3AZ>D-T+L-N=>Goto4ALbl0:M=A+G(90+90NrR+180(Z-D+T-N)-nR)-180X=E+Rec((R+N.24R)-cosS,C+G(90-S)):Y=F

8、+JX=X+Rec(R-GKB,M):