欢迎来到天天文库
浏览记录
ID:41867137
大小:239.74 KB
页数:7页
时间:2019-09-04
《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-Z14、-Z)cos(R)TList215、K16、]保存中桩点X处标到串列2B+(List1[K]-Z)sin(R)^List317、K]保存屮桩点y坐标到串列3nX(m)=n:List218、K]^显示中桩点X坐标4nY(m)=n:List319、K]^显示中桩点y处标525TeE为路线左半宽幅6IfE>0:ThenList220、K21、+Ecos(R-90)list422、K]计算左边桩x坐标,并保存到list4[K]7List3[K]+Esin(R-90)list5[K23、计算左边桩y坐标,并保存到list5[K]8nXL(m)=n:list424、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)list71K26、计算右边桩y坐标,并保存到list7[K]13nXR(m)=M:list627、Kp:nYR(m)=n:list728、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'键屏幕显
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'键屏幕显
此文档下载收益归作者所有