CASIO+5800計(jì)算器測(cè)量計(jì)算程序Word版

1、CASIO 5800計(jì)算器測(cè)量計(jì)算程序1 / 6上上月做這個(gè)東西的時(shí)候沒(méi)仔細(xì)檢查，有好幾處輸錯(cuò)了的地方，今天把它修改過(guò)來(lái)。簡(jiǎn)要介紹： 1.     新版程序把線元法和交點(diǎn)法已經(jīng)集成在一個(gè)模塊中了，用戶只需修改JD程序和ZA程序中的數(shù)據(jù)部分即可,其余不需作任何的改動(dòng)。 2.     因?yàn)槊織l路高程計(jì)算不盡相同，且比較復(fù)雜，現(xiàn)在可利用PC機(jī)EXCEL計(jì)算好打印成表格帶到工地上使用，所以本版程序未對(duì)線路高程序進(jìn)行專門的編程計(jì)算，而是利用統(tǒng)計(jì)計(jì)算模式中來(lái)輸入樁號(hào)（第一列X）及左、右高程（第二、三列Y，F(xiàn)req），這種輸入數(shù)

2、據(jù)的方式最為直觀，易發(fā)現(xiàn)錯(cuò)誤，也易修改，輸入完畢后運(yùn)行S程序?qū)?shù)據(jù)按樁號(hào)進(jìn)行排序，在程序中通過(guò)調(diào)用GG程序來(lái)進(jìn)行內(nèi)插計(jì)算，SG=-1得左標(biāo)高，SG=1得右標(biāo)高（若SG輸入0,則可進(jìn)行一般的線性內(nèi)插計(jì)算）。 3.     在JD程序和XY程序中，先將一個(gè)計(jì)算單元的數(shù)據(jù)置入矩陣F中（1行8列或1行9列），這樣程序可讀性極好。 4 相比原CASIO4850程序操作習(xí)慣，作了一點(diǎn)小小的改動(dòng)，測(cè)站坐標(biāo)存在Z10，N中，X坐標(biāo)原存在M中容易被誤操作修改，而設(shè)計(jì)標(biāo)高存在M中，這樣易于修改，因?yàn)镃ASIO5800沒(méi)有IN，OUT功能，很不方便。 4. 

3、0;   程序利用Z2變量值來(lái)判斷是采用交點(diǎn)法還是線元法模型計(jì)算，Z20為線元法，否則為交點(diǎn)法。 一、PQX程序：計(jì)算中邊樁坐標(biāo)及近似的樁號(hào)反算，在運(yùn)行模式直接調(diào)用。      Z10S:”XO”?S:SZ10:”YO”?N:Prog “AU”      Lbl 2:?L:Prog “Z”:Prog “E”:1nO:90S      Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2原來(lái)lbl 后沒(méi)有標(biāo)號(hào)的。  &

4、#160;  O=-1 =>Goto 6      “X,Y”:R+OCos(Z+S)XU+OSin(Z+S)YProg “D”:Goto 4      Lbl 6:Z7X:Z8Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4      XZ7:YZ8:Pol(X-R,Y-U+1p):Z+S-JJ:”YC,DL,L”:ICos(J)OISin(J)IL+IGoto 6 二、P程序：在程序中提供一個(gè)自由運(yùn)算的模式。 Lbl 1:”TMP”?I:I

5、f I0:Then “RST”:IGoto 1:IfEnd 二、LYC程序：進(jìn)行樁號(hào)反算及邊坡放樣，在運(yùn)行模式直接調(diào)用。 Prog “AU” Lbl 1:Z7X: Z8Y: Z6S: ”XF”?X :XZ7:”YF”?Y:YZ8: ”ZF”?S: SZ6 Lbl 2:Prog “Z”:Y=U =>Y+1pY Pol(X-R,Y-U):J-ZJ:Isin(J)O:Icos(J)I If Abs(I)0.1:Then Prog “E”:”L,YC”:L+ILOGoto 3:IfEnd If Z90:Then Pol(Z9-SO,I):JZ9÷180I:IfEnd ”DL”:IL+I

6、L:Goto 2 Lbl 3: Z6S:If S=0:Then Goto 1:IfEnd      MZ      Lbl 4:”SG”?Z:ZM:If Abs(Z)=1: Then Prog “GG”:YZ:If X=1:Then XZ:IfEnd:ZM:IfEnd If Z=0:Then Z11C:Z12D: Z13E: Z14F:”LA”?C:CZ11: ”HA”?D:DZ12: ”LB”?E:EZ13: ”HB”?F:FZ14:D+(E-C)-1(F-D)(L-C)Z:ZM:IfEnd Lbl 5:”SG”

7、:Z:”TW”:Z-SC:Z3P: Z4Q: :Z5T:”YC0”?P:PZ3: :”HC0”?Q:QZ4 :”M”?T:TZ5:O÷Abs(O)I:”BL”:I(P+TC(C+Q)÷Abs(C)U”DB”:IU-IOJ AnsI:Prog “P”:Goto 1 四、I程序：通過(guò)手工方式輸要素 Z2=0 =>Goto 2 Z1R:Z2U:”JL”?K:”JX”?G:”JY”?H:”JA”?V:”JJ”?W:”R”?A:”LS”?B:”L1”?R:”L2”?U:RZ1:UZ2:ReTurn Lbl 2:”L0”?K:”X0”?G:”Y0”?H:”A0”?V”:”L1”?

8、F:”L-0 Z=-1 Y=1”?W:W=0 =>ReTurn ”R0”?A:”R1”?B 五、D程序：根據(jù)測(cè)站點(diǎn)的坐標(biāo)及放樣點(diǎn)的坐標(biāo)計(jì)算水平距離及方位角 Y=N =>Y+1nY Pol(X-Z10,Y-N):J<0 =>J+360J ”A,D”:JDMSI 六、E程序：樁號(hào)出界判斷 Z2=0 =>Goto 2 If L>Z2: Then “>L2”:LIfEnd If L<Z1: Then “<L1”:LIfEnd Goto 3 Lbl 2:If L<K:Then “<L0”:L-KIfEnd If L>F:Then “

9、>L1”:L-FIfEnd Lbl 3 七、GG程序：用統(tǒng)計(jì)數(shù)據(jù)中樁號(hào)，左右高程數(shù)據(jù)進(jìn)行內(nèi)插計(jì)算。 FreqOff : nC:FreqOn:If L<minX: Then “L<minX”:1I:Goto 8:IfEnd If L>maxX: Then “L>maxX”:C-1I:Goto 8:IfEnd For 1I To C-1 If LList XI+1: Then Break:IfEnd:Next Lbl 8 : (L-List X)÷(List XI+1- List X)J : List Y+J(List YI+1-List Y)X : Lis

10、t Freq +J(List Freq I+1-List Freq )Y 八、S程序:對(duì)統(tǒng)計(jì)數(shù)據(jù)列表中數(shù)據(jù)按樁號(hào)進(jìn)行排序。 FreqOff : nC:FreqOn“WAITn=”:Locate 10,1,C If C<2 Then Return:IfEnd For 1D To C: DI: For D+1E To C: If List XE<List X:Then EI:IfEnd:Next If ID: Then List XDF:List XList XD:FList X: List YDF:List YList YD:FList Y: List FreqDF:List Fre

11、qList Freq D:FList Freq :IfEnd:Next Locate 1,2,”minX:”Locate 6,2,minX Locate 1,3,”minX:”Locate 6,3,maxX 九、X程序:計(jì)算緩和曲線坐標(biāo)增量xx,yy ABU:U÷OZ9:0.5O2÷UR:O-0.1OR2I:6-1OR(2-7-1R2)J:RrR 十、JS程序:內(nèi)插計(jì)算的接口程序，在運(yùn)行模式直接調(diào)用。 Prog “S” Lbl 1:”L=”?L:L=0 =>Return Prog “GG”:”X,Y”:XYGoto 1 十一、GZW程序：構(gòu)造物坐標(biāo)放樣計(jì)算，在運(yùn)行模式

12、直接調(diào)用。 Z10S:”XO”?S:SZ10:”YO”?N：0T Lbl 1;”X0”?R:”Y0”?U:”A0”?Z:IF Z=-1 :Then “A0,DD”:JZIIfEnd If Z=0:Then RX:UY:Prog “D”:Goto 1:IfEnd '在后增加一句，解決了程序再次運(yùn)行時(shí)，交角的初值被置為測(cè)站點(diǎn)的坐標(biāo)的BUG.O-ZS:”J0”?S:Z+SO:”0-XX,YYX,Y”:”1-X,YXX,YY”?T:If T0: Then Goto 3:IfEnd Lbl 2:”XX”?P:”YY”?Q:If PQ=0:Then Goto 1:IfEnd ”X,Y”:R+Pco

13、s(Z)+Qcos(O)XU+Psin(Z)+Qsin(O)YProg “D”:Goto 2 Lbl 3:”XF”?X:”YF”?Y:If XY=0: Then Goto 1:IfEnd ”XX,YY”:(X-R)sin(O)-(Y-U)cos(O)÷sin(S)P(Y-U)cos(Z)-(X-R)sin(Z)÷sin(S)Q Goto 3 十二、Y程序：線元法計(jì)算匝道坐標(biāo) L-KC:If  L>F:Then F-KC:IfEnd If W=0 or C<0:Then G+Ccos(V)R:H+Csin(V)U:0Z9:Goto 8:IfEn

14、d W÷Abs(W)W:If A=B:Then 0B:IfEnd If B=0:Then (A-1C)rC:Asin(C)I:A(1-cos(C)J:AZ9:Goto 7:IfEnd A-BS:B(F-K)÷Abs(S)R:ARU:S÷Abs(S)S:0.5R2÷UD:R+SCT: 0.5T2÷UE:U÷TZ9:T(1-0.1E2+E22÷216-E(6)÷9360)-R(1-0.1D2+D22÷216-D(6)÷9360)I: 3-1(TE(1-E2÷14+E22÷440-

15、E(6) ÷25200)-RD(1-D2÷14+D22÷440-D(6) ÷25200)J:Pol(1n+Abs(I),Abs(J):Rec(I,Abs(J-Dr):Abs(E-D)rC Lbl 7:G+Icos(V)-WJsin(V)R:H+Isin(V)+WJcos(V) U:V+WCZ Lbl 8:If L>F:Then R+Rec(L-F,Z) R:U+JU:0Z9:IfEnd 十三、Z程序：交點(diǎn)法計(jì)算中樁坐標(biāo) If Z2=0:Then Prog “Y”:Return:IfEnd B2÷A÷24P:0.1B(5-P

16、47;A) Q:Q+(A+P)tan(0.5Abs(W) T:K-TC:C+BD:D+AAbs(W) ÷180F:F-BE W÷Abs(W)S:0Z9:If LC:Then L-KO:VZ:Goto 2:IfEnd If LF:Then L-F+TO:V+WZ:Goto 2:IfEnd If LE:Then F-LO:Prog ”X”:V+WO:O-SRZ:G+(T-I)cos(O)-SJsin(O)R:H+(T-I)sin(O)+Sjcos(O) U:Goto 3:IfEnd If L>D:Then (L-D+0.5B)÷A)rO:Q+Asin(O)I:P

17、+A(1-cos(O) J:AZ9:V+SOZ:Goto 4:IfEnd L-CO:Prog “X”:V+SRZ Lbl 4:G+(I-T)cos(V)-Sjsin(V)R:H+(I-T)sin(V)+Sjcos(V)U:Goto 3 Lbl 2:G+Ocos(Z)R:H+Osin(Z)U Lbl 3 十四、AU程序: 注：L0-輸測(cè)段樁號(hào)近似值，”AU”子程序根據(jù)樁號(hào)近似值自動(dòng)調(diào)用曲線要素（包括線元法和交點(diǎn)法要素），Z2=0則調(diào)用線元法數(shù)據(jù)，否則為交點(diǎn)法數(shù)據(jù) （L0=0-默認(rèn)為原曲線要素  L0=-1-手工輸入曲線要素） Cls:” L0= 0-Conti.”:” L0=

18、-1-Input”:If Z2=0:Then Locate 13,2,”(XY)”:Else Locate 13,2,”(JD)”:IfEnd Z2S:”0XY  E.JD”?S:SZ2:”L0”?L:If L=0:Then ReTurn:IfEnd If L=-1:Then Prog “I”:ReTurn:IfEnd If Z2=0:Then Prog “ZA”:Else Prog “JD”:IfEnd Mat F1,1K: Mat F1,2G: Mat F1,3H: Mat F1,4V: Mat F1,5W: Mat F1,6A: Mat F1,7B: If Z2=0:

19、Then Mat F1,8F:Else Mat F1,8Z11: Mat F1,9Z12:IfEnd 十五、JD程序：交點(diǎn)法矩陣每一行數(shù)據(jù)依次為交點(diǎn)樁號(hào)，交點(diǎn)X坐標(biāo),交點(diǎn)Y坐標(biāo),起始邊方位角，偏角，圓曲線半徑,緩和曲線長(zhǎng)度,計(jì)算單元起點(diǎn)，計(jì)算單元終點(diǎn) If L24900: Then “LminX”:LStop:IfEnd If L30801.27: Then “LmaxX”:LStop:IfEnd IF L26227.359:Then 25676.236, 142225.377,504270.949,6°24°59.6°,-70°50°10.6

20、°,770,300.007,24900,26227.359Mat F:Return:IfEnd IF L27318.276:Then 27026.458, 142873.016,502918.028,295°34°49.°,-15°31°18.5°,1500,180.003,26227.359,27318.276Mat F: Return:IfEnd IF L28522.182:Then 28148.818, 143069.516,501810.234,280°03°30.5°,41°

21、45°02.1°,780,206.532,27318.276,28522.182Mat F: Return:IfEnd IF L29246.112:Then 28895.742, 143666,501341,321°48°32.6°,-22°33°08.8°,1250,215.74,28538.355,29246.112Mat F: Return:IfEnd IF L30801.27:Then 30431.525, 144420,499995,299°15°23.8°,49°

22、29°52.7°,720,160.598,29246.112,30801.27Mat F: Return:IfEnd 十六、ZA程序 注2：線元法矩陣每一行數(shù)據(jù)依次為起點(diǎn)樁號(hào)，起點(diǎn)X坐標(biāo)，起點(diǎn)Y坐標(biāo)，起點(diǎn)方位角，左右轉(zhuǎn)標(biāo)志，起點(diǎn)曲率半徑，終點(diǎn)曲率半徑，終點(diǎn)樁號(hào) If L0: Then “LminX”:LStop:IfEnd If L1479.85: Then “LmaxX”:LStop:IfEnd If L1000: Then Goto 2:IfEnd If L553.49: Then “LmaxX”:LStop:IfEnd IF L82.699:Then 0,142872

23、.513,502902.111,290°03°00°,-1,1509.5,1509.5,82.699Mat F:Return:IfEnd IF L111.519:Then 82.699,142898.724,502823.687,286°54°40°,-1,1509.5,1T,111.519Mat F:Return:IfEnd IF L155.022:Then 111.519,142906.932,502796.061,286°21°51°,-1,1T,1000,155.022Mat F:Return:I

24、fEnd IF L269.54:Then 155.022,142918.885,502754.233,285°07°04°,-1,1000,1000,269.54Mat F:Return:IfEnd IF L359.475:Then 269.54,142942.363,502642.211,278°33°23°,-1,1000,1T,359.475Mat F:Return:IfEnd IF L434.421:Then 359.475,142953.072,502552.924,275°58°48°,1,1

25、T,1200,434.421Mat F:Return:IfEnd IF L463.597:Then 434.421,142961.655,502478.474,277°46°09°,1,1200,1200,463.597Mat F:Return:IfEnd IF L501.14:Then 463.597,142965.95,502449.617,279°09°44°,1,1200,1T,501.14Mat F:Return:IfEnd IF L553.488:Then 501.14,142972.314,502412.618,280&

26、#176;03°31°,0,1T,1T,553.488Mat F:Return:IfEnd Lbl 2:IF L1169.959:Then 1000,142957.323,502388.342,102°55°07°,0,1T,1T,1169.959Mat F:Return:IfEnd IF L1215.026:Then 1169.959,142919.325,502554,102°55°07°,-1,1T,1500,1215.026Mat F:Return:IfEnd IF L1261.836:Then 1215.026,142909.471,502597.975,102°03°28°,-1,1500,1500,1261.836Mat F:Return:IfEnd IF L1283.436:Then 1261.836,142900.408,502643.898,100°16°11°,-1