casio公路坐标程序.doc

ZBZS★ 坐标正算Deg:Fixm Lbl 0:｛O｝:O“1,47264-50167.162,50150-50673.503,50700-54700” Lbl 1:｛ZKB｝:Z:K:B:O=1=＞Goto 2△O=2=＞Goto 3△O=3=＞Goto 4△ Lbl 2:Z＜47264=＞Goto 5△Z＞50167.16=＞Goto 5△ Z＜48708.52=＞Prog“55”: Goto 6△Z＜49310.50=＞Prog“56”: Goto 6△ Z＜49874.21=＞Prog“57”: Goto 6△Prog“57-1”: Goto 6△ Lbl 3:Z＜50150=＞Goto 5△Z＞50673.5=＞Goto 5△Prog“58”: Goto 6△ Lbl 4:Z＜50700=＞Goto 5△Z＞54700=＞Goto 5△Z＜51265.12=＞Prog“59”: Goto 6△ Z＜52266.78=＞Prog“60”: Goto 6△Z＜53341.82=＞Prog“61”: Goto 6△ Z＜53868.03=＞Prog“62”: Goto 6△Prog“63”: Goto 6△ Lbl 5:“ZH ERROR”▲ Goto 0 Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:Y▲ Pol（X-Q,Y-U）:J＜0=＞J=360+J△:I=Intg（1000I+.5）÷1000 “L=”:I:Pause 0:“T=”:J→DMS▲ Goto 1 说明：本程序适用于casio4850计算器。把线路从断链处分为三段，O的取值，待求点在第一段输1，第二段输2，第三段输3。Z、待求点的桩号。K、待求点在左幅输0右幅输1。B、待求点距中距离。Goto 5前的桩号为起止点或断链点桩号。 Prog“xx”:Goto 6前的桩号为曲线组合的HZ点桩号。Q、U为测站坐标，运行程序前先存入。ZHFS★ 桩号反算Deg:Fixm Lbl 0:｛TL｝:T:L:T=Int T+Frac 100T÷36+（Int 100T÷100-Int T）÷.6 X=Q+Rec（L,T）:Y=U+J:“X=”:X:Pause 0:“Y=”:Y▲ Lbl 1:Prog“55”:Prog“YS”:Z＞48980=＞Goto 2△Prog“FQ” Z＜47264=＞Goto B△Goto Z Lbl 2:Prog“56”:Prog“YS”:Z＞49437.85=＞Goto 3△Prog“FQ”: Goto Z Lbl 3:Prog“57”:Prog“YS”:Z＞49874.21=＞Goto 4△Prog“FQ”: Goto Z Lbl 4:Prog“57-1”:Prog“YS”:Z＞50354.96=＞Goto 5△Prog“FQ” Z＞50167.16 =＞Z=Z-17.16△Goto Z Lbl 5:Prog“58”:Prog“YS”:Z＞50931.36=＞Goto 6△Prog“FQ” Z＞50673.5 =＞Z=Z+26.5△Goto Z Lbl 6:Prog“59”:Prog“YS”:Z＞51953.51=＞Goto 7△Prog“FQ”: Goto Z Lbl 7:Prog“60”:Prog“YS”:Z＞52546.8=＞Goto 8△Prog“FQ”: Goto Z Lbl 8:Prog“61”:Prog“YS”:Z＞53477.04=＞Goto 9△Prog“FQ”: Goto Z Lbl 9:Prog“62”:Prog“YS”:Z＞54118.18=＞Goto A△Prog“FQ”: Goto Z Lbl A:Prog“63”:Prog“YS”:Z＞54700=＞Goto B△Prog“FQ”: Goto Z Lbl B:“CX ERROR”▲ Goto 0 Lbl Z:Z=Intg（1000Z+.5）÷1000:B=Intg（1000B+.5）÷1000:“LC=”:Z:Pause 0:“BJ=”:B▲ Goto 0说明：T、L测点相对测站的方位角和距离，T的取值例：12°34′56″输为12.3456。Q、U为测站坐标，程序运行前先存入。Goto 2前的桩号为第2个曲线组合的ZH点桩号，以后类推。”显示正值则测点在线路右幅，显示负值则测点在线路左幅。 DQXY★ 单曲线坐标正算子程序 S=.5Abs（C-A）:G=（C-A）÷2S C-A＜-180=＞S=180-S:G=-G△C-A＞180=＞S=180-S:G=-G△ T=（R+N2÷24R）tan S+N÷2-N^3÷240R2:L=πRS÷90+N:K=0=＞K=-1△ Z≤D-T=＞Goto 1