5直线段中、边桩坐标计算程序

《5直线段中、边桩坐标计算程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

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。求直线段的中、边桩坐标。要求:写出数学模型程序代码4程序运行报告程序运行结果(1)数学模型在图1中，己知路线直线段起点A的桩号Za及其平面坐标(xa，yj，端点的已知数据为B点的平面坐标(xB,yB)o设直线上任意点j的桩号为Zj,贝叮点的中桩坐标为：左边桩坐标

2、为：靭，=x；+wiCQg(cr“-90s)y/L=乃+吒咖(优心-90s)右边桩坐标为：和=引+恢ccffi(cr“+90c)珈=丹+2咖皿+沁》式中，光为路线左半宽幅，％为路线右半宽幅。(1)程序流程(2)程序代码程序中的标识符规定如下:Z：A点桩号0：整桩间距A：A点的x坐标listl：A点桩号B：A点的y坐标Iist2：中桩x坐标C：B点的x坐标Iist3：中桩y坐标D：B点的y坐标Iist4：左边桩x坐标J：A-B的方位角Iist5：左边桩y坐标L：A-B的水平距离Iist6：右边桩x坐标K：计数变量Iist7：右边桩y坐标1“

3、ZBZZB”显示程序标题2Deg:Fix3」基本设置3”AdianZH(m)=”？Tz输入以m为单位的A点桩号4nXA(m)=M?^A：”YA(ih)=”？Tb输入A点的x处标、y坐标5nXB(m)=n?^C：”YB(ih)=”？Td输入B点的x坐标、y坐标6Pol(C-A,D-B)计算A-B的方位角■平距7Listans

4、l

5、Tj：nstans[2

6、方位角与平距值赋给J、L8IfJ<0:ThenJ+360TR：ElseJTR：lfEnd9"BEARATB(DMS)=n:R^DMSJ显示A—B的方位角10nDISTA^B(m)=n:L^显

7、示A->B的水平距离11l^K:Z^List1

8、K]计数变量K；存储A点桩号12nADIANZH(m)=n:Listl[Kp显示A点桩号13PrognSUB10n调子程序计算A点屮边桩点坐标14IfL>0:ThenK+l^K15Z+LTList1(KJ计算B点桩号16nBDIANZH(m)=n:List1[K#显示B点桩号17ProgHSUB10n调了程序计算B点中边桩点坐标18IfEnd19”ZHENGZJJ(m)=n?TO输入整桩间距20K+lTK:Int(Z-O)O+OTList1[K

9、计算并存储从A点开始的笫一个整桩号21”ZHE

10、NGZH(m)=M:List1[K]，显示整桩号22Prog••SUB10H调了程序计算中边桩点坐标23Do24K+lT&List1[K-1

11、+O^List1[K

12、计算并存储整桩号25”ZHENGZH(m)=n:List1[K#显示整桩号26PrognSUB10n调子程序计算并显示朋标27IfC>0:ThenIfListl

13、K]+O-Z

14、-Z)cos(R)TList2

15、K

16、]保存中桩点X处标到串列2B+(List1[K]-Z)sin(R)^List3

17、K]保存屮桩点y坐标到串列3nX(m)=n:List2

18、K]^显示中桩点X坐标4nY(m)=n:List3

19、K]^显示中桩点y处标525TeE为路线左半宽幅6IfE>0:ThenList2

20、K

21、+Ecos(R-90)list4

22、K]计算左边桩x坐标,并保存到list4[K]7List3[K]+Esin(R-90)list5[K

23、计算左边桩y坐标,并保存到list5[K]8nXL(m)=n:list4

24、K]^：nYL(m)=n:list5[Kp显示左边桩xy坐标

25、9IfEnd1020TfF为路线右半宽幅11IfF>0:ThcnList2[K]+Fcos(R+90)Hst6[K]计算右边桩x坐标，并保存到list6[K]12List31K]+Fsin(R+90)list71K

26、计算右边桩y坐标，并保存到list7[K]13nXR(m)=M:list6

27、Kp：nYR(m)=n:list7

28、K]^显示右边桩xy坐标14IfEnd15Return(1)程序运行报告按“EXE”键屏幕显示ADIANZH(M)=?输入求点桩号372.446屏幕显示XA(M)=?输入求点桩号1874.132屏幕显示YA(M)=?

29、输入求点桩号4975.213屏幕显示XB(M)=?输入求点桩号1316.429屏幕显示YB(M)=?输入求点桩号5139.789屏幕显示JULIATB(M)=581.479按“EXE'键屏幕显