卡西欧5800简单坐标放样程序.doc

5800简单程序 1. 正算主程序(ZH) （不运行） “L(-Z,+Y)=”?L:“YJJ=”?W (P-R)÷(2(H-O)PR) →D Abs(K-O) →J 4→DimZ0.1184634425→A: 0.2393143352→B: 0.2844444444→Z[4]: 0.0469100770→C: 0.2307653449→E:0.5→Z[1 ]I+J(Acos(G+QCJ(1÷P+CJD)×180÷π)+Bcos(G+QEJ(1÷P+EJD)×180÷π)+Z[4]cos(G+QZ[1]J(1÷P+Z[1]JD)×180÷π)+Bcos(G+Q(1-E)J(1÷P+(1-E)JD)×180÷π)+Acos(G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π)) →X:S+J(Asin(G+QCJ(1÷P+CJD)×180÷π)+Bsin(G+QEJ(1÷P+EJD)×180÷π)+Z[4]sin(G+QZ[1]J(1÷P+Z[1]JD)×180÷π)+Bsin(G+Q(1-E)J(1÷P+(1-E)JD)×180÷π)+Asin(G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π)) →Y：F=G+QJ(1÷P+JD) ×180÷π： X+Lcos(F+W) →X： Y+Lsin(F+W)→Y ”X=”:X→X◢ ”Y=”:Y→Y◢”QXFWJ=”:F◢Prog “FY” 2 . 参数子程序 （直接运行） M(主线) 一条线路一个名称 “DKI=”?K If K≦线元终点：Then 线元起点X值→I: 线元起点Y值→S:线元起点切线方位角→G:线元起点桩号→O:线元终点桩号→H：线元起点半径→P：线元终点半径→R：（-1，0，1）→Q:Prog “ZH”:Goto 1:IfEnd… … … If K≦线元终点：Then 线元起点X值→I: 线元起点Y值→S:线元起点切线方位角→G:线元起点桩号→O:线元终点桩号→H：线元起点半径→P：线元终点半径→R：（-1，0，1）→Q:Prog “ZH”:Goto 1:IfEndLbi 1 3. 放样程序（FY） （不运行） “X0=”?M:“Y0=”？N Tan-1((Y-N)/(X-M)) →J:√(X-M)^2+(Y-N)^2) →I If J≦0:Then J+360→J:IfEnd “FWJ=”:J▲DMS◢ “JU-LI=”:I◢ 说明：一、程序功能及原理1.功能说明：本 程序由一个主程序和两个子程——正算主程序(ZH)、参数子程序（M）、放样程序（FY），可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线 元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该线元段范围内任意里程中边桩坐标进行正算。本程序可以在CASIO fx-4800P计算器及 CASIO fx-4850P计算器上运行。2．计算原理：利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。????利用待求点至线元起点切线作垂线，逐次迭代趋近原理反算里程及边距。二、使用说明1、规定???? ??(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。???? ??(2)??当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。??? ?(3) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (4) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。?????? (5) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 2、运行参数子程序 输入 K （DKI=?） 为任意里程桩号 L (L(-Z,0,+Y)=?) 为斜距（当所求点位于中线时，L=0；当位于中线左侧时，L取负值；当位于中线右侧时，L取正值） W (YJJ=?) 为右夹角（0≦W≦180） 输出 X=********* 计算的X坐标值 Y=********* 计算的Y坐