CASIO fx-5800P实用工程测量程序
一、QXFY 辛甫森公式放样程序
1. “X0”? U：“Y0”?V 2. “XA”? A：“YA”? B：“CA”? C： “1÷RA”?D： “1÷RB”?E：
“KA”?F：“KB”? G 3. Lb1 1： “KI”?H：“JJ”?L：“ Y+Z－”?R 4. If H>G Or H 8. C+(Z÷4+2D)Q×22.5÷π→M：C+（3Z÷4+2D）Q×67.5÷π→N：C+(Z÷2+2D)Q×45÷π→K 9. A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W+L) →X：“X＝”：X 10. B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(W))÷12+Rsin (W+L) →Y：“Y＝”：Y 11. Pol((X-U)，（Y-V）) If J≤0 Then J+360→J: IfEnd : “FWJ”:J DMS 12. “JU”: I 13. Goto 1 程序显示说明： 须输入参数： X0:置镜点X (对应变量U) Y0:置镜点Y (对应变量V) XA:曲线起算点X (对应变量A) YA:曲线起算点Y (对应变量B) CA：曲线起算点切线方位角 (对应变量C) 1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负 (对应变量D) 1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负 (对应变量E) KA:起算点里程 (对应变量F) KB:曲终点里程 (对应变量G) KI:待求点里程 (对应变量H) JJ:夹角(与前进方向切线向右的夹角) (对应变量L) D“Y + Z－：偏距，右正 左负 (对应变量R) 计算结果: W: 待求点切线方位角 (对应变量W) X:计算点x (对应变量X) Y:计算点y (对应变量Y) FWJ:放样方位角 (对应变量J) S:放样距离 (对应变量I) 优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 1 - CASIO fx-5800P实用工程测量程序 置镜点 KBFWJX0Y0S切线方位角WRB夹角JJ计算里程 KICA边桩 右正左负起算里程 KAXAYARA 本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点 分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩也可求斜交或正交的边桩。考虑到程序中调用变量较多与其它程序变量冲突，造成不方便来回交叉使用，便把反算程序嵌套其中，作为一个完整独立放样和坐标计算程序，不含子程序 当输入待求里程超出该曲线单元范围时程序会拒绝运算，并提示重新输入里程，避免计算错误结果；如要求另一曲线单元内里程须重新进入程序输入相应曲线元参数计算 由于应用中待求里程不一定按从小到大顺序便去掉了把计算里程替代为起算里程的语句，造成待求里程与起算里程距离较远时精度会略有影响，但对于一般工程中较大半径曲线，影响非常小仅在毫米上可以忽略不予考虑。 优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 2 - 切线方位角CASIO fx-5800P实用工程测量程序 二、坐标反算ZBFS 1. “X0”？ U： V“Y0”？V 2. Lbl 0： “X”？ X： “Y”？ Y：Pol((X－U),(Y－V)) 3. If J≤0：Then J+360→J：IfEnd ：“FWJ” ：J 4. “JU”： I 5. Goto 0 程序显示说明： 须输入参数： X0？: 起算点 X Y0？: 起算点Y X ？: 计算点X Y？ : 计算点 Y 计算结果: FWJ: 反算方位角 JU: 反算距离 X ？Y？: 重新输入计算点X Y 三、坐标正算ZBZS 1. “X0”?X：“Y0”? Y：“S”? S：“T”? T 2. “X1”:X+Scos(T)→M “Y1”:Y+Ssin (T)→N 程序显示说明： 须输入参数： X0？: 起算点X Y0？: 起算点Y S？: 正算距离 T？: 方位角 计算结果: X1: 计算点X Y1: 计算点Y 优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案DMS - 3 - QQ:330890887 CASIO fx-5800P实用工程测量程序 四、竖曲线SQX 1. “R＝”? A：“T＝”? B：“I1＝”? C：“I2＝”? D：“K0 ＝”?E：“H0＝”? F 2. If C>D : Then －1→T : Else 1→T : IfEnd 3. Lbl 0：“K＝”?K：Abs(E－K）→S： 4. If S>B : Then Goto 0 : IfEnd 5. If E≥K : Then Goto 1: Else Goto 2 :IfEnd 6. Lbl 1：F－SC+T（B－S）2÷2÷A→ G:“G”: G 7. Goto 0 8. Lbl 2：F+SD+T（B－S）2÷2÷A→ G:“G”: G 9. Goto 0 程序显示说明： 须输入参数： R＝？: 竖曲线半径 T＝？: 切线长 I1＝？: 变坡点前坡度值，上坡为正，下坡为负（如-2.5%则输-0.025） I2＝？: 变坡点后坡度值，上坡为正，下坡为负 K0＝？：变坡点里程 H0＝？：变坡点坡线高程 K＝？：待求点里程 计算结果: G: 待求点曲线高程 K＝？：重新输入待求点里程 注：计算里程仅在竖曲线范围内 H坡I1H曲TI2RRRRI1H曲H坡TI2凸型竖曲线凹型竖曲线 优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 4 - CASIO fx-5800P实用工程测量程序 五、直线段坐标换算ZXZH (X,Y)→(A,B) 1. “X0”?M：“Y0”? N：“K”? Z：“T”? T 2. Lbl 0 ：“X”?X ：“Y”?Y 3． (X－M) cos(Ｔ)＋(Y－N)sin(Ｔ)＋Ｚ→Ａ: “LC”: A 4． (Y－N)cos(Ｔ)－(X－M)sin(Ｔ)→Ｂ: “KD”: B 5． Goto 0 程序显示说明： 须输入参数：X0? Y0?－直线起算点坐标（Ｘ，Ｙ） (对应变量M N) K?－起算点桩号 (对应变量Z) Ｔ?－起算点至ＪＤ的方位角 (对应变量T) Ｘ? Ｙ?－待求点坐标 (对应变量X Y) 计算结果: LC－待求点对应桩号 (对应变量A ) KD－距离中线距离，左负，右正 (对应变量B ) Ｘ? Ｙ? －重新输入待求坐标点 圆心OX Y K ：里程X ：X坐标Y : Y坐标α切 ：指向前进方向切线方位角α右法：指向右侧法线方位角R=线∞HZRR圆曲线段缓YHR=∞直线段R=∞缓和曲线段QZHYZH K X Y α切 K X Y α切 Kα右法 JD 优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 5 - 和曲段α