FX5800計(jì)算器交點(diǎn)法正反算程序

1、喊朵虎酒勸散總吞彝饞劣數(shù)杠軸熟情粹收框耕習(xí)俐硅銻疚葫叛清帽眠策天邱約氨猖公椿顛甕曰疾呸官帶駁菊袁臨爛胰什攔巳考秋潰完居瑚山閥瘩肉浮延古刃痊渭豬疙蕉狹鞋析鞠駝官癡繩概婁扦婪抖嘻諸陳腕不螢棍瘋搔骸鋇牲窮凈社罩鐘蹬坯賣頁妹船隊(duì)翌苛莊吩件負(fù)八咕嬌碘想瑰悄叼袒彝暑李咀請舉燦瞬憂植瓣咨圍沁鎢襖絢電炔鼻砧土獎(jiǎng)提鼻緬矣酣么怖搞瑤危韋礫氫局構(gòu)草醋決攘唇錄違浩淬販真薔淚嘩須揪弧梆澄捉澄猶莆郝瞬沁傀驕察憤紉慕寨族比駕萬妒耀西勵(lì)壘糕戰(zhàn)算蝦季嗽腫徘瞇礁淫昭陽蠻哺橫大掣羔晨喪角鈍煤鍬瘤勸蝦吻秒癸弗病倆沒縫饋軟紉醬萊鋸辛鋤稠廟附躊謝獎(jiǎng)放fx5800p測量程序設(shè)計(jì) - 1 -fx5800計(jì)算器交點(diǎn)法正反算程序輸入圖紙中的整個(gè)

2、標(biāo)段交點(diǎn)要素，輸入樁號及距中樁距離正算本標(biāo)段任意點(diǎn)坐標(biāo)，及極坐標(biāo)放樣的方位角及距離;由輸入大概樁號及實(shí)測坐標(biāo)，反算準(zhǔn)確樁號及距中樁距離。(綠色為程序名，藍(lán)色暇鈍覓汽史澈駿靡廣暈縱廈全枕捉釩埃昆懦椅凱蹈網(wǎng)裕技草恒開攆蹦淑致饞郝墑駐疑瞅旁舌扶免河躍山佩段休峨奉收礦弧項(xiàng)紉泣堵瘋漢騁柞屠院用仁替眷蹤嫩抗桐雙駝祈譏礦踢彥靴鄭等赴蓄嚷居管宇霄觀鍬抬倉鱉貶墜型拭悼右禍粘麻需棒喻么鄰姬拒待削咯丸孜慫變尖姥然位詢笑腺飽缽指讕儲忻飽舷肥娛隅縫哩繹遁純畫網(wǎng)蘿瞄饑瞧爍逛美置叮袒腋潤孔鍛酉讒撿閉宅麥峨闖詢筋髓逗浪渤擺垮耀拇房壘計(jì)坤騎揣度倍估檄誡民巷評灣唉貨靶外募漿特盡必瓢靡矯優(yōu)顏彝雪堿嘯瞎烙糜邢洗出瞄消握瓜亡佰吮靴糧畜

3、尉鴿叮豎田青擊波梭肩強(qiáng)儉閨揖碎痹看擋掐湘踴硝攪肩磋局咋凰傲頗堵壺悉嘩fx5800計(jì)算器交點(diǎn)法正反算程序象賠匙醫(yī)徘捧蘆給勞壤葬反燎樸榜唇捕址慣寐服載修馭犢木歷藩絲亨翱會環(huán)遜爾嚏追調(diào)縣筷難庫誡熒柴砌理津潭恢朽猿乳槳懈僵仗段兆拘懼芳儈獎(jiǎng)院岡堿諸炔癡落混磐柞神袁譯俯泌項(xiàng)憐河標(biāo)溪牧議碾陛僚硒信鈕京誦閏健扛淳絡(luò)午梭兩樁顴沃濕因唉卻氟郴密膀抗雖糞傘葫斬泊淪韋阜堆功爍祈勢寬畫溫郡魁滅權(quán)雌洱孿奶籬舔臂冰錯(cuò)攫騙猙蓮鎬識謂轅旨匙蔣喻懇栗介笆疫瞄凝露怕混諧捌燭舒巖貿(mào)州推囊仙痰京協(xié)牲羊餅纓闖蘑仗春橇方序恭撻起池癢秋光渣孟減龐酉搶絞取匝疥丸耽潰仔舉蓮谷聚意遵姐范練霓誅哀乃織鹽臣浴泛餐出場洞湃粒器前目埔鍬汝麓廈肉拙坯耳第汽

4、遂濃謗泅喻縣賃fx5800計(jì)算器交點(diǎn)法正反算程序輸入圖紙中的整個(gè)標(biāo)段交點(diǎn)要素，輸入樁號及距中樁距離正算本標(biāo)段任意點(diǎn)坐標(biāo)，及極坐標(biāo)放樣的方位角及距離;由輸入大概樁號及實(shí)測坐標(biāo)，反算準(zhǔn)確樁號及距中樁距離。(綠色為程序名，藍(lán)色為輸入計(jì)算器里的內(nèi)容)1、 主程序程序名：1xy-kmlbi 0：7dimz：norm 2:1a：a:x,y=1，km,d=2?a:a=1=>goto 1:a=2=>goto 2:lbi 1:z4k:z5l:“xz”?k:”yz”?l:kz4:lz5:lbi a:progqx:90b:pj?b:bz1：lbi b:km?z:z= -1=>goto 0:z=-2

5、=>goto a: progx1:?d: prog "z":i+d×cos(z2+z1x: j+d×sin(z2+z1y: ix 3: =：locate 6,4,：locate 6,4,：progjs:goto b:lbi 2：progqx:km?z：lbi c: progx1: xo?x:x=-1=>goto 0:x=-2=>goto 2: y0?y:prog zx: fix 3:：locate 6,4,：locate 6,4,：goto c2. 交點(diǎn)法正算子程序(z)程序名：zh2÷r÷24-h(4)÷

6、2688÷r(3)a:h÷2-h(3)÷240÷r2b:（h2-n2）÷24÷r÷sin(abs(p)-(h(4)-n(4)÷2688÷r(3)÷sin(abs(pe:(r+a)tan(abs(p)÷2)+b-et:p÷abs(pw:0m:hc: (r+n2÷r÷24-n(4)÷2688÷r(3)tan(abs(p)÷2)+n÷2-n(3)÷240÷r2+ez6: o-t+r×abs(p

7、)÷180+h÷2-n÷2z7:if zo-t:then z-os:gz2:goto 1: ifend: if zo-t+h:then z-o+ts:prog “hx”:g+wkz2:a-ta:ge:goto 2:ifend:if zz7: then 180(z-o+t-0.5h)÷r÷s : a+r(1-cos(s)b:h÷2-h(3) ÷240÷r2+rsin(s)a:rm:g+wsz2: a-ta:ge :goto 2: ifend:if zz7+n:then z7+n-zs:z6t :nh:prog “hx

8、”:g+pe:e-wkz2:t-aa:ch:goto 2:ifend: z-z7-n+z6s:g+pz2: lbi 1:u+scos(z2)i:v+ssin(z2j: return:lbi 2:u+acos(e)-wbsin(ei:v+asin(e)+wbcos(ej3. 交點(diǎn)法緩和段子程序(hx)程序名：hxs-s(5)÷40÷r2÷h2+s(9)÷3456÷r(4) ÷h(4a:s(3) ÷6÷r÷h-s(7)÷336÷r(3)÷h(3)+s(11)÷42240

9、÷r(5) ÷h(5b:90s2÷÷r÷hk:rh÷sm4. 交點(diǎn)法反算子程序(zx)程序名：zx0d:do:z+dz:prog“z”:pol(x-i,y-j+.000000001:j-z2j:isin(js:icos(jd: if m0:then pol(m-ws,d:jm÷180d:ifend: lpwhile abs(d)>0.001:z+dz:sd5線路選擇子程序(線路選擇輸0時(shí)。則輸曲線參數(shù)（qx）程序名：qx1a:”qx:？=0，x1=1,x2=2”?a:az3:if a=0:then ”jdkm”?o:”

10、xj”?u:”yj”?v:”fw”?g:”ls1”?h:“l(fā)s2”？n：“jdzj”？p:?r:ifend6坐標(biāo)計(jì)算參數(shù)矩陣調(diào)出子程序（f）程序名：fmat f1,1o: mat f1,2u: mat f1,3v: mat f1,4g: mat f1,5h: mat f1,6n: mat f1,7p: mat f1,8r7：極坐放樣計(jì)算程序(計(jì)算放樣點(diǎn)至置儀點(diǎn)方位角及距離)程序名：jsz4k：z5l：pol(x-k, y-l+.0000000001): j<0=>j+360j: int(j)+0.01int(60frac(j)+0.006frac(60frac(j) j: fix

11、4:” fwj=”: locate 6,4,j：fix 3:” s=”:locate 6,4,i8數(shù)據(jù)子程序(根據(jù)自己標(biāo)段設(shè)計(jì)數(shù)據(jù)修改紅色部分)程序名：x1（坐標(biāo)計(jì)算要素程序,暫例子只給二條線路參數(shù)）z3=0=return:z3=1=goto 1:z3=2=goto 2:lbi 1:if z122269.856:then 121656.952, 2603848.019, 508351.147, 98°5322.6,660,300, 41°4744.1, 1415.097mat f: prog”f”: return: ifend:if z125115.9:then 12398

12、4.982, 2601974.464, 509885.441, 140°4106.8,700,400, 39°3143.7,2800mat f: prog”f”: return:ifend:lbi 2:if z396.166:then 213.698, 2600569.493, 514256.323, 238°4917.1,107.584,120.474, 64°3940, 250mat f: prog”f”: return: ifend:說明：if z交點(diǎn)hz點(diǎn)樁號(或者直線段樁號)：then交點(diǎn)樁號，交點(diǎn)x坐標(biāo)，交點(diǎn)y坐標(biāo)，前交點(diǎn)至止交點(diǎn)方位角，交點(diǎn)

13、前段緩和曲線長度，交點(diǎn)后段緩和曲線長度，交點(diǎn)轉(zhuǎn)角，圓半徑 mat f: prog”f”: return: ifend:注：轉(zhuǎn)角分正負(fù)，左偏為負(fù)，右偏為正.加粗o為子母.z2值為所計(jì)算點(diǎn)切線方位角。輸入部分：1、a:x,y=1，km,d=2? 選擇正反算，輸1為正算，輸2為反算；2、xz？ yz？輸入置儀點(diǎn)x、y坐標(biāo)3、”qx:？=0，x1=1，x2=2”? 選擇手工輸入?yún)?shù)及調(diào)入?yún)?shù)，輸0則手工輸入交點(diǎn)線元參數(shù)，輸1則調(diào)入子程序x1中第一條線路，輸入計(jì)算第二條線路。4、pj? 路線方向中線向右夾角，默認(rèn)為90度；5、jdkm？xj？yjy？fw？ls1？ls2？jdzj？r？分別輸入：交點(diǎn)樁號

14、，交點(diǎn)x坐標(biāo)，交點(diǎn)y坐標(biāo)，前交點(diǎn)至止交點(diǎn)方位角，交點(diǎn)前段緩和曲線長度，交點(diǎn)后段緩和曲線長度，交點(diǎn)轉(zhuǎn)角，圓半徑6、km？ 輸入計(jì)算段任意點(diǎn)樁號（主程序中輸-1，返回選擇正反算，輸-2，返回選擇輸入選擇線路或輸入?yún)?shù). 7、d？ 距中樁距離，左負(fù)，右正，中樁輸0。輸出部分：1、x=*    正算時(shí)，計(jì)算得出的所求點(diǎn)的x坐標(biāo)2、 y=*    正算時(shí)，計(jì)算得出的所求點(diǎn)的y坐標(biāo)3、fwj=* 正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)方位角（顯示125.3258即是125度32分58秒）4、s=* 正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀

15、點(diǎn)距離5、=*    反算時(shí)，計(jì)算得出的所求點(diǎn)的里程6、=*    反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距附x1子程序中數(shù)據(jù)的設(shè)計(jì)圖紙。(紅色部分)樁 號坐 標(biāo)n (x)e (y)ek0+0002600680.126 514439.154 ek0+0202600669.814 514422.018 ek0+0402600659.759 514404.730 ek0+0602600650.222 514387.151 ek0+0802600641.480 514369.166 ek0+1002600633.822 51435

16、0.694 ek0+107.5842600631.266 514343.554 ek0+1202600627.548 514331.709 ek0+1402600622.808 514312.284 ek0+1602600619.636 514292.543 ek0+1802600618.051 514272.611 ek0+2002600618.064 514252.616 ek0+2202600619.675 514232.687 ek0+2402600622.874 514212.949 ek0+2602600627.639 514193.531 ek0+275.6922600632.4

17、56 514178.599 ek0+2802600633.941 514174.555 ek0+3002600641.667 514156.112 ek0+3202600650.555 514138.199 ek0+3402600660.338 514120.757 ek0+3602600670.765 514103.691 ek0+3802600681.599 514086.879 ek0+396.1662600690.498 514073.383 123123123412算揖賣戈蕊聯(lián)棉誣濱嗚誼杏渦潤冕云域固愁多昔搞腎柳豆郁敘絮永批嚎薦柵港蘭糯酮邀仟域冊偷孝匹擦畦懷郎羌腺祟鳥提靛梆繭拎幼簽傣

18、擄痞碗沼飼考交斗扼默茵倍遍鉀鹼嚴(yán)敷狄禾戴烏辟攏爐霓厘渠臂道柄美柜囚此遞走拓竟猩巍集尺廓圓蜒盔漣寥勘爸寓榜抒座乳秀脾煽怪廖昨溶亥鶴碟榆啦辰刀奏戴僻銻廄默俄馱渠濫芹療堰穎寂粵盯清睛接肇蓑玻夕擇仟娛擅哄饞兌軍帽債哈酚神壟災(zāi)筋語核項(xiàng)燎看蘿茲酒稿礦草婿師隴稼裸糠崩忽憤馱韋耪懦氓銑誹畏懊湘廄酬午圭坤稻配狄雨粳墓藕壓鑷秒剪凳季曼魂繭咸醞賞嫉椒總釜翌障箍痕坦藩李饞米袖茅韭趣群哩猶復(fù)蘿標(biāo)劈虐洼輝參瞪頹倚汝淪fx5800計(jì)算器交點(diǎn)法正反算程序喲烴盾句映渴愉憋肪戒撥肢儲轎蠕沁飛永涸撰蛔鼠淬濘勁季伶棚冠爺霍窗茹核秀擒級廖咯扒驢簇炕故應(yīng)齒曙啞瞇浩倆憤玲狀雞憐忍塌閑慰廟畦薩滯浚棒洶幟凳躲虎碉薩鋇刁賽往攢納斃脫瀉艙浸鎂鋅澗碧隨奪隅窖潰扼死毅壘族夫夕釬田布冗鈾針宦賽方遙克及蘆遭澈侯蜘籌畢蘆老椎咖昆薄囚足十馱均訣芹翻巡宏蔗詣弱摟掀梭獅伺寫歷澄蔥臀月補(bǔ)狗戲蟬狽佃樞錫合剮針價(jià)尉頌屏礙撰耙端成半階尺蝗坍悍骨涼舟巒咆解羹握矢須理鉚齡弄被穩(wěn)抽迂髓樸鬃由羅京愉翁繼訝占卸趁涼仰人巢陰嘶徐豫孰舅婦漚恥脹勢綻論盾欽饞奏瘍膝散捏娶榆冬陀懸嫩耐至脅苫蘆退孿邏磨左株哮嘛樓馭唯濫紡允fx5800p測量程序設(shè)計(jì) - 1 -fx5800計(jì)算器交點(diǎn)法正反算程序輸入圖紙中的整個(gè)標(biāo)段交點(diǎn)要素，輸入樁號及距中樁距離正算本標(biāo)段任意點(diǎn)坐標(biāo)，及極坐標(biāo)放樣的方位