5800任意里程中边桩正反算程序（验证可用20121215）.docVIP

根据4800程序改编而成为5800 ”1.SZ＝＞”:”2.XY＝＞”:”N=”?N:”X0=”?U:”Y0=”?V:”S0=”?O:”F0=”?G:”Q0=”?Q: If Q=0: Then 10(-45)（十的负45次方用π按键输入） →R: Else “R=”?R: IfEnd ←┘ 0→J: Abs(Q) →M:1-M→K: If N=1: Then Goto 1: Else Goto 2: IfEnd ←┘ Lbi 1: ”S=”?S: ”Z=”?Z←┘ S-O→L:90Q(L÷π÷R)→B:G＋B→F:F＋B＋90→E:LK＋2MR sin(Q*B)→C:”XS=”:U＋Rec(C,F)＋Z cos(E) →X◢ ”YS=”:V＋J＋Z sin (E) →Y◢ Goto 1←┘ Lbi 2:G＋90Q→W:U＋Rec(R,W) →E:V＋J→F←┘ Lbi 3:”X=”?X:”Y=”?Y←┘ Pol(X-E,Y-F) →D:J→T: If J0: Then T: Else J＋360→T: IfEnd←┘ T-W-180M→B: Abs(B) →P:”S=”:O＋DK cos(P)＋MπRP÷180→S◢ ”Z=”:DK sin(B)＋MQ(R-D) →Z◢ Goto 3 注：程序中反算圆弧段时，输入桩号、偏距求坐标这个功能有问题，桩号越大，错的越多。其他的都能用 任意里程中边桩坐标正反算（CASIO fx-4800计算器）程序 一、源程序（SZ-XY-SZ） ”1.SZ＝＞”:”2.XY＝＞”:NU”X0”V”Y0”O”S0”G”F0”Q:Q=0＝＞ ≠R△J=0:M= AbsQ:K=1-M:N=1＝＞Goto≠ Goto 2△←┘ Lbi 1:｛SZ｝:SZ:L=S-O:B=90QL÷π÷R:F=G＋B:E=F＋B＋90:C=LK＋2MR sinQB:X”XS”=U＋Rec(C,F)＋Z cosE◢ Y”YS”=V＋J＋Zsin E◢ Goto 1 Lbi 2:W=G＋90Q:E=U＋Rec(R,W):F=V＋J←┘ Lbi 3:｛XY｝:XY:D= Pol(X-E,Y-F):T=J:J0=T=J＋360△B=T-W-180M:P=AbsB:S”S”=O＋DkcosP＋MπRP÷180◢ Z”Z”=DksinB＋MQ(R-D) ◢ Goto 3 二．使用说明 1.由里程、中边桩计算坐标 启动程序后按以下提示输入数据： N? 1 N=1（由里程中边桩计算坐标：N≠1,由坐标反算里程及中边桩） X0? 142.353 （直线或圆曲线起点的X坐标） Y0? 368.166 （直线或圆曲线起点的Y坐标） S0? 155.252 （直线或圆曲线起点的里程） F0? 60°54′03″（直线或圆曲线起点的切线方位角） Q? -1 （当线元为直线时Q=0;当线元为圆曲线且左偏时Q=-1;当线元为圆曲线且又偏时Q=1） R? 100 (圆曲线的半径) S? 197.016（中线里程） Z? -5.251（中线左侧5.251m的边桩；在中线上Z=0，在左侧0，在右侧＞0） 显示计算结果 XS=172.7467767 YS=395.2316807 2.由坐标反算里程、中边桩 启动程序后按以下提示输入数据： N? 2 N=1（由里程中边桩计算坐标：N≠1,由坐标反算里程及中边桩） X0? 142.353 （直线或圆曲线起点的X坐标） Y0? 368.166 （直线或圆曲线起点的Y坐标） S0? 155.252 （直线或圆曲线起点的里程） F0? 60°54′03″（直线或圆曲线起点的切线方位角） Q? -1 （当线元为直线时Q=0;当线元为圆曲线且左偏时Q=-1;当线元为圆曲线且又偏时Q=1） R? 100 (圆曲线的半径) X? 172.7467767（待求里程及中边桩的点的X坐标） Y? 395.2316807（待求里程及中边桩的点的Y坐标） 显示计算结果 S=197.016 Z=-5.251 三、注意事项 1.本程序主要是针对市政道路工程中的直线和圆曲线而编制的，未考虑缓和曲线等曲线的计算； 2.程序中“R=1E-45”的意思为10的-45次方，输入时切莫输错。