直線段中邊樁坐標計算程序

1、5、直線段中、邊樁坐標計算程序路線直線段的起點里程為ZA=K21+372.446，已知A點的坐標（xA=1874.132，yA =4975.213）和B點的坐標（xB=1316.429，yB=5139.789），路面左半幅寬為WL=25m，右半幅寬為WR=20m，整樁間距取50m。求直線段的中、邊樁坐標。要求：1、寫出數學模型2、編寫流程3、程序代碼4、程序運行報告5、程序運行結果=（1）數學模型圖1 直線段中、邊樁坐標計算程序計算原理在圖1中，已知路線直線段起點A 的樁號ZA及其平面坐標(xA, yA)，端點的已知數據為B點的平面坐標(xB,yB)。設直線上任意點j的樁號為Z j，則j點的中

2、樁坐標為：xj=xA+(Zj-ZA)cosaAByj=yA+(Zj-ZA)sinaAB左邊樁坐標為：xjL=xj+wLcos(aAB-90°)yjL=yj+wLsin(aAB-90°)右邊樁坐標為：xjR=xj+wRcos(aAB+90°)yjR=yj+wRsin(aAB+90°)式中，wL為路線左半寬幅，wR為路線右半寬幅。（2）程序流程（3）程序代碼程序中的標識符規(guī)定如下：Z：A點樁號A：A點的x坐標B：A點的y坐標C：B點的x坐標D：B點的y坐標J：AB的方位角L：AB的水平距離K：計數變量O：整樁間距l(xiāng)ist1：A點樁號list2：中樁x坐標li

3、st3：中樁y坐標list4：左邊樁x坐標list5：左邊樁y坐標list6：右邊樁x坐標list7：右邊樁y坐標1“ZBZZB”顯示程序標題2Deg:Fix3基本設置3"A dian ZH(m)="?Z輸入以m 為單位的A 點樁號4"XA(m)="?A："YA(m)="?B 輸入A點的x坐標、y坐標5"XB(m)="?C："YB(m)="?D 輸入B點的x坐標、y坐標6Pol(C-A,D-B) 計算AB 的方位角與平距7List ans1J: list ans2L方位角與平距值賦給J、L8If

4、 J<0:Then J+360R:Else JR:IfEnd9"BEAR AB(DMS)=":R顯示AB 的方位角10"DIST AB(m)=":L顯示AB 的水平距離111K:ZList 1K 計數變量K；存儲A 點樁號12"A DIAN ZH(m)=":List 1K顯示A 點樁號13Prog "SUB10"調子程序計算A 點中邊樁點坐標14If L>0:Then K+1K15Z+LList 1K 計算B 點樁號16"B DIAN ZH(m)=":List 1K顯示B 點樁號17

5、Prog "SUB10"調子程序計算B 點中邊樁點坐標18IfEnd19"ZHENG ZJJ(m)="?O 輸入整樁間距20K+1K:Int(Z÷O)O+OList 1K 計算并存儲從A 點開始的第一個整樁號21"ZHENG ZH(m)=":List 1K顯示整樁號22Prog "SUB10"調子程序計算中邊樁點坐標23Do24K+1K: List 1K-1+OList 1K 計算并存儲整樁號25" ZHENG ZH (m)=":List 1K顯示整樁號26Prog "SUB

6、10"調子程序計算并顯示坐標27If C>0:Then If List 1K+O-ZL:Then 1Y:Else 0Y:IfEnd整樁號<直線端點樁號時循環(huán),否則結束28IfEnd29LpWhile Y=130END子程序SUB101A+(List 1K-Z)cos (R)List 2K 保存中樁點x坐標到串列2B+(List 1K-Z)sin (R)List 3K保存中樁點y坐標到串列3"X(m)=":List 2K顯示中樁點x坐標4"Y(m)=":List 3K顯示中樁點y坐標525EE為路線左半寬幅6If E>0:The

7、n List 2K+Ecos(R-90)list4K計算左邊樁x坐標，并保存到list4K7List 3K+Esin(R-90)list5K計算左邊樁y坐標，并保存到list5K8"XL(m)=": list4K:"YL(m)=": list5K顯示左邊樁xy坐標9IfEnd1020FF為路線右半寬幅11If F>0:Then List 2K+Fcos(R+90)list6K 計算右邊樁x坐標，并保存到list6K12List 3K+Fsin(R+90)list7K計算右邊樁y坐標，并保存到list7K13"XR(m)=": l

8、ist6K:"YR(m)=": list7K顯示右邊樁xy坐標14IfEnd15Return（4）程序運行報告按“EXE”鍵 屏幕顯示 A DIAN ZH(M)=？輸入求點樁號372. 446 屏幕顯示 XA(M)=?輸入求點樁號1874.132 屏幕顯示 YA(M)=?輸入求點樁號4975.213 屏幕顯示 XB(M)=?輸入求點樁號1316.429 屏幕顯示 YB(M)=?輸入求點樁號5139.789 屏幕顯示 JULI AB(M)=581.479按“EXE鍵 屏幕顯示 FWJ AB(Deg)=163°3331.95按“EXE鍵 屏幕顯示 A DIAN ZH=372.446按“EXE鍵 屏幕顯示 X(M)=1874.132按“EXE鍵 屏幕顯示 Y(M)=4975.213按“EXE鍵 屏幕顯示 XL(M)=1881.208按“EXE鍵