5800简单全线坐标计算程序

1、5800 全线任意坐标计算程序1. 正算主程序 （ZHCX） （不运行）8 f DimZ1PZ4 :(P-R) (2HPR) f D: 180- f E“Z=”?Z: ”YJJ=”?A:Abs(S-O) fW0.26fZ1 : 0.74fB: 0.02fK: 0.82fZ3 : 1-Z3 fF:1-KfZ2 U+W(Z1 cos(G+QEKW( Z4 +KWD)+Bcos(G+ Z3 QEW( Z4+Z3 WD)+Bcos(G+QEFW ( Z4 +FWD)+ Z1 cos(G+ Z2 QEW( Z4 + Z2 WD) fX:V+W(Z1 sin (G+QEKW(Z4 +KWD)+B sin(

2、G+ Z3 QEW( Z4 + Z3 WD)+B sin(G+QEFW (Z4 +FWD)+ Z1 sin(G+ Z2 QEW( Z4 + Z2 WD)fY:G+QEW(Z4 +WD) f F: X+Zcos(F+A) f X : Y+Zsin(F+A) f Y: If F 仝 360:Then F-360fF:IfEnd” X=” fX 丄” Y=” fY 丄If F XX: C=2=XZ ”:”C=”?C:”QHJU=”?L: If C=1:Then Goto 1:ElseGoto 2: IfEnd可以计算斜交斜做或斜交正做的桥涵坐标Lbi 1X+Lcos(F) fX : Y+Lsin(F

3、) fY: Goto 3Lbi 2X+Lcos(F+A-90) fX: Y+Lsin(F+A-90) fY: Goto 3 Lbi 3QH-X= : X f X 丄QH-Y= : Y f Y 丄Prog “ FY”2 . 参数子程序 （直接运行）M( 主线 )条线路一个名称S=?SIf S三线元终点：Then线元起点X值f U:线元起点Y值f V:线元起点切线方位角f G:线元起点桩号f O线元长度f H:线元起点半径f P:线元终点半径f R:（左 偏-1 ，或右偏 1 ）f Q:Goto 1:IfEndIf S三线元终点：Then线元起点X值f U:线元起点Y值f V:线元起点切线方位角f

4、 G:线元起点桩号f O线元长度f H:线元起点半径f P:线元终点半径f R:（左 偏-1 ，或右偏 1 ）f Q:Goto 1:IfEndLbi 1Prog “ ZBJS”3. 放样程序（ FY）（不运行）“X0= ” ?M:“Y0=”？NPol（X-M, Y-N）If J O:Then J+360 f J:lfEnd“FWJ= :J DM2“JU-LI= ” :l 丄说明：一、程序功能及原理1.功能说明：本 程序由一个主程序和两个子程 正算主程序 （ZH） 、参数子程序（ M ）、放样程 序（ FY ），可以根据曲线段 直线、圆曲线、缓和曲线 （完整或非完整型） 的线 元 要素（起点坐标

5、、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲 率半径、左偏或右偏）及里程边距或坐标，对该线元段范围内任意里程中边桩坐标 进行正算。本程序可以在 CASlO fx-4800P 计算器及 CASlO fx-4850P 计算器上运行。 2计算原理：利用 Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。 利用待求点至线元起点切线作垂线，逐次迭代趋近原理反算里程及边距。二、使用说明1、规定（1）以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1;当线元往右偏时， Q=1。（2）当线元为直线时，其起点、止点的曲率半径为无穷大，以10的 4

6、5次代替。（3）当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等 于圆弧的半径。（4）当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的 45 次代替;与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时， 曲率半径为无穷大，以 10的 45次代替;与圆曲线相接时，曲率半径等于圆曲线的 半径。（5）当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定 的值;与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半 径等于设计规定的值;与圆曲线相接时，曲率半径等于圆曲线的半径。2、运行参数子程序（要做哪条线就直接运行哪条线的参数子程序）输入S （ S=?） 为任意里程桩号Z （Z=?） 为斜距（当所求点位于中线时， Z=0 ;当位于中线左侧时，Z 取负值；当位于中线右侧时，Z取正值）A (YJJ=?) 输出为右夹角（0三W 180）X=*Y=*计算的 X 坐标值 计算的 Y 坐标值QXFWJ= * * * 计算的里程桩号 K的切线方位角输入C=? 当 C=1 时，为计算斜交斜做的桥涵坐标;当 C=2 时，为计算斜交 正做的桥涵坐标QHJU=? 相对于刚计算完坐标的那个点的大桩号（ +）或小桩号（ -）的距离 输出QH-X=* *计算的斜