道路測(cè)量程序

1、一、使用卡西歐（CASIO—fx4850P）計(jì)算器進(jìn)行編制：文件名：ZHY程序式：Lbl0:A“X0”:B“Y0”:C“A0”:D“1R0”:E“1R1”:F“DK0”:G“DK1”：Lbl1:P:P“DKP”:I=(ED)Abs(GF):Q=Abs(PF):“J=”:J=Abs(C90Q(IQ2Dπ)▲S“X”=A∫（COS（Cπ180(2DIX)X2）г0Q）:C＞0=＞Goto2:≠＝＞Goto3△:Lbl2:T“Y”=B∫(Si

2、n(Cπ180(2DIX)X2）г0Q）:Goto4:Lbl4:Lbl3:T“Y”=B∫(Sin(Cπ180(2DIX)X2）г0Q）:Goto4:Lbl4:Z:Z“BZ”:M=JR“Q”:“XP=”:V=SZCOSM▲“YP=”:N=TZSinM▲Goto1說明:X0.Y0.A0起點(diǎn)坐標(biāo)和起點(diǎn)方位角R0起點(diǎn)半徑(直線為0)R1終點(diǎn)半徑(直線為0)1線路轉(zhuǎn)向:1為線路左偏1為線路右派偏DK0起點(diǎn)樁號(hào)DK1終點(diǎn)樁號(hào)DKP計(jì)算點(diǎn)樁號(hào)J計(jì)算點(diǎn)

3、方位角Q所計(jì)算邊距坐標(biāo)與線路的任意夾角(右角).法線角度為90度BZ中樁到邊樁的水平距離負(fù)為左邊距正為右邊距.XP.YP計(jì)算點(diǎn)樁號(hào)的坐標(biāo).二、前言：傳統(tǒng)公路測(cè)量中，使用的儀器設(shè)備和方法都很落后，需帶著數(shù)學(xué)用表、曲線用表、計(jì)算盤、計(jì)算尺和算盤等一類的工具，完成外業(yè)測(cè)量工作。計(jì)算器的出現(xiàn)，改變了這一局面。高速公路建設(shè)中，長(zhǎng)大曲線比比皆是，傳統(tǒng)中對(duì)公路中線的測(cè)設(shè)方法，被極坐標(biāo)法徹底的否定與取代，但大量的計(jì)算工作，只能帶著提前計(jì)算好的線路逐樁坐

4、標(biāo)、高程資料，進(jìn)行外業(yè)測(cè)量工作，機(jī)動(dòng)性很差，現(xiàn)場(chǎng)查找也不方便。這些問題都能在CASIO系列可編程計(jì)算器上得到很好的解決，對(duì)CASIO系列可編程計(jì)算器如何使用，直接影響到測(cè)量成果的質(zhì)量和工作效率，本文將對(duì)CASIO系列可編程計(jì)算器快捷的計(jì)算方法進(jìn)行分析與介紹。1：以知線外任意點(diǎn)坐標(biāo)，求對(duì)應(yīng)線路里程在緩和曲線上，要計(jì)算任意里程的法線方向及任意寬度的邊線坐標(biāo)，非常簡(jiǎn)單。但要計(jì)算任意一個(gè)已知坐標(biāo)點(diǎn)，是對(duì)應(yīng)哪一個(gè)里程法線方向上的點(diǎn)，就有一些困難。

5、很難推導(dǎo)一個(gè)這樣的計(jì)算公式。唯一的方法“漸進(jìn)”，如果手工計(jì)算這可不是一個(gè)好方法。但在有CASIO系列可編程計(jì)算器，如：FX4500的情況下就變的非常簡(jiǎn)單了。亦可用于直線和圓曲線的計(jì)算。首先在緩和曲線上任選一點(diǎn)A為起始點(diǎn)，計(jì)算該點(diǎn)的坐標(biāo)和切線方位角，通過坐標(biāo)反算求起始點(diǎn)A與計(jì)算點(diǎn)B的方位角和距離，B點(diǎn)肯定對(duì)應(yīng)A點(diǎn)切線方向上有一個(gè)垂足C點(diǎn)，把三點(diǎn)看成一個(gè)直角三角形，通過解直角三角形計(jì)算AC的距離，當(dāng)該距離大于某一數(shù)值，如0。001m，A點(diǎn)里

6、程加AC的距離等于C點(diǎn)的里程，回到開始重新進(jìn)入新一輪的計(jì)算，如果AC的距離小于某一規(guī)定值，則計(jì)算C點(diǎn)的里程與BC的距離即可。求對(duì)應(yīng)線路里程程序：主程序QLC(已知坐標(biāo)求里程)Lb10：｛LＤE｝：ProgXH：Goto0N≥.=prog1：progPQX：progZJ⊿N≤.=prog2：progPQX：progYJ⊿N≥.=prog3：progPQX：progZJ⊿N≥.=prog4：progPQX：progYJ⊿N≤.=prog5：

7、progPQX：progYJ⊿N≥…………progZB子程序：PQX（單圓曲線及帶緩和曲線的平曲線）L1B=ZQS：H=ZQ：A=S2S3240R2：T=A（RS224R）tan（F2）L2N≤Z=V=NZ：W=0：I=0：Goto1⊿L3U=NZ：N≤(ZS)=V=UU540R2S2：W=U7336R3S3U36RS：I=90U2πRS：Goto1⊿【LY：Y=0=U=UX⊿】L4N≤B=I=90（2US）πR：V=RsinIA：W=

8、RcosIRS224R：Goto1⊿L5N≤H=U=HN：C=UU540R2S2：G=U36RSU7336R3S3：V=（TC）cosFGsinFT：W=（CT）sinFGcosF：I=F90U2πRS：Goto1⊿L6N≥H=V=T（TNH）cosF：W=（HTN）sinF：I=F：Goto1⊿L7Lbl1子程序：YJ（右角）W=W：I=KI子程序：ZJ（左角）I=KI子程序：ZB（坐標(biāo)）X=JVcosKWsinK:Y=MVsinKW

9、cosK子程序：XSZB（顯示坐標(biāo)）O≠0=L=L：pause5⊿X=X◢Y=Y◢子程序：BX（邊線）DE：I=IE：V=XDcosI◢W=YDsinI◢DE：I=IE：X=VDcosI◢Y=WDsinI◢2.4數(shù)據(jù)庫(kù)：(每一組曲線占用一個(gè)子程序)1K=：F=：R=：J=：M=：Z=：Q=：S=：22K=：F=：R=：J=：M=：Z=：Q=：S=：【N≥.=X=.】2.5注解：程序XLZB：線路坐標(biāo)，它是計(jì)算逐樁坐標(biāo)的主程序。程序：FJ

10、J(非漸進(jìn))O≠0時(shí)，只需輸入起始點(diǎn)樁號(hào)如計(jì)算為每20米一點(diǎn)時(shí)取O=20，此后則自動(dòng)漸進(jìn)，公里樁號(hào)也自動(dòng)漸進(jìn)。起始樁號(hào)應(yīng)輸入第一個(gè)計(jì)算點(diǎn)樁號(hào)減漸進(jìn)長(zhǎng)度。如K36700輸入36680即可。否則取O=0。每一個(gè)點(diǎn)均需輸入細(xì)部點(diǎn)樁號(hào)。當(dāng)公里樁號(hào)發(fā)生變化時(shí)，如：計(jì)算K25910K26110，每20米一點(diǎn)。K25990完了便是K26010，此時(shí)無需重新輸入公里樁號(hào)，只需輸入一個(gè)大于等于1000的樁號(hào)，此后則按正常方法輸入。例：K25970K259