5800計算器全線坐標計算放樣正反算程序

1、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子程序數(shù)據(jù)庫sjk1ifk本段曲線終點里程andk上段曲線終點里程 ：then本段終點里程z1 : 上段曲線終點里程z2 ：

2、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 : thengot

3、o7 : 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)+ z10

4、z24 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- z24z

5、24 : ifend z16+z23*cos e-z24*sin ez18 z17+z23*sin e+z24*cos ez19 return子程序反算里程邊樁，名稱：fslcbzlb11xk=?x:yk=?y（輸入任意測點的xy坐標）:“k=”?k （試算里程，任意輸入標段內(nèi)里程點即可，也可以輸入大致的估算里程加快速度）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-z

6、19)*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=

7、” :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回復內(nèi)容只查看樓主與本人回復沙發(fā)：1209-

8、4-11 22:26 回不經(jīng)意間我就連續(xù)點擊了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 分優(yōu)勢互補，支持共享7 樓：彭軍09-4-13 23:46 回彭工你好這個程序如果再弄一下就非常完美了。計算邊樁的程序能不能再改一改，然后加個判斷語句，比喻在小半徑曲線上（一頭跨徑大一頭跨徑?。┮笄鷺蛑弊龌蚯鷺蚯觯厴度绾涡拚浦?？8

9、 樓：彭賜明 樓主 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 回

10、看是長鏈還是短鏈，在直線上還是在曲線上15 樓：zzq028809-4-19 1:0 回都沒發(fā)現(xiàn)你在哪賦予值給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 （貌似這個應(yīng)該在最后.)還有本段lb14pol (x-z18,y-z19（這塊最后也少了一個括號吧？）運算主程序zbzfs時候，出現(xiàn)輸入：“xhs=”之后就提示“syntax error”，按返回光標就出現(xiàn)在：子程序

11、坐標放樣：zbfylb10 “xhs=?g(后視點x):yhs=?這個y后面是怎么回事？請彭工檢查一下好么？問題是我輸入錯誤還是語句有問題呢？17 樓：彭賜明 樓主 09-4-19 7:11 回評：-10 分16樓：xk=?x:yk=?y（輸入任意測點的xy坐標）:“k=”?k （貌似這個應(yīng)該在最后.)，y后面的應(yīng)該在k后面。一般情況下括號必須擴全，有時也可以省略，比如pol (x-z18,y-z19：即可。yhs=?，是 l，請核對。15樓：pol（）和rec()是極坐標和直角坐標轉(zhuǎn)換，轉(zhuǎn)換值計算器存在默認的變量i,j上。dms是單獨一個符號，計算器里有，function鍵加5鍵加4鍵可以找

12、到。18 樓：貴廣09-4-19 7:48 回圓曲線上和直線都有，圓曲線是長鏈。直線是短鏈。19 樓：彭賜明 樓主 09-4-19 8:18 回直線短鏈要將該直線分成二條直線來對待編制數(shù)據(jù)庫文件即可，曲線長鏈要單獨建判定語句子程序并然后編制二個數(shù)據(jù)庫（按來向里程和去向里程分別推出曲線起終點里程，以此編制曲線段的數(shù)據(jù)庫）。20 樓：nut09-4-19 9:45 回彭工，你好，我這里有個4800的程序要改成5800，我每次修改都會在這個地方出現(xiàn)math error，能幫我改下嗎？謝謝！4800源程序（部分）為：t=m+(r+p)tan(z10/2):k=z5-180:kk=k+360:z12=z

13、1+rec(t,k:z13=z2+j:k=z6:z14=z1+rec(t,k:z15=z2+j:z16=z3-t:prog12在該語句運行到rec（t,k _處出現(xiàn)“math error,不知道什么原因，我猜可能是k值超出范圍了，但是為什么在4800程序中它又沒有出界呢？請老師指點！謝謝21 樓：黃老邪09-4-19 10:44 回評：+10 分幾乎整了一晚上，沒想到彭工那么早就解答了.感動ing我估計還是我的數(shù)據(jù)庫輸入有問題，計算出來好像不是那么回事?。柯闊┠憧匆幌挛业臄?shù)據(jù)庫輸入：jd24 樁號k78+788.249(x：29435.524,y：73399.211)，轉(zhuǎn)角右291215.8；

14、半徑1700；緩和曲線ls1=ls2=226.118；本段曲線終點樁號k79+324.623；上段曲線終點里程：k78+231.994小里程向交點方位角2333914.2；交點向大里程方位角2625129.9jd25 樁號k81+291.129(x：29121.886,y：70896.022)，轉(zhuǎn)角左440959.3；半徑1200；緩和曲線ls1=ls2=154.083；本段曲線終點樁號k81+806.007；上段曲線終點里程：k79+324.623；小里程向交點方位角2625129.9；交點向大里程方位角2184130.7輸入5800是否：if k79324.623andk78231.994

15、 ：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：

16、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中邊樁坐標計算程序（含數(shù)據(jù)庫）由480

17、0 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（sinksin

18、lsinz）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（數(shù)據(jù)庫）if h終點樁號：then起點樁號f:終點樁號g：起點x坐標a:起點y坐標b：起點切線方位角c：起點曲率d:終點曲率e: goto 0:if end換行同上下一個線元要素。n個lb1 0：return換行曲率左偏為負右偏為正return為程序命令線元要素可以用常規(guī)程序計算如有多條路數(shù)據(jù)庫另建如z2 z3。等等需要使用時把主程序z1改為z2依次類推no.i？為要求

19、點里程24 樓：ryrye09-4-20 11:44 回aq24（cosc4（cosmcosncosucosv）2（coskcoslcosz）cosj）x換行 運行到在這里運行不起走25 樓：nut09-4-20 18:6 回彭工，你好，我這里有個4800的程序要改成5800，我每次修改都會在這個地方出現(xiàn)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在該語句運行到

20、rec（t,k _處出現(xiàn)“math error,不知道什么原因，我猜可能是k值超出范圍了，但是為什么在4800程序中它又沒有出界呢？請老師指點！謝謝26 樓：彭賜明 樓主 09-4-21 7:46 回評：-10 分rec(t,k算出來的是二個值（i、j），21樓看你是否把緩和曲線長度輸成緩和曲線曲率了，數(shù)據(jù)輸入是對的。24樓看你括號擴對沒有27 樓：路人09-4-21 8:8 回能處理斷鏈嗎28 樓：彭賜明 樓主 09-4-21 11:42 回能，在數(shù)據(jù)輸入時稍作修改即可，稍后我提供解決方案29 樓：ryrye09-4-21 12:36 回括號擴對了的!30 樓：28122706309-4-2

21、1 12:47 回彭老師：我在書上抄了一個5800的程序，這個程序是計算任意豎曲線高程的，計算時需要輸入豎曲線的各項參數(shù)，但是不知道哪里有問題，總算來合不上，請幫忙修改一下，謝謝老師程序名：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:

22、“hp=”:a+pt+q(2rngoto:mgoto1:“k”t:豎曲線的切線長； r：豎曲線的半徑； e：切線交點的高程； s：需計算點的樁號；d：計算點的數(shù)量； hp：須計算點的高程； h:變坡點的實測高程z:豎曲線變坡點的樁號k:曲線起點或終點的樁號 a: 曲線起點或終點的計算高程 i、j:變坡點兩側(cè)路線的設(shè)計坡度q:圖形信息（豎曲線為凸曲線時，q的編碼為-1，反正為+1）31 樓：彭賜明 樓主 09-4-21 13:54 回評：+10 分數(shù)據(jù)輸入時斷鏈解決方案：短鏈情況：ifk短鏈來向里程：then k-短鏈長度k:ifend: 本段終點里程-短鏈長度z1 : 上段曲線終點里程z2 ：

23、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”

24、xlzbjscx”:return: ifend先用這個試試32 樓：nut09-4-21 15:28 回彭工，我們工區(qū)的圖紙是標尾段，設(shè)計圖紙只提供了最后一直線段的樁號和距離，曲線偏角，緩和曲線長度，大里程方位角都未提供，我按照單獨直線段輸入數(shù)據(jù)，中樁坐標算出來是正確的，但是邊樁坐標是錯誤的。我想此時的邊樁t值是沒有賦值的，所以會出現(xiàn)邊樁坐標錯誤33 樓：nut09-4-21 15:38 回小弟剛剛把標尾段中加入et賦值語句，標尾段邊樁坐標計算正確，您看下我改的對不對34 樓：nut09-4-21 17:1 回不好意思，是我弄錯了35 樓：中鐵22局高健09-4-21 17:36 回評：+10

25、 分彭工您好，不知道為什么，我這個程序一輸入s=？里程的時候就出現(xiàn)錯誤，我以前也用過類似這個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“qxj

26、s-sub2”: “s=”:s “z=”:z goto4 qxjs-sub0 數(shù)據(jù)庫子程序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、規(guī)定(1) 以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當曲線半徑在左時，p、r取負值，當

27、曲線半徑在右時，p、r取正值，當曲線半徑為無窮大（即直線）時，p、r以10的45次代替。(2) 當所求點位于中線時，z=0；當位于中線左鍘時，z取負值；當位于中線中線右側(cè)時，z取正值。(3) 當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。 (5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次方代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。 (6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲

28、率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。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 1

29、3:13 回可以詳細寫出使用方法嗎？39 樓：4-25 21:27 回寫進去了用了后不知道是自己編錯了還是數(shù)據(jù)庫錄入錯了計算結(jié)果錯得一塌糊涂有個問題想問下z6/2- z63/(240*r2)+ z65/(34560*r4) z8 （m1）z7/2- z73/(240*r2)+ z75/(34560*r4) z9 （m2）這樣的后面的括號應(yīng)該擴在3的后面呢還是在最后？40 樓：彭賜明 樓主 09-4-25 21:53 回z63在計算器的輸入為z6（3）即z6的3次方的意思，其余雷同，最重要的提示：括號最好一個都不能少，必須擴全41 樓：云飛揚09-4-26 11:42

30、回評：+8 分程序不錯，共享與指導精神可嘉，很佩服樓主的高風亮節(jié)。程序利用的是交點法計算坐標，但是把直線段單獨計算，很不方便，也增加了曲線要素的輸入，難道不能在交點中包涵直線段的計算嗎？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

31、.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+

32、mf：x+lcosfx：y+lsinfy3. 曲線元要素數(shù)據(jù)庫：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:retur

33、n:ifend(注：如有多個曲線元要素繼續(xù)添加入數(shù)據(jù)庫dat中)4、m線（坐標正算）組合程序mg-zbprog”dat”:prog”gszs”樓主，這是本人根據(jù)李正云的4850程序改編的5800程序，經(jīng)過本人的實際使用，程序的gszs部分計算結(jié)果完全正確，但在mg-zb這個組合程序中卻出現(xiàn)了問題，出來的過程與gszs一樣，達不到有數(shù)據(jù)庫應(yīng)有的效果，一時間又找不到所以然，請樓主幫助看下，解決問題，愿與各位測量同仁共同進步43 樓：彭賜明09-4-26 14:23 回41樓，本程序數(shù)據(jù)輸入已含了曲線前一段直線的數(shù)據(jù)，最后的直線輸入是解決標段尾直線或當獨直線的，請詳細看程序44 樓：natolase

34、09-4-26 14:31 回樓主在線？42樓原稿中使用mg-zb組合程序后出現(xiàn)的結(jié)果直接就是k(輸入樁號) l(-z +y)（左右偏距） ang（角度） 然后就直接出要求的x y 坐標了一直很習慣這個程序 可同樣的改到5800就不成立請樓主指教45 樓：云飛揚09-4-28 10:12 回評：+8 分我看過了，也輸入過了，正算能運行，但是是在每個交點間加入直線段后的基礎(chǔ)上,但反算不能進行，反算時并不顯示錯誤，只顯示右上角一小黑塊（正在運行），不管等多長時間也枉然，（輸入了一已知點坐標和已知大概樁號甚至真樁號）就是不出結(jié)果。后視點坐標與置鏡點坐標及距離與方位角每次計算都顯示很麻煩，實際工作中只

35、要開機時計算一次就夠了，能否在同次計算第二個及以上的點位坐標計算時不顯示？不算邊樁時能否也不顯示？想請教樓主，如果想應(yīng)用在匝道上，怎么樣改動？（也就是說用線元法計算）,在實際工作中經(jīng)常有主線和匝道同做，要怎么樣把它們并在一起或分線路？46 樓：彭賜明 樓主 09-4-28 22:4 回這個程序每個交點的數(shù)據(jù)輸入已經(jīng)含有zh點前一段直線數(shù)據(jù)，無需再加直線數(shù)據(jù)，數(shù)據(jù)多也影響反算速度，我的計算器反算在3至30秒之間，如果時間過長請核對程序輸入?；旧夏悴灰眠@個算匝道等不規(guī)則曲線，除非他交點數(shù)據(jù)很完善和無不完全緩和曲線，這需要你對程序和要測量的線路數(shù)據(jù)很理解47 樓：山西09-5-2 3:33 回1

36、、交點向大里程方位角？ 加上轉(zhuǎn)角不就可以了嗎？2、已有切線計算，可與設(shè)計交點樁號相互審核，避免網(wǎng)友輸入錯誤和及時檢查錯誤。3、hz和yz點可同步，減少判斷、加快速度。4、增加曲線后端的直線計算不好意思，我沒有仔細研讀您的程序，只是看了數(shù)據(jù)庫說明后提了幾點小建議，還請原諒。48 樓：彭賜明09-5-2 7:21 回加轉(zhuǎn)角有可能要進行小于0的方位角判斷，切線計算是為了減少輸入數(shù)據(jù)，也可以取消切線計算而在數(shù)據(jù)輸入中加入切線長，曲線后直線有計算方法即單獨直線段的計算方法49 樓：山西09-5-2 11:50 回全圓方位角怎么會有小于0 的呢？是轉(zhuǎn)角左轉(zhuǎn)吧！增加正負號就可以解決的。這樣做會增加一個判斷，

37、會對速度有影響。但可以節(jié)省一些字符。像計算邊樁部分，偏距加正負號就可以了。切線計算和交點樁號是有必然聯(lián)系的，我的意思是讓他們起到互相監(jiān)督的作用。不過，有增加字符之過！50 樓：彭賜明09-5-2 19:55 回你那樣輸節(jié)約不了任何字符，還會拖慢計算速度，十分不理想的，交點樁號沒有球用的51 樓：山西09-5-5 20:9 回今天輸入了此程序進行測試，感覺不錯，謝謝樓主52 樓：elie09-5-5 20:21 回評：+10 分這個反算大約需要多少秒呀! 53 樓：彭賜明 樓主 09-5-5 21:44 回330秒，要看數(shù)據(jù)庫大小，數(shù)據(jù)庫判斷比較耗時54 樓：云南09-5-7 21:54 回你好

38、，怎么輸入多段曲線和直線呢？請教55 樓：云南09-5-7 21:57 回我輸入多段曲線時出現(xiàn)錯誤啊56 樓：zhanghaitao110109-5-8 11:8 回評：+10 分5800我還沒接觸,準備學習下，支持樓主!57 樓：浪09-5-9 21:13 回評：+10 分我之前有輸入個相似的程序，可就是在緩和曲線中的圓曲段的精度差比較多其他直線段跟緩和段都行請問樓主你這個程序已經(jīng)測試過沒，精度如何，目前本人急需5800程序，請樓主指教下，我qq是32968325058 樓：山西09-5-9 22:39 回評：+6 分不錯的程序，不過，我還是建議樓主把后段方位角取消，這個在5800里面是可以

39、自行判斷的59 樓：一局09-5-10 11:26 回彭老師 你好，我已經(jīng)將程序輸入，但是曲線計算結(jié)果錯誤，只有直線是正確的。我已經(jīng)檢查3次程序輸入無誤。這樣也說不清，我的qq是287807022，請您加下我，想向您請教。60 樓：山西09-5-10 22:13 回輸入是正確的就檢查數(shù)據(jù)庫61 樓：浪09-5-10 22:50 回評：+6 分請問下上樓的，我也 輸入此程序發(fā)現(xiàn)此程序精度差一米多啊 ，請問下上樓你輸入此程序運行后精度如何啊，麻煩請教下，同時感謝樓主的奉獻啊 62 樓：彭賜明 樓主 09-5-11 10:0 回樓主提示：該程序不會存在精度問題，因為所有計算公式都是目前采用的常規(guī)公式

40、，但輸入程序時要仔細核對，尤其是括號要擴全，乘方次數(shù)輸入正確，符號無誤。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大，按你的公式判斷出來卻是往左的。同時謝謝樓主的公式我已經(jīng)輸了不錯的程序64 樓：彭賜明09-5-13 20:41 回這個地方需要大修一下，謝謝提醒65 樓：酒劍仙09-5-15 17:35 回評：+6 分已

41、經(jīng)輸入，坐標計算沒問題可是請問樓主，為什么切線方位角不對呢66 樓：李洋09-5-16 20:47 回樓主因為我是搞鐵路的 鐵路上的線形沒那么復雜 就兩個完整緩和曲線加中間一個圓曲線 如果用你的這個程序的話就有些復雜了樓主你看能不能把你上面的這個程序給改一下 改成把兩個緩和曲線和圓曲線看成一個整體來算的程序 那樣對我們這些搞鐵路的方便些先謝謝樓主了。如果改好了可以發(fā)到我郵箱一份嗎？ 郵箱o913991482 開頭的是大寫字母o67 樓：酒劍仙09-5-25 5:14 回評：+10 分樓主人呢？經(jīng)過核實原來是符號輸錯了現(xiàn)在計算正常，我把坐標放樣程序修改了一下現(xiàn)在很好用！謝謝樓主！68 樓：吳鵬0

42、9-5-25 17:33 回請教樓主個問題，如果在直線上含兩段以上短鏈怎么處理程序！69 樓：過大山09-5-25 23:56 回評：+10 分樓主能幫我看下這個程序嗎我4800改5800程序計算直線沒問題一到曲線上就出問題了casio4800改5800p坐標計算程序1、該程序適用于計算器 casvo fx-4800p，可計算與線路中心成任意夾角的緩和曲線、圓曲線、直線段中、邊樁坐標及切線方位角。2、a？ 輸入轉(zhuǎn)角：左轉(zhuǎn)為負，右轉(zhuǎn)為正3、r？ 輸入圓曲線半徑4、ls？ 輸入緩和曲線長度5、jd？ 輸入交點樁號6、j？ 輸入0程序計算中樁，輸入1程序計算邊樁7、n？ e？ 輸入交點x、y坐標8、

43、fw 待求點切線方位角9、當計算交角為60時，則公式改為（u+60），（u-120） 1？a：？r：“l(fā)s”？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？z21ifz

44、g：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+tsi