阅览室馆友我的图书馆kaixin100|| 分享U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+ QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y反算子程序SUB2G-90→T(Y-V)cosT-(X-U)sin(T) →WAbs(W)→W:0→ZLbl6：Prog "SUB1"T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→ZIF Abs（Z）<1E-6：Then0→Z:Prog "SUB1":(J-Y)÷sin（F）→Z:ElseW+Z→W：Goto6:IfEnd数据库子程序SUB0Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。

例：左幅为K129+500,右幅输线元参数里程为1129+500，其他不变，前面1为任意数字，计算机便于区分)Lbl 1：IF S<线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G(线元起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd IF S<线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G线元(起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd 。

一程序功能本程序由一个主程序(ZBJS)和3个子程——正算子程序(SUB1)、反算子程序(SUB2) 、数据库子程序（SUB0）构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。

本程序也可以在CASIO fx-4500P计算器及CASIO fx-4850P计算器上运行。

二、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

(2) 当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线中线右侧时，Z取正值。

(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。

(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

2、输入与显示说明输入部分：1. SZ => XY2. XY = > SZS ? 选择里程,N?，Z?左或右偏距。

选择计算方式，1.表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。

显示部分：XS=×××正算时，计算得出的所求点的X坐标YS=×××正算时，计算得出的所求点的Y坐标FS=×××正算时，所求点对应的中线点的切线方位角XC=×××测站点X值YC=×××测站点Y值I=XXX 测站到放样点距离J=XXX 测站到放样点方位角S=×××反算时，计算得出的所求点的里程Z=×××反算时，计算得出的所求点的边距三算例注:1.本程序根据空间里程序改编而成，并非本人原创。

2.正算跨线元计算正确，反算时跨线元计算第一次结果错误，，反应速度比一般输出结果慢，给出结果S=XXX为输入坐标的线元概略里程，在进行计算，显示结果*近似里程*，里程及偏距误差0.001m.，可更改数据（1E-6）改为（1E-3），速度稍快一点。

3．本程序可进行偏角法放样。

4.输入每行数据看数据输完毕没有，输完不要忘记按（EXE）5.使用者需细心输入，有问题在以下网址查找原因。

/celiang/article_view.asp?id=380&author=yshf6．1E-6即是10的負6次方,亦即是等於0.0000017.希望高人指点把此程序改为数据库形式，并加入高程，希望哪位神仙路过指点一下，把程序改为坐标、高程一体的这程序就完美了，程序中不足之处请指点。

四、算例某匝道的由五段线元（直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线）组成，各段线元的要素（起点里程S0、起点坐标X0 Y0、起点切线方位角F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线元左右偏标志Q）如下：S0 X0 Y0 F0 LS R0 RN Q500.000 19942.837 28343.561 125 16 31.00 269.256 1E45 1E45 0 769.256 19787.340 28563.378 125 16 31.00 37.492 1E45 221.75-1806.748 19766.566 28594.574 120 25 54.07 112.779 221.75221.75 -1919.527 19736.072 28701.893 91 17 30.63 80.285 221.759579.228 -1999.812 19744.038 28781.659 80 40 50.00 100.000 1E45 1E45 01、正算（注意：略去计算方式及线元要素输入，请自行根据所求点所在的线元输入线元要素）S=700 Z=-5 计算得XS=19831.41785 YS=28509.72590S=700 Z=0 计算得XS=19827.33592 YS=28506.83837S=700 Z= 5 计算得XS=19823.25398 YS=28503.95084S=780 Z=-5 计算得XS=19785.25749 YS=28575.02270S=780 Z=0 计算得XS=19781.15561 YS=28572.16358S=780 Z= 5 计算得XS=19777.05373 YS=28569.30446S=870 Z=-5 计算得XS=19747.53609 YS=28654.13091S=870 Z=0 计算得XS=19742.68648 YS=28652.91379S=870 Z= 5 计算得XS=19737.83688 YS=28651.69668S=940 Z=-5.123 计算得XS=19741. 59118 YS=28722.05802 S=940 Z=0 计算得XS=19736.47687 YS=28722.35642 S=940 Z= 3.009 计算得XS=19733.47298 YS=28722.531682、反算X=19831.418 Y=28509.726 计算得S=699.9999974 Z=-5 .00018164X=19827.336 Y=28506.838 计算得S=699.9996493 Z=0.000145136X=19823.25398 Y=28503.95084 计算得S=699.9999985 Z=5.000003137X=19785.25749 Y=28575.02270 计算得S=780.0000035 Z=-5 .000001663X=19781.15561 Y=28572.16358 计算得S=780.0000025 Z=-0.000002979X=19777.05373 Y=28569.30446 计算得S=780.0000016 Z=4.99999578X=19747.536 Y=28654.131 计算得S=870.0001137 Z=-4.99941049X=19742.686 Y=28652.914 计算得S=870.0003175 Z=-0.00041814X=19737.837 Y=28651.697 计算得S=870.0002748 Z=4.999808656X=19741.5912 Y=28722.0580 计算得S=939.9999786 Z=-5.123024937X=19736.4769 Y=28722.3564 计算得S=939.9999862 Z=-0.000027710X=19733.4730 Y=28722.5317 计算得S=940.0000238 Z=3.00898694来自：kaixin100 >转藏到我的图书馆献花(0)分享到微信以文找文类似文章更多fx 5800正反算、边坡放样、隧道超欠挖[分享]公路万能中边桩坐标正反算卡西欧4...Casio5800交点法与线元法（积木法）匝道...卡西欧5800程序（坐标正反算）—测量空间....关于隧道超欠挖的控制方法fx5800的使用CASIO fx4850万能计算程序[kaixi--点燃...复化辛普生公式全线坐标放样程序（5800P...热门推广猜你喜欢人生要交的五个朋友极品美图-高清自然风光图片 四大名著中的经典名句 和药片一样靠谱的14种水果 女人身体的桃花痣二流学生遇到一流老师 杰出青少年的7个习惯 中国古代商朝至满清盔甲大全 看哪些人不好相处 有效治疗感冒的十八种简便秘方:伤风...Fx4850最精简的万能坐标计算程序(线元法）收藏人：南山风雪2011-09-13 | 阅： 转： | | 分享1、JD-XY(计算主程序)（线元法）NormZ”KM’：D ：N”PJ”:Prog”D”P=(S-R)÷T:Q= Z-C:I=PQJ=F+90Q(I+2R)÷∏:J≥360=>J=J-360: ≠>J<0=>J=J+360⊿L=F+45Q(I÷4+2R)÷(2∏):O =F+135Q(3I÷4+2R)÷(2∏):K=F+45Q(I÷2+2R)÷∏U=A+Q÷12×(COS F+4(COS L+COS O )+2 COS K+COS J):V =B+Q÷12×(sin F+4(sin L+ sinO )+2 sin K+ sin J): W=J+N:X=U+D COSW:Y=V+D sin W:Fix 3:”XD=”:X▲“YD=”:Y本程序可以计算任何线型，包括直线、缓和曲线、圆曲线、不等半径曲线等，由其是匝道各曲线计算。