計(jì)算器公路測(cè)量程序設(shè)計(jì)會(huì)員收費(fèi)版

1、FX5800計(jì)算器測(cè)量程序集2.4 版可以根據(jù)自己標(biāo)段情況用相關(guān)主程序及子程序，再在0程序中匯總1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2ZD、A、B、AB、HX、QX、F、ZD、X1)3GC、H、I、QX、S1、I1（4GD、C、QX、G1）5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)8JS、JS、DSA、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、S

2、D1）0（數(shù)子0）ClrMat:ClrVar:12DimZ：Norm 2:Do:(XY=1，ZD=2 ，GC=3，GD=4， BP=5，F(xiàn)M=6，ZP=7，JS=8，SD=9)=>QING AN 1-9：GetkeyZ3:While Z3=35:Prog1XY:WhileEnd:While Z3=36:Prog2ZD：WhileEnd: While Z3=37:Prog3GC：WhileEnd: While Z3=21:Prog4GD：WhileEnd: While Z3=22:Prog5BP：WhileEnd: While Z3=23:Prog6FM：WhileEnd: While Z

3、3=31:Prog7ZP：WhileEnd: While Z3=32:Prog8JS：WhileEnd: While Z3=33:Prog9SD：WhileEnd:LpWhile Z325:”XIE XIE SHI YONG”:0011SC1XY2XY-S2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6B7B8B9C、DX、DX0、F、G1、H、HX、I、I1、JS、MQX、S、S1、SD0、SD1、T、W1、X1、XY、XYHZD程序內(nèi)容無(wú)電子版。全在計(jì)算中，本人出售單機(jī)卡西歐計(jì)算器5800，或者帶2.4程序計(jì)算器(凡購(gòu)買帶程序計(jì)算器者即為會(huì)員，享有以后所有

4、版本的使用)詳情凳陸淘寶網(wǎng)店：（或加QQ詳談，加QQ注明:淘寶。以下子程序除T程序外，其余子程序根據(jù)自己標(biāo)段設(shè)計(jì)數(shù)據(jù)修改)TNorm 2: QKM？Z：XQ？U：YQ？V：LS1？M：LS2？O：A1？A：A2？B：FWJ？G：ZJ？P：？R：P÷Abs(PQ:A2÷RH:H<M=>MH:H-MS:B2÷RN:N-OC:O>N=>ON:H=0=>×10-9H:HX:90S2÷(RHK:G-QKG:N=0=>×10-9N: 90C2÷(RND:P+QK+QDP:ProgAB:Abs(PE:(

5、R+C)tan(E÷2)-(C-A)÷sin(E)+DT:(R+A)tan(E÷2)-(C-A)÷sin(E)+BF:XH:Z-S+TO:ProgHX:U-(A-T)cos(G)+QBsin(GU:V-(A-T)sin(G)-QBcos(GV:Fix 3: JDKM=:Locate 6,4,O: JDX=:Locate 6,4,U: JDY=:Locate 6,4,VFWJ=:GDMSZJ=：PDMSLS1=: Locate 6,4,H: LS2=: Locate 6,4,N: T1=: Locate 6,4,T: T2=: Locate 6,4,FR=

6、:R以下全為數(shù)據(jù)子程序，根據(jù)自己標(biāo)段設(shè)計(jì)數(shù)據(jù)修改部分?jǐn)?shù)據(jù)。X1Z4=0=Return:Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z:Then iR:iU:iG:iH:iT: ProgF:Return:IfEndLbI 2:If Z:Then iR:iU:iG:iH:iT:ProgF: Return:IfEndIf Z:Then iR:iU:iG:iH:iT:Prog”F”:Return:IfEndZ4=0=Return:Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z:Then 0OU:5144063.566V:299。4339”G:40.857H:

7、97.25P: 60R:1Q:Return:IfEndIf Z:Then 40.857OU:514034.668V:331。1615.1”G:118.562H:60P: 60R:1Q:Return:IfEndIf Z:Then 159.419OU:514081.521V:84。2922.4”G:81.667H:60P: 1×1045R:1Q:Return:IfEndLbI 2: If Z:Then 0OU:514488.986V:58。4917.2”G:93.889H: 1×1045P:180R:1Q:Return:IfEndIf Z:Then 93.889OU:51457

8、2.974V:73。4551.6”G:104.678H: 180P:180R:1Q:Return:IfEndIf Z:Then 198.567OU:514676.181V:107。54.3”G:74.439H: 180P:445R:1Q:Return:IfEnd程序字母說(shuō)明：O-線元起點(diǎn)樁號(hào)；U-起點(diǎn)X坐標(biāo)；V-起點(diǎn)Y坐標(biāo)；G-線元起點(diǎn)樁號(hào)切線方位角; 線元長(zhǎng)度，線元起點(diǎn)曲率半徑，線元終點(diǎn)曲率半徑,Q線元判別(以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時(shí)，Q=-1；當(dāng)線元往右偏時(shí)，Q=1；當(dāng)線元為直線時(shí)，Q=0)。RUGH:TS1Z4=1=Goto 1:Z4=2=Goto

9、2: LbI 1:If Z:Then R：iC:iI: Return:IfEnd:LbI 2:If Z:Then R:iC:iI:Return:IfEnd:If Z:Then R:iC:iI:Return:IfEnd:I10K:1W: Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z:Then S:iM: Return:IfEnd:If Z:Then iS:C:iM:iN: Return:IfEnd:If Z:Then S:iM: Return:IfEnd:LbI 2:If Z77.872:Then 0S:2-2iM:Return:IfEnd:If Z93.889:Then

10、 16.017+16.017iS:77.872C:2-2iM:5-5iN:Return:IfEnd:If Z198.567:Then 0S: 5-5iM:Return:IfEnd: If Z273.006:Then 74.439S:198.567C:5-5iM:2-2iN:Return:IfEnd:If Z335:Then 0S:2-2iM:Return:IfEnd: If Z346.235:Then 11.235+11.235iS:335C:2-2iM:iN:Return:IfEndG1Z4=1=Goto 1:Z4=2=Goto 2：LbI 1:If Z40.857:Then 40.857i

11、S:0C:3.5+5iA:5.25iB: Return:IfEnd:If Z159.419:Then 0S:3.5+5.25iA:Return:IfEnd: If Z187.987:Then 28.568iS:159.419C:3.5+5.25iA:5.5iB: Return:IfEnd:If Z241.086:Then 0S:3.5+5.5iA:Return:IfEnd:LbI 2: If Z321.611:Then 0S:3.5+5iA:Return:IfEnd:If Z346.235:Then 24.624iS:321.611C:3.5+5iA:5.75iB: Return:IfEnd:

12、If Z466.227:Then 0S:3.5+5.75iA:Return:IfEndSD1If Z4=1:Then 5I:1.4V:12+19。16iZ16:1.4+51。4218”iZ17:5.1+218。3iZ18: 1.4+51。4218”iZ19:12+19。16iZ20:Return:IfEnd:If Z4=2:Then 5+2.2iI:3.825V:4.355Z16:4.355-251。1846”iZ17: 6.07+217。2228”iZ18:4.355-108。4114”Z19:4.355-180iZ20:Return:IfEnd:V路中線標(biāo)高至設(shè)計(jì)隧道中線底高差+底部圓心水

13、平偏移距離（向左偏為負(fù)，向右偏為正）W110E:10F:2.6M:2N:2U:1.5I:1.75J:8W:2V:Z4=1=Goto 1:Z4=2=Goto 2：LbI 1: If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:1A:1.25B:1.25C:Return:LbI R:If Z110:Then 1.25A:1.25B:1.5C: Return:Else Goto L: IfEndLbI 2:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:0.75A:0.75B:0.75C:Return:LbI R:

14、If Z445:Then Goto L:Else If Z506.9:Then 0.25×(Z-445)÷21.2Q:.75+QA:AB:AC:Return:IfEnd×10-9 ×1045 =-336.478+60i中i是復(fù)數(shù)中虛數(shù)符號(hào),在計(jì)算器從上向下第三排鍵，第一個(gè)。0.65m.XY-S0Q:Norm 2:1I:?N:X1?X：Y1?Y：XA：YB:XE:YF:Do:“XN?X：YN?Y：Q+(XF-YE)÷2Q:XE:YF:I+1I:Lpwhile IN：Q+(AF-BE)÷2S:MIAN JI= ：Abs(S) 計(jì)算器總體運(yùn)

15、行及結(jié)果說(shuō)明輸入樁號(hào)和距離：輸入100-25i(樁號(hào)100，左側(cè)25m)EXE結(jié)果顯示：H-計(jì)算高程，I-橫坡EXE再次輸入樁號(hào)：輸240（中樁后面不用輸結(jié)果顯示：H計(jì)算面高程序，I-路基縱坡EXE輸入樁號(hào)：輸入240（只需輸入樁號(hào)就可以）EXE結(jié)果顯示：LGD-左幅寬度；RGD-右幅寬度EXE選擇線路后輸入填方放寬值：輸入0.5(默認(rèn)為0.5就按EXE就行，如不加寬就輸0)EXE輸入大概樁號(hào)：輸入50（第一次放樣輸入）EXE輸入測(cè)量坐標(biāo)：2600569.371+514066.027i EXE輸入測(cè)量地面標(biāo)高：輸入64.95 EXE結(jié)果顯示：LX值為平移值，負(fù)值為從中樁向邊樁外移，正值為從邊向

16、中平移。KM-測(cè)量點(diǎn)樁號(hào)，D值測(cè)量點(diǎn)距中樁距離。TW-填挖值。第一個(gè)值為地面標(biāo)高至設(shè)計(jì)標(biāo)高的高度，第二個(gè)值為已考慮了路面結(jié)構(gòu)層厚度0.9m（一般所說(shuō)的至96區(qū)頂高）,在5BP放樣程序中最后，值負(fù)為挖方，正為填方。前面同理輸入測(cè)站坐標(biāo)-EXE選擇線路1-EXEKM=為輸入漸變放樣距離，如輸入20（后面樁號(hào)都會(huì)自動(dòng)加上20m）EXE輸入樁號(hào)及距中距離EXE顯示放樣點(diǎn)坐標(biāo)、測(cè)站點(diǎn)至放樣點(diǎn)方位角值及距離EXE放樣完后，測(cè)量地面標(biāo)高，輸入計(jì)算，輸入45.32EXE顯示TW值，為填挖值，已扣路面結(jié)構(gòu)層厚度（程序默認(rèn)為0.9）同時(shí)后面樁號(hào)相對(duì)上樁號(hào)加上20m前面同理輸入測(cè)站坐標(biāo) EXE選擇線路 EXEZKM

17、+-Mdi?為輸入錐頂樁號(hào)及錐坡路基邊側(cè)地面標(biāo)高（標(biāo)高為輸入正負(fù)，正為右側(cè)錐坡，負(fù)為左側(cè)錐坡）如：輸入樁號(hào)為120，左側(cè)的錐坡地面標(biāo)高：28.6MR?輸入錐前地面標(biāo)高，即靠橋臺(tái)前標(biāo)高（正值）,+放寬值（默認(rèn)放寬0.5m）EXES0:SZH+,DZH-?顯示出放樣邊長(zhǎng)最大值，及輸入放樣值，小樁號(hào)臺(tái)錐坡輸入正值，大樁號(hào)臺(tái)錐坡輸入負(fù)值，（小大樁號(hào)臺(tái)，如一橋三跨，0#臺(tái)就為小樁號(hào)臺(tái)，3#臺(tái)就為大樁號(hào)臺(tái)）輸入8 EXE顯示結(jié)果值同前面1主程序6主程序值結(jié)果意思。放樣完，輸入測(cè)量地面標(biāo)高 EXE計(jì)算出填挖值，同時(shí)進(jìn)行下個(gè)邊長(zhǎng)放樣，（邊長(zhǎng)是以錐樁號(hào)向前或向后的路線方向的長(zhǎng)度）開(kāi)始選擇隧道線路號(hào)（或左線、右線

18、）此程序假定C線為左側(cè)隧道，I線為右側(cè)隧道）CQHD？輸入襯砌厚度（程序做的內(nèi)凈空值）如輸入0.65m輸入大概樁號(hào)：（第一次放樣輸入，如輸入50EXE輸入隧道內(nèi)測(cè)量的坐標(biāo)值，EXE輸入隧道內(nèi)測(cè)量的實(shí)測(cè)標(biāo)高值。如輸入47.645 EXE結(jié)果顯示：LX-為超欠挖值，正值為超挖，負(fù)值為欠挖。KM-D-為測(cè)量點(diǎn)樁號(hào)距離，H0-為測(cè)量點(diǎn)至隧道路面頂高度EXE再次輸入測(cè)量坐標(biāo)進(jìn)行下次超欠挖值計(jì)算。以下為01程序此為附的一套測(cè)量資料程序，做的為廣東省施工檢表6-9表?，F(xiàn)以計(jì)算表6示例：選擇按住數(shù)子1輸入計(jì)算允許最小和最大誤差單位為mm,如輸入：5-5i.則為正負(fù)5mmEXE選擇計(jì)算的的線路號(hào)輸入樁號(hào)及距中樁

19、距離（如輸入180則為樁號(hào)180的中樁）X、Y為設(shè)計(jì)坐標(biāo)、XO、YO則為在允許偏差范圍內(nèi)自動(dòng)生成的坐標(biāo)。EXE0X、0Y-值為XY差值，單位為mm,0XY為偏差標(biāo)準(zhǔn)差。EXE以下附表：平面位置檢查記錄表施檢表（6） 編號(hào)： 第 頁(yè) 共 頁(yè)項(xiàng)目名稱廣州至河源高速公路惠州段施工單位廣州市公路工程公司合同段第11合同段樁號(hào)或范圍監(jiān)理單位廣東翔飛公路工程監(jiān)理有限公司公路等級(jí)高速樁號(hào)設(shè) 計(jì) 值實(shí) 測(cè) 值偏 差備 注XYXYxyX2+Y2自檢意見(jiàn)監(jiān)理意見(jiàn)測(cè)量計(jì)算復(fù)核技術(shù)主辦項(xiàng)目主管測(cè)量日期施工放線測(cè)量記錄表施檢表（7） 編號(hào)： 第 頁(yè) 共 頁(yè) 項(xiàng)目名稱廣州至河源高速公路惠州段施工單位廣州市公路工程公司監(jiān)理單位廣東翔飛公路工程監(jiān)理有限公司合同段第11合同段公路等級(jí)高速測(cè)點(diǎn)范圍儀器型號(hào)GTS-322W測(cè)點(diǎn)或樁號(hào)設(shè)計(jì)坐標(biāo)實(shí)測(cè)坐標(biāo)計(jì)算距離（m）計(jì)算