5800计算器全线坐标计算放样正反算程序.doc

5800计算器全线坐标计算放样正反算（定稿）5800计算器全线坐标计算放样正反算程序（定稿）彭赐明主程序坐标正反算程序名称：zbzfslb1acls : fix 4 : 30dim z :0=zs,1=fs?z ifz=0:thengoto b:ifend(z=0进入里程点坐标正算）ifz=1:thenprogfslcbz : goto a:ifend(z=1进入反算里程边桩）lb1 b“k=”?k ：（计算里程） progsjk1 :prog”zbfy” :goto a子程序数据库sjk1ifk本段曲线终点里程andk上段曲线终点里程 ：then本段终点里程z1 : 上段曲线终点里程z2 ：1o （注：左偏曲线输入-1o,右偏曲线输入1o）: 半径r : 曲线偏角a:第一缓和曲线z6 : 第二缓和曲线z7 : 交点 xb :交点 yc : 小里程向交点方位角e : 交点向大里程方位角f : prog”xlzbjscx”:return: ifendifprog”xlzbjscx”:return:ifend（曲线段分段输入）补充直线段输入如下(单独直线段）if k z2 : thengoto4 : ifend ifkz4andk z3 : thengoto5 : ifend ifkz5andk z4 : thengoto6 : ifend ifkz1andk z5 : thengoto7 : ifend lb14 （里程小于直缓点直线独立坐标）k- z3 z23 : 0z24 : et : goto8lb15 （第一缓和曲线独立坐标）k- z3 h h-h5/(40*r2* z62)+h9/(3456*r4* z64) z23 h3/(6*r* z6)-h7/(336*r3* z63) z24 90*h2/( r* z6) t ifo0：thent +et : elsee-t t : t360+tt : ifend goto 8 lb1 6 （圆曲线独立坐标）k- z4 h h*180/( r*)+ z14t r*sin t+ z8z23 r*(1-cos t)+ z10z24 ifo0：thent +et : elsee-t t : t360+tt : ifend goto 8 lb1 7 （第二缓和曲线独立坐标）z1 -kh h-h5/(40*r2* z72)+h9/(3456*r4* z74) uh3/(6*r* z7)-h7/(336*r3* z73) v 90*h2/( r* z7) t z13cos a+ z12-u*cos a-v*sin az23 z13*sin a-u*sin a+v*cos az24ifo0：thenf-tt : t360+tt : elsef+t t : ifend goto8 llb1 8ifo0: then- z24z24 : ifend z16+z23*cos e-z24*sin ez18 z17+z23*sin e+z24*cos ez19 return子程序反算里程边桩，名称：fslcbzlb11xk=?x:yk=?y（输入任意测点的xy坐标）:“k=”?k （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）lb12progsjk1 :t-90 w:w360+ww:abs(y-z19)*cos w-(x-z18)*sin w)sifs0.0001:thengoto4:elsegoto 3:ifendlb13k+sk: progsjk1:t-90 w:w360+ww:abs(y-z19)*cos w-(x-z18)*sin w)qifq0.0001 :then qs: goto4:else ifqs:thenk-qk:goto2:ifend:ifend:ifendlb14pol (x-z18,y-z19:dp(-z+y)=:i(偏距）（由于该程序不能准确判断边桩左右方向，暂作修改，取消左右边判定）k=:k+sk（里程）return子程序坐标放样：zbfylb10 “xhs=?g(后视点x):yhs=?l(后视点y):xzj=?m(置镜点x):yzj=?n(置镜点y):pol(g-m,l-n):dh=:i(后视距)jj+360j:fh=:jdms(后视方位角) “qxj=” :t（计算里程点切线方位角，可以不显示）“xi=” : z18 （中线x）“yi=” : z19 （中线y）pol(z18-m,z19-n):di=:i（中桩放样距）jj+360j:fi=:jdms（中桩放样方位角）“pj=”?p (输入边桩与线路夹角，左-右+)“pd=”?d（输入边桩距）z18+d*cos(t+p) z20 z19+d*sin(t+p) z21 “xp=”: z20 （边桩x）“yp=”: z21 （边桩y）pol(z20-m,z21-n):dp=:i（边桩放样距）jj+360j:fp=:jdms（边桩放样方位角）return回复内容只查看楼主与本人回复沙发：1209-4-11 22:26 回不经意间我就连续点击了12次2 楼：ouzhigang09-4-12 21:44 回学习学习,我没用过5800.求教了3 楼：lxmf109-4-12 22:44 回等待ing4 楼：nut09-4-13 8:41 回评：+10 分期待彭工的该程序早日出炉，支持！6 楼：longfengshan09-4-13 19:27 回评：+8 分优势互补，支持共享7 楼：彭军09-4-13 23:46 回彭工你好这个程序如果再弄一下就非常完美了。计算边桩的程序能不能再改一改，然后加个判断语句，比喻在小半径曲线上（一头跨径大一头跨径小）要求曲桥直做或曲桥曲做，边桩如何修正偏移值？8 楼：彭赐明 楼主 09-4-15 20:44 回评：+10 分4月15日完成最终修改了，计算速度也可以了9 楼：徐长龙09-4-16 14:38 回评：+2 分fix符号在那里找啊 ？10 楼：徐长龙09-4-16 14:39 回评：+10 分楼主qq多少啊我有好多问题想问你11 楼：彭赐明 楼主 09-4-16 18:39 回有问题请说，fix按shift加mode可以找到（第6个），输入程序前请熟读说明书12 楼：zzq028809-4-17 0:26 回评：+10 分很好13 楼：公路09-4-18 7:14 回有断链怎么呀？楼主？14 楼：彭赐明 楼主 09-4-18 14:17 回看是长链还是短链，在直线上还是在曲线上15 楼：zzq028809-4-19 1:0 回都没发现你在哪赋予值给j啊？pol(z18-m,z19-n):di=:i（中桩放样距）jj+360j:fi=:jdms我用就出错了？这是为啥啊16 楼：黄老邪09-4-19 2:22 回子程序反算里程边桩，名称：fslcbzlb11xk=?x:yk=?y（输入任意测点的xy坐标）:“k=”?k （貌似这个应该在最后.)还有本段lb14pol (x-z18,y-z19（这块最后也少了一个括号吧？）运算主程序zbzfs时候，出现输入：“xhs=”之后就提示“syntax error”，按返回光标就出现在：子程序坐标放样：zbfylb10 “xhs=?g(后视点x):yhs=?这个y后面是怎么回事？请彭工检查一下好么？问题是我输入错误还是语句有问题呢？17 楼：彭赐明 楼主 09-4-19 7:11 回评：-10 分16楼：xk=?x:yk=?y（输入任意测点的xy坐标）:“k=”?k （貌似这个应该在最后.)，y后面的应该在k后面。一般情况下括号必须扩全，有时也可以省略，比如pol (x-z18,y-z19：即可。yhs=?，是 l，请核对。15楼：pol（）和rec()是极坐标和直角坐标转换，转换值计算器存在默认的变量i,j上。dms是单独一个符号，计算器里有，function键加5键加4键可以找到。18 楼：贵广09-4-19 7:48 回圆曲线上和直线都有，圆曲线是长链。直线是短链。19 楼：彭赐明 楼主 09-4-19 8:18 回直线短链要将该直线分成二条直线来对待编制数据库文件即可，曲线长链要单独建判定语句子程序并然后编制二个数据库（按来向里程和去向里程分别推出曲线起终点里程，以此编制曲线段的数据库）。20 楼：nut09-4-19 9:45 回彭工，你好，我这里有个4800的程序要改成5800，我每次修改都会在这个地方出现math error，能帮我改下吗？谢谢！4800源程序（部分）为：t=m+(r+p)tan(z10/2):k=z5-180:kk=k+360:z12=z1+rec(t,k:z13=z2+j:k=z6:z14=z1+rec(t,k:z15=z2+j:z16=z3-t:prog12在该语句运行到rec（t,k _处出现“math error,不知道什么原因，我猜可能是k值超出范围了，但是为什么在4800程序中它又没有出界呢？请老师指点！谢谢21 楼：黄老邪09-4-19 10:44 回评：+10 分几乎整了一晚上，没想到彭工那么早就解答了.感动ing我估计还是我的数据库输入有问题，计算出来好像不是那么回事啊？麻烦你看一下我的数据库输入：jd24 桩号k78+788.249(x：29435.524,y：73399.211)，转角右291215.8；半径1700；缓和曲线ls1=ls2=226.118；本段曲线终点桩号k79+324.623；上段曲线终点里程：k78+231.994小里程向交点方位角2333914.2；交点向大里程方位角2625129.9jd25 桩号k81+291.129(x：29121.886,y：70896.022)，转角左440959.3；半径1200；缓和曲线ls1=ls2=154.083；本段曲线终点桩号k81+806.007；上段曲线终点里程：k79+324.623；小里程向交点方位角2625129.9；交点向大里程方位角2184130.7输入5800是否：if k79324.623andk78231.994 ：then79324.623z1 ：78231.994z2 ：1o : 1700r ： 291215.8a:226.118z6：226.118z7 ： 29435.524b :73399.211c： 2333914.2e ： 2625129.9f： prog”xlzbjscx”：return： ifendif k81806.007andk79324.623 ：then81806.007z1：79324.623z2 ：-1o：1200r ： 440959.3a：154.083z6：154.083z7：29121.886b ：70896.022c ：2625129.9e：2184130.7f： prog”xlzbjscx”：return：ifend以上输入是否有误？请彭工帮忙检查一下，谢谢，感激不尽！22 楼：nut09-4-19 19:57 回40 楼：彭赐明 楼主09-3-26 20:59 回线路末尾直线段的输入改为if k1358.861 andk801.348:then 1o:1358.861z3:4267501.234z16:385155.025z17:303-48-18e:goto 4:ifend 请问楼主：在这个程序中线路末尾直线段是怎么输入呀？23 楼：ryrye09-4-20 11:43 回彭工帮忙看看这个程序哪儿有问题5800中边桩坐标计算程序（含数据库）由4800 4850程序直接引用改编zzzzzz(主程序)lb1 1:”no.i”?h:prog”z1”换行(e-d)/abs(g-f)p: abs(h-f)q: pqi换行c（i2d）q90j换行c（i82d）q45（4）m换行c（3i82d）q135（4）n换行c（5i82d）q225（4）u换行c（7i82d）q315（4）v换行c（i42d）q45（2）k换行c（i22d）q45l换行c（3i42d）q135（2）z换行aq24（cosc4（cosmcosncosucosv）2（coskcoslcosz）cosj）x换行bq24（sinc4（sinmsinnsinusinv）2（sinksinlsinz）sinj）y换行“x=”:x“y=”:y“w l“?o:wr?r“xl=”:xocos（j90）“yl=”:yosin（j90）“xr=”:xrcos（j90）“yr=”:yrsin（j90） goto 1换行z1（数据库）if h终点桩号：then起点桩号f:终点桩号g：起点x坐标a:起点y坐标b：起点切线方位角c：起点曲率d:终点曲率e: goto 0:if end换行同上下一个线元要素。n个lb1 0：return换行曲率左偏为负右偏为正return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如z2 z3。等等需要使用时把主程序z1改为z2依次类推no.i？为要求点里程24 楼：ryrye09-4-20 11:44 回aq24（cosc4（cosmcosncosucosv）2（coskcoslcosz）cosj）x换行 运行到在这里运行不起走25 楼：nut09-4-20 18:6 回彭工，你好，我这里有个4800的程序要改成5800，我每次修改都会在这个地方出现math error，能帮我改下吗？谢谢！4800源程序（部分）为：t=m+(r+p)tan(z10/2):k=z5-180:kk=k+360:z12=z1+rec(t,k:z13=z2+j:k=z6:z14=z1+rec(t,k:z15=z2+j:z16=z3-t:prog12在该语句运行到rec（t,k _处出现“math error,不知道什么原因，我猜可能是k值超出范围了，但是为什么在4800程序中它又没有出界呢？请老师指点！谢谢26 楼：彭赐明 楼主 09-4-21 7:46 回评：-10 分rec(t,k算出来的是二个值（i、j），21楼看你是否把缓和曲线长度输成缓和曲线曲率了，数据输入是对的。24楼看你括号扩对没有27 楼：路人09-4-21 8:8 回能处理断链吗28 楼：彭赐明 楼主 09-4-21 11:42 回能，在数据输入时稍作修改即可，稍后我提供解决方案29 楼：ryrye09-4-21 12:36 回括号扩对了的!30 楼：28122706309-4-21 12:47 回彭老师：我在书上抄了一个5800的程序，这个程序是计算任意竖曲线高程的，计算时需要输入竖曲线的各项参数，但是不知道哪里有问题，总算来合不上，请帮忙修改一下，谢谢老师程序名：sqfdjc“q”?q:“z”？：“”？：“”？：“”？：“”：abs(r(i+j)2t0m“h”?h:lbl 1:m+1m:if m=1:then tib:else tjb:ifend:“a=”:h-ba“k”?k:“d”?d:0n:lbl 0:n+1n:“s”?s:ifsz and kz:then-ss:-kk:ifend:ifsz and abs(k)z:then-ss:ifend:h-ap:s-k:“hp=”:a+pt+q(2rngoto:mgoto1:“k”t:竖曲线的切线长； r：竖曲线的半径； e：切线交点的高程； s：需计算点的桩号；d：计算点的数量； hp：须计算点的高程； h:变坡点的实测高程z:竖曲线变坡点的桩号k:曲线起点或终点的桩号 a: 曲线起点或终点的计算高程 i、j:变坡点两侧路线的设计坡度q:图形信息（竖曲线为凸曲线时，q的编码为-1，反正为+1）31 楼：彭赐明 楼主 09-4-21 13:54 回评：+10 分数据输入时断链解决方案：短链情况：ifk短链来向里程：then k-短链长度k:ifend: 本段终点里程-短链长度z1 : 上段曲线终点里程z2 ：1o （注：左偏曲线输入-1o,右偏曲线输入1o）: 半径r : 曲线偏角a:第一缓和曲线z6 : 第二缓和曲线z7 : 交点 xb :交点 yc : 小里程向交点方位角e : 交点向大里程方位角f : prog”xlzbjscx”:return: ifend长链情况：ifk长链来向里程：then k+长链长度k:ifend: 本段终点里程+长链长度z1 : 上段曲线终点里程z2 ：1o （注：左偏曲线输入-1o,右偏曲线输入1o）: 半径r : 曲线偏角a:第一缓和曲线z6 : 第二缓和曲线z7 : 交点 xb :交点 yc : 小里程向交点方位角e : 交点向大里程方位角f : prog”xlzbjscx”:return: ifend先用这个试试32 楼：nut09-4-21 15:28 回彭工，我们工区的图纸是标尾段，设计图纸只提供了最后一直线段的桩号和距离，曲线偏角，缓和曲线长度，大里程方位角都未提供，我按照单独直线段输入数据，中桩坐标算出来是正确的，但是边桩坐标是错误的。我想此时的边桩t值是没有赋值的，所以会出现边桩坐标错误33 楼：nut09-4-21 15:38 回小弟刚刚把标尾段中加入et赋值语句，标尾段边桩坐标计算正确，您看下我改的对不对34 楼：nut09-4-21 17:1 回不好意思，是我弄错了35 楼：中铁22局高健09-4-21 17:36 回评：+10 分彭工您好，不知道为什么，我这个程序一输入s=？里程的时候就出现错误，我以前也用过类似这个5800的程序，是4800的，也是要求输入线源元素的，能请教彭工吗？请问彭工的qq号多少？我的是38334822，能加我吗？谢谢啦！fx-5800计算机程序qxjs-000主程序lbl 4:“1.sz=ne”:“2.ne=sz”:?q:?s:prog“qxjs-sub0”lbl 0:q=1 = goto1:q=2 = goto2:lbl 1:?z:prog“qxjs-sub1”:“n=”:n“e=”:e“f=”:f goto4lbl 2: “n=”:?b: “e=”:?c:bn: ce:prog“qxjs-sub2”: “s=”:s “z=”:z goto4 qxjs-sub0 数据库子程序goto1 同时保存多个曲线时的指针lbl 1if s*（线元终点里程）:then*a（线元起点方位角）:*o（线元起点里程）:*u（线元起点x）:*v（线元起点y）:*p（线元起点曲率半径）:*r（线元终点曲率半径）: *l（线元起点至终点长度）: return:ifendif s0.0001 = goto1lbl 2: 0z：prog“qxjs-sub1”:(c-e) sin(f+90) z三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时，p、r取负值，当曲线半径在右时，p、r取正值，当曲线半径为无穷大（即直线）时，p、r以10的45次代替。(2) 当所求点位于中线时，z=0；当位于中线左铡时，z取负值；当位于中线中线右侧时，z取正值。(3) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明 输入部分：1. sz = xy2. xy = sz q ?选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。36 楼：黄老邪09-4-21 22:40 回彭工你好完整输入确认无误后，正算还可以。为何检查后在运行反算过程中，先输入反算点x坐标，再输入反算点y坐标，第三步输入估计的桩号后就死机了？37 楼：彭赐明 楼主 09-4-22 11:56 回这个程序反算速度在330秒左右也可能超过30秒38 楼：yutiiip09-4-22 13:13 回可以详细写出使用方法吗？39 楼：4-25 21:27 回写进去了用了后不知道是自己编错了还是数据库录入错了计算结果错得一塌糊涂有个问题想问下z6/2- z63/(240*r2)+ z65/(34560*r4) z8 （m1）z7/2- z73/(240*r2)+ z75/(34560*r4) z9 （m2）这样的后面的括号应该扩在3的后面呢还是在最后？40 楼：彭赐明 楼主 09-4-25 21:53 回z63在计算器的输入为z6（3）即z6的3次方的意思，其余雷同，最重要的提示：括号最好一个都不能少，必须扩全41 楼：云飞扬09-4-26 11:42 回评：+8 分程序不错，共享与指导精神可嘉，很佩服楼主的高风亮节。程序利用的是交点法计算坐标，但是把直线段单独计算，很不方便，也增加了曲线要素的输入，难道不能在交点中包涵直线段的计算吗？42 楼：natolase09-4-26 13:50 回源程序1.正算主程序gszsx0？i： y0？s： k0？o： f0？g： kn？h： r0？p： rn ？r：”q(-z+y)”？ q:(p-r)(2(h-o)pr)d：“k”?k：”l(-z+y)”? l:”ang”? m:abs(k-o)j：progsub：”x=” ?x”y=”?y=y”fwj=”: f-mf2. 正算子程序(sub)6dimz:0.1184634425a: 0.2393143352b: 0.2844444444z1: 0.0469100770c: 0.2307653449e: g+qcj(1p+cjd)180z2: g+qej(1p+ejd)180z3: g+0.5 q j(1p+0.5jd)180z4: g+q(1-e)j(1p+(1-e)jd)180z5: g+q (1-c)j(1p+(1-c)jd) 180z6:i+j(acosz2+bcos z3+z1cosz4+bcosz5+acosz6)x:s+j(asinz2+bsin z3+z1sinz4+bsinz5+asinz6)y：g+qj(1p+jd) 180+mf：x+lcosfx：y+lsinfy3. 曲线元要素数据库：dat if ko and kh :then*i:*s:*o:*g:*h:*p:*r:*q:return:ifendif ko and kh :then*i:*s:*o:*g:*h:*p:*r:*q:return:ifendif ko and kh :then*i:*s:*o:*g:*h:*p:*r:*q:return:ifendif ko and kh :then*i:*s:*o:*g:*h:*p:*r:*q:return:ifend if ko and kh :then*i:*s:*o:*g:*h:*p:*r:*q:return:ifend(注：如有多个曲线元要素继续添加入数据库dat中)4、m线（坐标正算）组合程序mg-zbprog”dat”:prog”gszs”楼主，这是本人根据李正云的4850程序改编的5800程序，经过本人的实际使用，程序的gszs部分计算结果完全正确，但在mg-zb这个组合程序中却出现了问题，出来的过程与gszs一样，达不到有数据库应有的效果，一时间又找不到所以然，请楼主帮助看下，解决问题，愿与各位测量同仁共同进步43 楼：彭赐明09-4-26 14:23 回41楼，本程序数据输入已含了曲线前一段直线的数据，最后的直线输入是解决标段尾直线或当独直线的，请详细看程序44 楼：natolase09-4-26 14:31 回楼主在线？42楼原稿中使用mg-zb组合程序后出现的结果直接就是k(输入桩号) l(-z +y)（左右偏距） ang（角度） 然后就直接出要求的x y 坐标了一直很习惯这个程序 可同样的改到5800就不成立请楼主指教45 楼：云飞扬09-4-28 10:12 回评：+8 分我看过了，也输入过了，正算能运行，但是是在每个交点间加入直线段后的基础上,但反算不能进行，反算时并不显示错误，只显示右上角一小黑块（正在运行），不管等多长时间也枉然，（输入了一已知点坐标和已知大概桩号甚至真桩号）就是不出结果。后视点坐标与置镜点坐标及距离与方位角每次计算都显示很麻烦，实际工作中只要开机时计算一次就够了，能否在同次计算第二个及以上的点位坐标计算时不显示？不算边桩时能否也不显示？想请教楼主，如果想应用在匝道上，怎么样改动？（也就是说用线元法计算）,在实际工作中经常有主线和匝道同做，要怎么样把它们并在一起或分线路？46 楼：彭赐明 楼主 09-4-28 22:4 回这个程序每个交点的数据输入已经含有zh点前一段直线数据，无需再加直线数据，数据多也影响反算速度，我的计算器反算在3至30秒之间，如果时间过长请核对程序输入。基本上你不要用这个算匝道等不规则曲线，除非他交点数据很完善和无不完全缓和曲线，这需要你对程序和要测量的线路数据很理解47 楼：山西09-5-2 3:33 回1、交点向大里程方位角？ 加上转角不就可以了吗？2、已有切线计算，可与设计交点桩号相互审核，避免网友输入错误和及时检查错误。3、hz和yz点可同步，减少判断、加快速度。4、增加曲线后端的直线计算不好意思，我没有仔细研读您的程序，只是看了数据库说明后提了几点小建议，还请原谅。48 楼：彭赐明09-5-2 7:21 回加转角有可能要进行小于0的方位角判断，切线计算是为了减少输入数据，也可以取消切线计算而在数据输入中加入切线长，曲线后直线有计算方法即单独直线段的计算方法49 楼：山西09-5-2 11:50 回全圆方位角怎么会有小于0 的呢？是转角左转吧！增加正负号就可以解决的。这样做会增加一个判断，会对速度有影响。但可以节省一些字符。像计算边桩部分，偏距加正负号就可以了。切线计算和交点桩号是有必然联系的，我的意思是让他们起到互相监督的作用。不过，有增加字符之过！50 楼：彭赐明09-5-2 19:55 回你那样输节约不了任何字符，还会拖慢计算速度，十分不理想的，交点桩号没有球用的51 楼：山西09-5-5 20:9 回今天输入了此程序进行测试，感觉不错，谢谢楼主52 楼：elie09-5-5 20:21 回评：+10 分这个反算大约需要多少秒呀! 53 楼：彭赐明 楼主 09-5-5 21:44 回330秒，要看数据库大小，数据库判断比较耗时54 楼：云南09-5-7 21:54 回你好，怎么输入多段曲线和直线呢？请教55 楼：云南09-5-7 21:57 回我输入多段曲线时出现错误啊56 楼：zhanghaitao110109-5-8 11:8 回评：+10 分5800我还没接触,准备学习下，支持楼主!57 楼：浪09-5-9 21:13 回评：+10 分我之前有输入个相似的程序，可就是在缓和曲线中的圆曲段的精度差比较多其他直线段跟缓和段都行请问楼主你这个程序已经测试过没，精度如何，目前本人急需5800程序，请楼主指教下，我qq是32968325058 楼：山西09-5-9 22:39 回评：+6 分不错的程序，不过，我还是建议楼主把后段方位角取消，这个在5800里面是可以自行判断的59 楼：一局09-5-10 11:26 回彭老师 你好，我已经将程序输入，但是曲线计算结果错误，只有直线是正确的。我已经检查3次程序输入无误。这样也说不清，我的qq是287807022，请您加下我，想向您请教。60 楼：山西09-5-10 22:13 回输入是正确的就检查数据库61 楼：浪09-5-10 22:50 回评：+6 分请问下上楼的，我也 输入此程序发现此程序精度差一米多啊 ，请问下上楼你输入此程序运行后精度如何啊，麻烦请教下，同时感谢楼主的奉献啊 62 楼：彭赐明 楼主 09-5-11 10:0 回楼主提示：该程序不会存在精度问题，因为所有计算公式都是目前采用的常规公式，但输入程序时要仔细核对，尤其是括号要扩全，乘方次数输入正确，符号无误。63 楼：浪09-5-12 22:13 回评：+6 分pol (x-z18,y-z19:jj+360j:(j-t)-iidp(-z+y)=:i(偏距，左右）在反算这个判定中我感觉这个公式好像不够严密啊，但又不知从何改起请楼主再仔细看下因为当j为0到90度时，路线偏距是往右这样t正好是为270到360度范围，此时t是比j大，按你的公式判断出来却是往左的。同时谢谢楼主的公式我已经输了不错的程序64 楼：彭赐明09-5-13 20:41 回这个地方需要大修一下，谢谢提醒65 楼：酒剑仙09-5-15 17:35 回评：+6 分已经输入，坐标计算没问题可是请问楼主，为什么切线方位角不对呢66 楼：李洋09-5-16 20:47 回楼主因为我是搞铁路的 铁路上的线形没那么复杂 就两个完整缓和曲线加中间一个圆曲线 如果用你的这个程序的话就有些复杂了楼主你看能不能把你上面的这个程序给改一下 改成把两个缓和曲线和圆曲线看成一个整体来算的程序 那样对我们这些搞铁路的方便些先谢谢楼主了。如果改好了可以发到我邮箱一份吗？ 邮箱o913991482 开头的是大写字母o67 楼：酒剑仙09-5-25 5:14 回评：+10 分楼主人呢？经过核实原来是符号输错了现在计算正常，我把坐标放样程序修改了一下现在很好用！谢谢楼主！68 楼：吴鹏09-5-25 17:33 回请教楼主个问题，如果在直线上含两段以上短链怎么处理程序！69 楼：过大山09-5-25 23:56 回评：+10 分楼主能帮我看下这个程序吗我4800改5800程序计算直线没问题一到曲线上就出问题了casio4800改5800p坐标计算程序1、该程序适用于计算器 casvo fx-4800p，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。2、a？ 输入转角：左转为负，右转为正3、r？ 输入圆曲线半径4、ls？ 输入缓和曲线长度5、jd？ 输入交点桩号6、j？ 输入0程序计算中桩，输入1程序计算边桩7、n？ e？ 输入交点x、y坐标8、fw 待求点切线方位角9、当计算交角为60时，则公式改为（u+60），（u-120） 1？a：？r：“ls”？c：“jd”？d2 c2/24/r-c4/2688/r3p3 c/2-c3/240/r2q4 90c/兀/rb5 (r+p)tan(absa/2)+qt6 (r+p)/cos(a/2)-rw7 (absa)-2b)兀r/180+2cl8 d-tg9 g+ch10g+l/2i11g+l-ck12g+lm13？n：？e：？f：？14ifa0： then-1s：else1s：ifend15f+a/2+90su16w+rv17n+vcosub18e+vsinuo19lbl 120？z21ifzg：thent+g-zl22f+180v23fu24goto 225ifend26ifzh：thenz-gl27l-l5/(90r2c2)v28 30l2s/(兀rc)l29 f+180p30 f+lq31“fw=“： f+3lu32 goto 433 ifend34 ifzk：thenf+a/2+90s-180+180(z-i)s/r/兀l35“fw=“：l+90su36 goto 537 ifend38 ifzm：thenm-zl39 l-l5/(90r2c2)v40 30sl2/(兀rc)l41 f+ap42 f+a+180-lq43 f-3l+au44 goto4 45 ifend46 ifzm：thenz-m+tl47 f+au48 uv49 goto 2 50 ifend51 lbl 252“x=“：n+lcosvx53“y=“：e+lsinvy54 goto 655 lbl 355 0.09w56 ？w57 “xl=” ：x+wcos(u-90) 58 “yl=” ：y+wsin(u-90) 59 “xr=” ：x+wcos(u+90) 60 “yr=” ：y+wsin (u+90) 61goto 162lbl 463”x=“：n+tcosp+vcosqx64”y=“：e+tsinp+vs