坐标正算程序(含放样).docVIP

线路中边逐桩坐标正算及反算程序(CASIOfx--4800P\含数据库\测站) 一.改动后的程序清单: 1 主程序(FANGYANG) Prog “SJK” :Prog “M” 2.运算子程序(M) OK0：UX0：VY0：GF0：HLS：PR0：RRN：Q：C=1/P：D=(P-R)÷(2HPR)：E=180÷π: {Z}：Z（距中桩距离左-、右+）：W=Abs(K-O)： A=0.1739274226：B=0.3260725774：S=0.0694318442：L=0.3300094782：F=1-L：M=1-S：X=U+W(Acos(G+QESW(C+SWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))： Y=V+W(Asin(G+QESW(C+SWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))： F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF： XXS=X◢ YYS=Y◢ N“X-CZ”：T“Y-CZ”：I=0：J=0：Pol（X-N，Y-T）：J∠0＝＞J=J+360：Δ J“FWJ=”◢ I“JL=” 二.增设数据库程序（ＳＪＫ） ｛K｝：K≥本线元起点里程=K＜本线元终点里程=O=**:U=**:V=**:G=**: H=**:P=**:R=**Q=**⊿←┘ …… 说明:O=本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H=本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1（左-,右+,直线取0）： 三. 使用说明： (1)把所有相关的线元要素依次输入“SJK” (2)运算时直接调用“SJK”运行，程序提示输入里程“K？”时，正算直接输入待求点里程，反算输入所求点“近似“里程 (3)程序中“X-CZ、Y-CZ、”为测站坐标，“Ｉ＝”、“Ｊ＝”为放样距离和方位角 (4)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (5)当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。 (6)当线元为直线时，其起点、止点的曲率半径为无穷大，以10^45代替(P=R=+∞)。 (7)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径(P=R)。 (8)当线元为完整缓和曲线时， 起点与直线相接时，起点曲率半径P为无穷大（10^45代替），终点曲率半径R为圆半径； 起点与圆曲线相接时，起点曲率半径P等于圆曲线的半径，R为无穷大（10^45代替）。 (9)当线元为非完整缓和曲线时， 起点与直 线相接时，曲率半径等于设计规定的值； 起点与圆曲线相接时，曲率半径等于圆曲线的半径。 止点与直 线相接时，曲率半径等于设计规定的值； 止点与圆曲线相接时，曲率半径等于圆曲线的半径。 (10)当线元为缓和曲线时G计算公式为 90L/πR+(前)计算方位角 当线元为圆 曲线时G计算公式为180L/πR+(前)计算方位角 缓和曲线偏角计算公式一 置镜点 观测点 偏角公式（分） 公式中符号说明 缓园点 （HY） 测缓和曲线上任一点 Q1=[1800/（πRL0）] Lb(3L0-Lb) L0—缓和曲线全长(m) Lb—自缓园点至前视点的距离（m） 缓和曲线上任一点 测缓和曲线上缓园点(HY) Q2=[1800/（πRL0）] （L-Lp）(L+2Lp) L0—缓和曲线全(m) L—自缓和曲线始点 （ZH′）至前视点（HY）的距离（m） Lp—自缓和曲线始点 （ZH′）至置镜点（ZH）的距离（m）  一、置镜缓园点测缓和曲线上任一点偏角计算 Q1=[1800/（πRL0）]Lb(3L0-Lb) =[1800/(πX300x75)]x63.75x(3x75-63.75) =261.7700926′ =4°21′46.21″ 二、置镜缓和曲线上任一点测缓和曲线上缓园点（HY）偏角计算 Q2=[1800/（πRL0）]（L-Lp）(L+2Lp) =[573/(πX300x75)](75-11.25)(75+2X11.25) =158 =2°38′16.78″ Q1+Q2=4°21′46.21″+2°38′16.78″ =7°00′02.99″ 换算方位角Q=253°08′18.5″+7°00′02.99″ =260°08′21.5″ K≥67.894=K＜131.644=O=67.894:U=