5800计算器测量计算程序.docVIP

Casio Fx-5800P 计算器公路测量计算程序 王宏伟 2009年8月1日 非对称及对称曲线坐标计算程序源 主程序1（DF） “X0”？O：“Y0”？Z Pol（X-O，Y-Z）：I：“D=”：I◢ J0=J+360→J：J：“FWJ=”：J DMS◢ 主程序2：（SIMI） （U÷V-U÷R）÷（Q-A）→T 4→N （K-A）÷N→H 90H÷л→S F+（（TNH+U÷R）+U÷R）NS→W 1→G D+H÷6×（cos（F）+cos（W）+4∑（cos（F+（（G+0.5）HT+2U÷R）（G+0.5）S），G，0，（N-1））+2∑（cos（F+（THG+2U÷R）GS，G，1，（N-1）））+Lcos（W+P）→X E+H÷6×（sin（F）+sin（W）+4∑（sin（F+（（G+0.5）HT+2U÷R）（G+0.5）S），G，0，（N-1））+2∑（sin（F+（THG+2U÷R）GS，G，1，（N-1）））+Lsin（W+P）→Y 坐标计算程序源：（BJL被交路） Lbl 0 “K”？K：“L”？L：“P”？P K1102=Goto B：K1498.2=Goto C：K≤2917.2=Goto D Lbl B 0→A：1102→Q：7700→R：7700→V：4211738.83→D：637209.588→E：269°4′11.4″→F：1→U：Goto 1 Lbl C 1102→A：1498.2→Q：7700→R：6000→V：4211799.713→D：636110.212→E：277°16′11.4″→F：0→U：Goto 1 Lbl D 1498.2→A：2917.2→Q：6000→R：6000→V：4211849.851→D：635717.198→E：277°16′11.4″→F：-1→U：Goto 1 Lbl 1 Prog“SIMI” W0=W+360→W：W：“FWJ=”：W DMS◢ “X=”：X◢ “Y=”：Y◢ Prog“DF”： Goto 0 程序说明 K ……所计算桩号 W“FWJ”……所计算桩号切线方位角 A“QD”……起点里程 Q“ZD”……终点里程 R“RO”……起点半径 V“RN”……终点半径 D“XQ”……起点坐标 E“YQ”……起点坐标 F“F0”……起点方位角 U……曲线转向（左-1、直0、右1） L……距中桩距离 P……边桩与中线交角 CASIO FX—5800P (公路测量程序) 3