5800交点法坐标反算,加入高程,隧道超欠挖,带数据库.docVIP

FX5800计算器交点法正反算程序加入高程及隧道超欠挖 （注：高程要算第二遍才是正确的） 输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色为程序名，蓝色为输入计算器里的内容) 主程序 程序名：1XY-KM LbI 0：17→DimZ：Norm 2:1→A：＂A:X,Y=1，KM,D=2,SD=3＂?A: A=1=Goto 1:A=2=Goto 2: A=3=Goto 3:LbI 1:Z[4]→K:Z[5]→L:“XZ”?K:”YZ”?L:K→Z[4]:L→Z[5]:LbI A:Prog＂QX＂:90→B:＂PJ＂?B:B→Z[1]：LbI B:＂KM＂?Z:Z= -1=Goto 0:Z=-2=Goto A: Prog＂X1＂: Prog＂G＂: Z→Q: Prog＂S1＂:?D: Prog Z:I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Ｆix 3:＂ Ｘ=＂：Locate 6,4,Ｘ：＂ Ｙ＝＂：Locate 6,4,Ｙ：＂ h＝＂：Locate 6,4,Z[12]◢ Prog＂JS＂:Goto B: LbI 2：Prog＂QX＂:＂KM＂