卡西欧5800计算器公路坐标计算程序.docVIP

卡西欧5800计算器公路坐标计算程序 卡西欧计算器在公路方面广泛应用，现将单个简单的坐标计算程序分享给朋友们，望对刚入行的同志们有所帮助! 一、直线 ?P:?Q:?F:?A Lb10 ?D Abs(D-A) →K Rec(K,F) “X=”:P+I→X◢ “Y=”:Q+J→Y◢ ?S:?E Rec(S,F+E) “M=”:X+I→M◢ “N=”:Y+J→N◢ Goto 0 P起点x坐标 Q起点y坐标 F起点方位角 A起点桩号 D所求桩号 X所求中桩x坐标 Y所求中桩y坐标 S中桩与边桩距离 E中桩与边桩夹角（左-右+） M所求边桩x坐标 N所求边桩y坐标 二、圆曲线 ?P:?Q:?F:?A:?G:?R Lb10 ?D Abs(D-A) →K 180K÷(Rπ) →O RSin(O) →T R(1-cos（O）) →U Rec(T,F) P+I→X:Q+J→Y Rec(U,F+90G) “X=”:X+I→X◢ “Y=”:Y+J→Y◢ ?S:?E Rec(S,F+OG+E) “M=”:X+I→M◢ “N=”:Y+J→N◢ Goto 0 P起点x坐标 Q起点y坐标 F起点方位角 A起点桩号 D所求桩号 G左、右偏（左-右+） R半径 X所求中桩x坐标 Y所求中桩y坐标 S中桩与边桩距离 E中桩与边桩夹角（左-右+） M所求边桩x坐标 N所求边桩y坐标 三、前缓和曲线 ?P:?Q:?F:?A:?G:?R:?L Lb10 ?D Abs(D-A) →K K-K^(5)÷(40R2L2)+K^(9) ÷(3456R^(4)L^(4)) →T K^(3) ÷(6RL)-K^(7) ÷(336R^(3)L^(3))+K^(11) ÷(42240R^(5)L^(5)) →U Rec(T,F) P+I→X:Q+J→Y Rec(U,F+90G) “X=”:X+I→X◢ “Y=”:Y+J→Y◢ 90K2÷(πRL) →O ?S:?E Rec(S,F+OG+E) “M=”:X+I→M◢ “N=”:Y+J→N◢ Goto 0 P起点x坐标 Q起点y坐标 F起点方位角 A起点桩号 D所求桩号 G左、右偏（左-右+） R半径 L缓和曲线长 X所求中桩x坐标 Y所求中桩y坐标 S中桩与边桩距离 E中桩与边桩夹角（左-右+） M所求边桩x坐标 N所求边桩y坐标 结束语：后缓和曲线我没编，当然我们可以用前缓和曲线算后缓和曲线。 二零一二年十二月三日晚 河南新郑龙湖