5800計(jì)算器全線坐標(biāo)計(jì)算放樣正反算程序.doc

5800計(jì)算器全線坐標(biāo)計(jì)算放樣正反算（定稿）5800計(jì)算器全線坐標(biāo)計(jì)算放樣正反算程序（定稿）彭賜明主程序坐標(biāo)正反算程序名稱：zbzfslb1acls : fix 4 : 30dim z :0=zs,1=fs?z ifz=0:thengoto b:ifend(z=0進(jìn)入里程點(diǎn)坐標(biāo)正算）ifz=1:thenprogfslcbz : goto a:ifend(z=1進(jìn)入反算里程邊樁）lb1 b“k=”?k ：（計(jì)算里程） progsjk1 :prog”zbfy” :goto a子程序數(shù)據(jù)庫(kù)sjk1ifk本段曲線終點(diǎn)里程andk上段曲線終點(diǎn)里程 ：then本段終點(diǎn)里程z1 : 上段曲線終點(diǎn)里程z2 ：1o （注：左偏曲線輸入-1o,右偏曲線輸入1o）: 半徑r : 曲線偏角a:第一緩和曲線z6 : 第二緩和曲線z7 : 交點(diǎn) xb :交點(diǎn) yc : 小里程向交點(diǎn)方位角e : 交點(diǎn)向大里程方位角f : prog”xlzbjscx”:return: ifendifprog”xlzbjscx”:return:ifend（曲線段分段輸入）補(bǔ)充直線段輸入如下(單獨(dú)直線段）if k z2 : thengoto4 : ifend ifkz4andk z3 : thengoto5 : ifend ifkz5andk z4 : thengoto6 : ifend ifkz1andk z5 : thengoto7 : ifend lb14 （里程小于直緩點(diǎn)直線獨(dú)立坐標(biāo)）k- z3 z23 : 0z24 : et : goto8lb15 （第一緩和曲線獨(dú)立坐標(biāo)）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 （圓曲線獨(dú)立坐標(biāo)）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 （第二緩和曲線獨(dú)立坐標(biāo)）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（輸入任意測(cè)點(diǎn)的xy坐標(biāo)）:“k=”?k （試算里程，任意輸入標(biāo)段內(nèi)里程點(diǎn)即可，也可以輸入大致的估算里程加快速度）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(偏距）（由于該程序不能準(zhǔn)確判斷邊樁左右方向，暫作修改，取消左右邊判定）k=:k+sk（里程）return子程序坐標(biāo)放樣：zbfylb10 “xhs=?g(后視點(diǎn)x):yhs=?l(后視點(diǎn)y):xzj=?m(置鏡點(diǎn)x):yzj=?n(置鏡點(diǎn)y):pol(g-m,l-n):dh=:i(后視距)jj+360j:fh=:jdms(后視方位角) “qxj=” :t（計(jì)算里程點(diǎn)切線方位角，可以不顯示）“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回復(fù)內(nèi)容只查看樓主與本人回復(fù)沙發(fā)：1209-4-11 22:26 回不經(jīng)意間我就連續(xù)點(diǎn)擊了12次2 樓：ouzhigang09-4-12 21:44 回學(xué)習(xí)學(xué)習(xí),我沒(méi)用過(guò)5800.求教了3 樓：lxmf109-4-12 22:44 回等待ing4 樓：nut09-4-13 8:41 回評(píng)：+10 分期待彭工的該程序早日出爐，支持！6 樓：longfengshan09-4-13 19:27 回評(píng)：+8 分優(yōu)勢(shì)互補(bǔ)，支持共享7 樓：彭軍09-4-13 23:46 回彭工你好這個(gè)程序如果再弄一下就非常完美了。計(jì)算邊樁的程序能不能再改一改，然后加個(gè)判斷語(yǔ)句，比喻在小半徑曲線上（一頭跨徑大一頭跨徑?。┮笄鷺蛑弊龌蚯鷺蚯觯厴度绾涡拚浦?？8 樓：彭賜明 樓主 09-4-15 20:44 回評(píng)：+10 分4月15日完成最終修改了，計(jì)算速度也可以了9 樓：徐長(zhǎng)龍09-4-16 14:38 回評(píng)：+2 分fix符號(hào)在那里找啊 ？10 樓：徐長(zhǎng)龍09-4-16 14:39 回評(píng)：+10 分樓主qq多少啊我有好多問(wèn)題想問(wèn)你11 樓：彭賜明 樓主 09-4-16 18:39 回有問(wèn)題請(qǐng)說(shuō)，fix按shift加mode可以找到（第6個(gè)），輸入程序前請(qǐng)熟讀說(shuō)明書(shū)12 樓：zzq028809-4-17 0:26 回評(píng)：+10 分很好13 樓：公路09-4-18 7:14 回有斷鏈怎么呀？樓主？14 樓：彭賜明 樓主 09-4-18 14:17 回看是長(zhǎng)鏈還是短鏈，在直線上還是在曲線上15 樓：zzq028809-4-19 1:0 回都沒(méi)發(fā)現(xiàn)你在哪賦予值給j啊？pol(z18-m,z19-n):di=:i（中樁放樣距）jj+360j:fi=:jdms我用就出錯(cuò)了？這是為啥啊16 樓：黃老邪09-4-19 2:22 回子程序反算里程邊樁，名稱：fslcbzlb11xk=?x:yk=?y（輸入任意測(cè)點(diǎn)的xy坐標(biāo)）:“k=”?k （貌似這個(gè)應(yīng)該在最后.)還有本段lb14pol (x-z18,y-z19（這塊最后也少了一個(gè)括號(hào)吧？）運(yùn)算主程序zbzfs時(shí)候，出現(xiàn)輸入：“xhs=”之后就提示“syntax error”，按返回光標(biāo)就出現(xiàn)在：子程序坐標(biāo)放樣：zbfylb10 “xhs=?g(后視點(diǎn)x):yhs=?這個(gè)y后面是怎么回事？請(qǐng)彭工檢查一下好么？問(wèn)題是我輸入錯(cuò)誤還是語(yǔ)句有問(wèn)題呢？17 樓：彭賜明 樓主 09-4-19 7:11 回評(píng)：-10 分16樓：xk=?x:yk=?y（輸入任意測(cè)點(diǎn)的xy坐標(biāo)）:“k=”?k （貌似這個(gè)應(yīng)該在最后.)，y后面的應(yīng)該在k后面。一般情況下括號(hào)必須擴(kuò)全，有時(shí)也可以省略，比如pol (x-z18,y-z19：即可。yhs=?，是 l，請(qǐng)核對(duì)。15樓：pol（）和rec()是極坐標(biāo)和直角坐標(biāo)轉(zhuǎn)換，轉(zhuǎn)換值計(jì)算器存在默認(rèn)的變量i,j上。dms是單獨(dú)一個(gè)符號(hào)，計(jì)算器里有，function鍵加5鍵加4鍵可以找到。18 樓：貴廣09-4-19 7:48 回圓曲線上和直線都有，圓曲線是長(zhǎng)鏈。直線是短鏈。19 樓：彭賜明 樓主 09-4-19 8:18 回直線短鏈要將該直線分成二條直線來(lái)對(duì)待編制數(shù)據(jù)庫(kù)文件即可，曲線長(zhǎng)鏈要單獨(dú)建判定語(yǔ)句子程序并然后編制二個(gè)數(shù)據(jù)庫(kù)（按來(lái)向里程和去向里程分別推出曲線起終點(diǎn)里程，以此編制曲線段的數(shù)據(jù)庫(kù)）。20 樓：nut09-4-19 9:45 回彭工，你好，我這里有個(gè)4800的程序要改成5800，我每次修改都會(huì)在這個(gè)地方出現(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在該語(yǔ)句運(yùn)行到rec（t,k _處出現(xiàn)“math error,不知道什么原因，我猜可能是k值超出范圍了，但是為什么在4800程序中它又沒(méi)有出界呢？請(qǐng)老師指點(diǎn)！謝謝21 樓：黃老邪09-4-19 10:44 回評(píng)：+10 分幾乎整了一晚上，沒(méi)想到彭工那么早就解答了.感動(dòng)ing我估計(jì)還是我的數(shù)據(jù)庫(kù)輸入有問(wèn)題，計(jì)算出來(lái)好像不是那么回事??？麻煩你看一下我的數(shù)據(jù)庫(kù)輸入：jd24 樁號(hào)k78+788.249(x：29435.524,y：73399.211)，轉(zhuǎn)角右291215.8；半徑1700；緩和曲線ls1=ls2=226.118；本段曲線終點(diǎn)樁號(hào)k79+324.623；上段曲線終點(diǎn)里程：k78+231.994小里程向交點(diǎn)方位角2333914.2；交點(diǎn)向大里程方位角2625129.9jd25 樁號(hào)k81+291.129(x：29121.886,y：70896.022)，轉(zhuǎn)角左440959.3；半徑1200；緩和曲線ls1=ls2=154.083；本段曲線終點(diǎn)樁號(hào)k81+806.007；上段曲線終點(diǎn)里程：k79+324.623；小里程向交點(diǎn)方位角2625129.9；交點(diǎn)向大里程方位角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以上輸入是否有誤？請(qǐng)彭工幫忙檢查一下，謝謝，感激不盡！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 請(qǐng)問(wèn)樓主：在這個(gè)程序中線路末尾直線段是怎么輸入呀？23 樓：ryrye09-4-20 11:43 回彭工幫忙看看這個(gè)程序哪兒有問(wèn)題5800中邊樁坐標(biāo)計(jì)算程序（含數(shù)據(jù)庫(kù)）由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（數(shù)據(jù)庫(kù)）if h終點(diǎn)樁號(hào)：then起點(diǎn)樁號(hào)f:終點(diǎn)樁號(hào)g：起點(diǎn)x坐標(biāo)a:起點(diǎn)y坐標(biāo)b：起點(diǎn)切線方位角c：起點(diǎn)曲率d:終點(diǎn)曲率e: goto 0:if end換行同上下一個(gè)線元要素。n個(gè)lb1 0：return換行曲率左偏為負(fù)右偏為正return為程序命令線元要素可以用常規(guī)程序計(jì)算如有多條路數(shù)據(jù)庫(kù)另建如z2 z3。等等需要使用時(shí)把主程序z1改為z2依次類推no.i？為要求點(diǎn)里程24 樓：ryrye09-4-20 11:44 回aq24（cosc4（cosmcosncosucosv）2（coskcoslcosz）cosj）x換行 運(yùn)行到在這里運(yùn)行不起走25 樓：nut09-4-20 18:6 回彭工，你好，我這里有個(gè)4800的程序要改成5800，我每次修改都會(huì)在這個(gè)地方出現(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在該語(yǔ)句運(yùn)行到rec（t,k _處出現(xiàn)“math error,不知道什么原因，我猜可能是k值超出范圍了，但是為什么在4800程序中它又沒(méi)有出界呢？請(qǐng)老師指點(diǎn)！謝謝26 樓：彭賜明 樓主 09-4-21 7:46 回評(píng)：-10 分rec(t,k算出來(lái)的是二個(gè)值（i、j），21樓看你是否把緩和曲線長(zhǎng)度輸成緩和曲線曲率了，數(shù)據(jù)輸入是對(duì)的。24樓看你括號(hào)擴(kuò)對(duì)沒(méi)有27 樓：路人09-4-21 8:8 回能處理斷鏈嗎28 樓：彭賜明 樓主 09-4-21 11:42 回能，在數(shù)據(jù)輸入時(shí)稍作修改即可，稍后我提供解決方案29 樓：ryrye09-4-21 12:36 回括號(hào)擴(kuò)對(duì)了的!30 樓：28122706309-4-21 12:47 回彭老師：我在書(shū)上抄了一個(gè)5800的程序，這個(gè)程序是計(jì)算任意豎曲線高程的，計(jì)算時(shí)需要輸入豎曲線的各項(xiàng)參數(shù)，但是不知道哪里有問(wèn)題，總算來(lái)合不上，請(qǐng)幫忙修改一下，謝謝老師程序名：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:豎曲線的切線長(zhǎng)； r：豎曲線的半徑； e：切線交點(diǎn)的高程； s：需計(jì)算點(diǎn)的樁號(hào)；d：計(jì)算點(diǎn)的數(shù)量； hp：須計(jì)算點(diǎn)的高程； h:變坡點(diǎn)的實(shí)測(cè)高程z:豎曲線變坡點(diǎn)的樁號(hào)k:曲線起點(diǎn)或終點(diǎn)的樁號(hào) a: 曲線起點(diǎn)或終點(diǎn)的計(jì)算高程 i、j:變坡點(diǎn)兩側(cè)路線的設(shè)計(jì)坡度q:圖形信息（豎曲線為凸曲線時(shí)，q的編碼為-1，反正為+1）31 樓：彭賜明 樓主 09-4-21 13:54 回評(píng)：+10 分?jǐn)?shù)據(jù)輸入時(shí)斷鏈解決方案：短鏈情況：ifk短鏈來(lái)向里程：then k-短鏈長(zhǎng)度k:ifend: 本段終點(diǎn)里程-短鏈長(zhǎng)度z1 : 上段曲線終點(diǎn)里程z2 ：1o （注：左偏曲線輸入-1o,右偏曲線輸入1o）: 半徑r : 曲線偏角a:第一緩和曲線z6 : 第二緩和曲線z7 : 交點(diǎn) xb :交點(diǎn) yc : 小里程向交點(diǎn)方位角e : 交點(diǎn)向大里程方位角f : prog”xlzbjscx”:return: ifend長(zhǎng)鏈情況：ifk長(zhǎng)鏈來(lái)向里程：then k+長(zhǎng)鏈長(zhǎng)度k:ifend: 本段終點(diǎn)里程+長(zhǎng)鏈長(zhǎng)度z1 : 上段曲線終點(diǎn)里程z2 ：1o （注：左偏曲線輸入-1o,右偏曲線輸入1o）: 半徑r : 曲線偏角a:第一緩和曲線z6 : 第二緩和曲線z7 : 交點(diǎn) xb :交點(diǎn) yc : 小里程向交點(diǎn)方位角e : 交點(diǎn)向大里程方位角f : prog”xlzbjscx”:return: ifend先用這個(gè)試試32 樓：nut09-4-21 15:28 回彭工，我們工區(qū)的圖紙是標(biāo)尾段，設(shè)計(jì)圖紙只提供了最后一直線段的樁號(hào)和距離，曲線偏角，緩和曲線長(zhǎng)度，大里程方位角都未提供，我按照單獨(dú)直線段輸入數(shù)據(jù)，中樁坐標(biāo)算出來(lái)是正確的，但是邊樁坐標(biāo)是錯(cuò)誤的。我想此時(shí)的邊樁t值是沒(méi)有賦值的，所以會(huì)出現(xiàn)邊樁坐標(biāo)錯(cuò)誤33 樓：nut09-4-21 15:38 回小弟剛剛把標(biāo)尾段中加入et賦值語(yǔ)句，標(biāo)尾段邊樁坐標(biāo)計(jì)算正確，您看下我改的對(duì)不對(duì)34 樓：nut09-4-21 17:1 回不好意思，是我弄錯(cuò)了35 樓：中鐵22局高健09-4-21 17:36 回評(píng)：+10 分彭工您好，不知道為什么，我這個(gè)程序一輸入s=？里程的時(shí)候就出現(xiàn)錯(cuò)誤，我以前也用過(guò)類似這個(gè)5800的程序，是4800的，也是要求輸入線源元素的，能請(qǐng)教彭工嗎？請(qǐng)問(wèn)彭工的qq號(hào)多少？我的是38334822，能加我嗎？謝謝啦！fx-5800計(jì)算機(jī)程序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 數(shù)據(jù)庫(kù)子程序goto1 同時(shí)保存多個(gè)曲線時(shí)的指針lbl 1if s*（線元終點(diǎn)里程）:then*a（線元起點(diǎn)方位角）:*o（線元起點(diǎn)里程）:*u（線元起點(diǎn)x）:*v（線元起點(diǎn)y）:*p（線元起點(diǎn)曲率半徑）:*r（線元終點(diǎn)曲率半徑）: *l（線元起點(diǎn)至終點(diǎn)長(zhǎng)度）: return:ifendif s0.0001 = goto1lbl 2: 0z：prog“qxjs-sub1”:(c-e) sin(f+90) z三、使用說(shuō)明1、規(guī)定(1) 以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)曲線半徑在左時(shí)，p、r取負(fù)值，當(dāng)曲線半徑在右時(shí)，p、r取正值，當(dāng)曲線半徑為無(wú)窮大（即直線）時(shí)，p、r以10的45次代替。(2) 當(dāng)所求點(diǎn)位于中線時(shí)，z=0；當(dāng)位于中線左鍘時(shí)，z取負(fù)值；當(dāng)位于中線中線右側(cè)時(shí)，z取正值。(3) 當(dāng)線元為圓曲線時(shí)，無(wú)論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。 (5) 當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以10的45次方代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。 (6) 當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。2、輸入與顯示說(shuō)明 輸入部分：1. sz = xy2. xy = sz q ?選擇計(jì)算方式，輸入1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo) ；輸入2表示由坐標(biāo)反算里程和邊距。36 樓：黃老邪09-4-21 22:40 回彭工你好完整輸入確認(rèn)無(wú)誤后，正算還可以。為何檢查后在運(yùn)行反算過(guò)程中，先輸入反算點(diǎn)x坐標(biāo)，再輸入反算點(diǎn)y坐標(biāo)，第三步輸入估計(jì)的樁號(hào)后就死機(jī)了？37 樓：彭賜明 樓主 09-4-22 11:56 回這個(gè)程序反算速度在330秒左右也可能超過(guò)30秒38 樓：yutiiip09-4-22 13:13 回可以詳細(xì)寫(xiě)出使用方法嗎？39 樓：4-25 21:27 回寫(xiě)進(jìn)去了用了后不知道是自己編錯(cuò)了還是數(shù)據(jù)庫(kù)錄入錯(cuò)了計(jì)算結(jié)果錯(cuò)得一塌糊涂有個(gè)問(wèn)題想問(wèn)下z6/2- z63/(240*r2)+ z65/(34560*r4) z8 （m1）z7/2- z73/(240*r2)+ z75/(34560*r4) z9 （m2）這樣的后面的括號(hào)應(yīng)該擴(kuò)在3的后面呢還是在最后？40 樓：彭賜明 樓主 09-4-25 21:53 回z63在計(jì)算器的輸入為z6（3）即z6的3次方的意思，其余雷同，最重要的提示：括號(hào)最好一個(gè)都不能少，必須擴(kuò)全41 樓：云飛揚(yáng)09-4-26 11:42 回評(píng)：+8 分程序不錯(cuò)，共享與指導(dǎo)精神可嘉，很佩服樓主的高風(fēng)亮節(jié)。程序利用的是交點(diǎn)法計(jì)算坐標(biāo)，但是把直線段單獨(dú)計(jì)算，很不方便，也增加了曲線要素的輸入，難道不能在交點(diǎn)中包涵直線段的計(jì)算嗎？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. 曲線元要素?cái)?shù)據(jù)庫(kù)：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(注：如有多個(gè)曲線元要素繼續(xù)添加入數(shù)據(jù)庫(kù)dat中)4、m線（坐標(biāo)正算）組合程序mg-zbprog”dat”:prog”gszs”樓主，這是本人根據(jù)李正云的4850程序改編的5800程序，經(jīng)過(guò)本人的實(shí)際使用，程序的gszs部分計(jì)算結(jié)果完全正確，但在mg-zb這個(gè)組合程序中卻出現(xiàn)了問(wèn)題，出來(lái)的過(guò)程與gszs一樣，達(dá)不到有數(shù)據(jù)庫(kù)應(yīng)有的效果，一時(shí)間又找不到所以然，請(qǐng)樓主幫助看下，解決問(wèn)題，愿與各位測(cè)量同仁共同進(jìn)步43 樓：彭賜明09-4-26 14:23 回41樓，本程序數(shù)據(jù)輸入已含了曲線前一段直線的數(shù)據(jù)，最后的直線輸入是解決標(biāo)段尾直線或當(dāng)獨(dú)直線的，請(qǐng)?jiān)敿?xì)看程序44 樓：natolase09-4-26 14:31 回樓主在線？42樓原稿中使用mg-zb組合程序后出現(xiàn)的結(jié)果直接就是k(輸入樁號(hào)) l(-z +y)（左右偏距） ang（角度） 然后就直接出要求的x y 坐標(biāo)了一直很習(xí)慣這個(gè)程序 可同樣的改到5800就不成立請(qǐng)樓主指教45 樓：云飛揚(yáng)09-4-28 10:12 回評(píng)：+8 分我看過(guò)了，也輸入過(guò)了，正算能運(yùn)行，但是是在每個(gè)交點(diǎn)間加入直線段后的基礎(chǔ)上,但反算不能進(jìn)行，反算時(shí)并不顯示錯(cuò)誤，只顯示右上角一小黑塊（正在運(yùn)行），不管等多長(zhǎng)時(shí)間也枉然，（輸入了一已知點(diǎn)坐標(biāo)和已知大概樁號(hào)甚至真樁號(hào)）就是不出結(jié)果。后視點(diǎn)坐標(biāo)與置鏡點(diǎn)坐標(biāo)及距離與方位角每次計(jì)算都顯示很麻煩，實(shí)際工作中只要開(kāi)機(jī)時(shí)計(jì)算一次就夠了，能否在同次計(jì)算第二個(gè)及以上的點(diǎn)位坐標(biāo)計(jì)算時(shí)不顯示？不算邊樁時(shí)能否也不顯示？想請(qǐng)教樓主，如果想應(yīng)用在匝道上，怎么樣改動(dòng)？（也就是說(shuō)用線元法計(jì)算）,在實(shí)際工作中經(jīng)常有主線和匝道同做，要怎么樣把它們并在一起或分線路？46 樓：彭賜明 樓主 09-4-28 22:4 回這個(gè)程序每個(gè)交點(diǎn)的數(shù)據(jù)輸入已經(jīng)含有zh點(diǎn)前一段直線數(shù)據(jù)，無(wú)需再加直線數(shù)據(jù)，數(shù)據(jù)多也影響反算速度，我的計(jì)算器反算在3至30秒之間，如果時(shí)間過(guò)長(zhǎng)請(qǐng)核對(duì)程序輸入?；旧夏悴灰眠@個(gè)算匝道等不規(guī)則曲線，除非他交點(diǎn)數(shù)據(jù)很完善和無(wú)不完全緩和曲線，這需要你對(duì)程序和要測(cè)量的線路數(shù)據(jù)很理解47 樓：山西09-5-2 3:33 回1、交點(diǎn)向大里程方位角？ 加上轉(zhuǎn)角不就可以了嗎？2、已有切線計(jì)算，可與設(shè)計(jì)交點(diǎn)樁號(hào)相互審核，避免網(wǎng)友輸入錯(cuò)誤和及時(shí)檢查錯(cuò)誤。3、hz和yz點(diǎn)可同步，減少判斷、加快速度。4、增加曲線后端的直線計(jì)算不好意思，我沒(méi)有仔細(xì)研讀您的程序，只是看了數(shù)據(jù)庫(kù)說(shuō)明后提了幾點(diǎn)小建議，還請(qǐng)?jiān)彙?8 樓：彭賜明09-5-2 7:21 回加轉(zhuǎn)角有可能要進(jìn)行小于0的方位角判斷，切線計(jì)算是為了減少輸入數(shù)據(jù)，也可以取消切線計(jì)算而在數(shù)據(jù)輸入中加入切線長(zhǎng)，曲線后直線有計(jì)算方法即單獨(dú)直線段的計(jì)算方法49 樓：山西09-5-2 11:50 回全圓方位角怎么會(huì)有小于0 的呢？是轉(zhuǎn)角左轉(zhuǎn)吧！增加正負(fù)號(hào)就可以解決的。這樣做會(huì)增加一個(gè)判斷，會(huì)對(duì)速度有影響。但可以節(jié)省一些字符。像計(jì)算邊樁部分，偏距加正負(fù)號(hào)就可以了。切線計(jì)算和交點(diǎn)樁號(hào)是有必然聯(lián)系的，我的意思是讓他們起到互相監(jiān)督的作用。不過(guò)，有增加字符之過(guò)！50 樓：彭賜明09-5-2 19:55 回你那樣輸節(jié)約不了任何字符，還會(huì)拖慢計(jì)算速度，十分不理想的，交點(diǎn)樁號(hào)沒(méi)有球用的51 樓：山西09-5-5 20:9 回今天輸入了此程序進(jìn)行測(cè)試，感覺(jué)不錯(cuò)，謝謝樓主52 樓：elie09-5-5 20:21 回評(píng)：+10 分這個(gè)反算大約需要多少秒呀! 53 樓：彭賜明 樓主 09-5-5 21:44 回330秒，要看數(shù)據(jù)庫(kù)大小，數(shù)據(jù)庫(kù)判斷比較耗時(shí)54 樓：云南09-5-7 21:54 回你好，怎么輸入多段曲線和直線呢？請(qǐng)教55 樓：云南09-5-7 21:57 回我輸入多段曲線時(shí)出現(xiàn)錯(cuò)誤啊56 樓：zhanghaitao110109-5-8 11:8 回評(píng)：+10 分5800我還沒(méi)接觸,準(zhǔn)備學(xué)習(xí)下，支持樓主!57 樓：浪09-5-9 21:13 回評(píng)：+10 分我之前有輸入個(gè)相似的程序，可就是在緩和曲線中的圓曲段的精度差比較多其他直線段跟緩和段都行請(qǐng)問(wèn)樓主你這個(gè)程序已經(jīng)測(cè)試過(guò)沒(méi)，精度如何，目前本人急需5800程序，請(qǐng)樓主指教下，我qq是32968325058 樓：山西09-5-9 22:39 回評(píng)：+6 分不錯(cuò)的程序，不過(guò)，我還是建議樓主把后段方位角取消，這個(gè)在5800里面是可以自行判斷的59 樓：一局09-5-10 11:26 回彭老師 你好，我已經(jīng)將程序輸入，但是曲線計(jì)算結(jié)果錯(cuò)誤，只有直線是正確的。我已經(jīng)檢查3次程序輸入無(wú)誤。這樣也說(shuō)不清，我的qq是287807022，請(qǐng)您加下我，想向您請(qǐng)教。60 樓：山西09-5-10 22:13 回輸入是正確的就檢查數(shù)據(jù)庫(kù)61 樓：浪09-5-10 22:50 回評(píng)：+6 分請(qǐng)問(wèn)下上樓的，我也 輸入此程序發(fā)現(xiàn)此程序精度差一米多啊 ，請(qǐng)問(wèn)下上樓你輸入此程序運(yùn)行后精度如何啊，麻煩請(qǐng)教下，同時(shí)感謝樓主的奉獻(xiàn)啊 62 樓：彭賜明 樓主 09-5-11 10:0 回樓主提示：該程序不會(huì)存在精度問(wèn)題，因?yàn)樗杏?jì)算公式都是目前采用的常規(guī)公式，但輸入程序時(shí)要仔細(xì)核對(duì)，尤其是括號(hào)要擴(kuò)全，乘方次數(shù)輸入正確，符號(hào)無(wú)誤。63 樓：浪09-5-12 22:13 回評(píng)：+6 分pol (x-z18,y-z19:jj+360j:(j-t)-iidp(-z+y)=:i(偏距，左右）在反算這個(gè)判定中我感覺(jué)這個(gè)公式好像不夠嚴(yán)密啊，但又不知從何改起請(qǐng)樓主再仔細(xì)看下因?yàn)楫?dāng)j為0到90度時(shí)，路線偏距是往右這樣t正好是為270到360度范圍，此時(shí)t是比j大，按你的公式判斷出來(lái)卻是往左的。同時(shí)謝謝樓主的公式我已經(jīng)輸了不錯(cuò)的程序64 樓：彭賜明09-5-13 20:41 回這個(gè)地方需要大修一下，謝謝提醒65 樓：酒劍仙09-5-15 17:35 回評(píng)：+6 分已經(jīng)輸入，坐標(biāo)計(jì)算沒(méi)問(wèn)題可是請(qǐng)問(wèn)樓主，為什么切線方位角不對(duì)呢66 樓：李洋09-5-16 20:47 回樓主因?yàn)槲沂歉汨F路的 鐵路上的線形沒(méi)那么復(fù)雜 就兩個(gè)完整緩和曲線加中間一個(gè)圓曲線 如果用你的這個(gè)程序的話就有些復(fù)雜了樓主你看能不能把你上面的這個(gè)程序給改一下 改成把兩個(gè)緩和曲線和圓曲線看成一個(gè)整體來(lái)算的程序 那樣對(duì)我們這些搞鐵路的方便些先謝謝樓主了。如果改好了可以發(fā)到我郵箱一份嗎？ 郵箱o913991482 開(kāi)頭的是大寫(xiě)字母o67 樓：酒劍仙09-5-25 5:14 回評(píng)：+10 分樓主人呢？經(jīng)過(guò)核實(shí)原來(lái)是符號(hào)輸錯(cuò)了現(xiàn)在計(jì)算正常，我把坐標(biāo)放樣程序修改了一下現(xiàn)在很好用！謝謝樓主！68 樓：吳鵬09-5-25 17:33 回請(qǐng)教樓主個(gè)問(wèn)題，如果在直線上含兩段以上短鏈怎么處理程序！69 樓：過(guò)大山09-5-25 23:56 回評(píng)：+10 分樓主能幫我看下這個(gè)程序嗎我4800改5800程序計(jì)算直線沒(méi)問(wèn)題一到曲線上就出問(wèn)題了casio4800改5800p坐標(biāo)計(jì)算程序1、該程序適用于計(jì)算器 casvo fx-4800p，可計(jì)算與線路中心成任意夾角的緩和曲線、圓曲線、直線段中、邊樁坐標(biāo)及切線方位角。2、a？ 輸入轉(zhuǎn)角：左轉(zhuǎn)為負(fù)，右轉(zhuǎn)為正3、r？ 輸入圓曲線半徑4、ls？ 輸入緩和曲線長(zhǎng)度5、jd？ 輸入交點(diǎn)樁號(hào)6、j？ 輸入0程序計(jì)算中樁，輸入1程序計(jì)算邊樁7、n？ e？ 輸入交點(diǎn)x、y坐標(biāo)8、fw 待求點(diǎn)切線方位角9、當(dāng)計(jì)算交角為60時(shí)，則公式改為（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？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