5800计算器线路、匝道中边桩万能程序 彭赐明改编网上类似程序于河南高速郑漯8标 LB1 1↙ Cls : Fix 4 : Deg :"XZJ="?R◢ (输入置镜点X） "YZJ="?S◢ (输入置镜点Y） LB1 2↙ "K="?K◢ (输入计算点里程） If K<第一线元终点里程 ：THEN 线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto 3:IfEnd↙ ………………………………（线元数据分段输入） LB1 3↙ W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E+(X /C+HX^2)×180/π→V:V<0=>V+360→V:"QXJ=":V→DMS◢(计算点切线方位角） A+∫(Cos(E+(X/C+HX^2)*180/π，0，X)→Z : B+∫(Sin(E+(X/C+HX^2)*180/π，0，X)→Y : "XI=":Z◢(计算点中心X） "YI=":Y◢(计算点中心Y） "PJ="?P◢(输入计算点边桩偏角左－右＋） "PD="?Q◢(输入计算点边桩偏距） Rec(Q,V+P):Z+I→Z :Y+J→Y: "XP=":Z◢(计算点边桩X） "YP=":Y◢(计算点边桩Y） Pol(Z-R,Y-S):J<0=>J+360→J: "FYJ=":J→DMS◢(放样方位角） "FYD=":I◢(放样距离） Goto 2↙
温馨提示：答案为网友推荐，仅供参考