线元法参数计算程序(自编)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
在网上寻找计算线元法需要的参数的5800程序找了很久没找到，后来索性自己更具《详解用线元法计算公路中线坐标》中的公式自己编了个5800程序。
为了区分字母O和数字0（字母O染红了的）
Fix 3：14→DimZ
Lbl 0
"1(YP),-1(ZP)="?→Z[14]:"QD(KM)="?A（右偏输入1，左偏输入-1）"LS="?B（线元长度）
"QD(QL)="?C（起点曲率，半径的倒数，直线输入1/1045趋近于0）"ZD(QL)="?D（终点曲率）
"QD(X)="?E（起点X坐标）
"ZD(Y)="?F（起点Y坐标）
"QD(FWJ)="?G（起点方位角）
0.1184634425→R:0.2393143352→Z[11]:0.2844444444→Z[12]:0.0469100770→S:0.2307653449→T: 0.953089923→W:0.769234655→V:0.5→U:0.2393143352→K:0.1184634425→O
Z[14]=1=›Goto 1：Z[14]=-1=›Goto 3
Lbl 1
D-C→Z
G+(D+C)90B÷∏→H
Goto 2
Lbl 3
-D-C→Z
G+(-C-D)90B÷∏→H
Goto 2
Lbl 2
Rcos((G∏+180CSB+90ZBS2)÷∏)→Z[1]:Z[11]cos((G∏+180CTB+90ZBT2)÷∏)→Z[2]:Z[12]cos((G∏+180CBU+90ZBU2)÷∏)→Z[3]:Kcos((G∏+180CBV+90ZBV2)÷∏)→Z[4]:O cos((G∏+180CBW+90ZBW2)÷∏)→Z[5]:Rsin((G∏+180CBS+90ZBS2)÷∏)→Z[6]:Z[11]sin((G∏+180CBT+90ZBT2)÷∏)→Z[7]:Z[12]sin((G∏+180CBU+90ZBU2)÷∏)→Z[8]:Ksin((G∏+180CBV+90ZBV2)÷∏)→Z[9]:O sin((G∏+180CBW+90ZBW2)÷∏)→Z[10]
E+B(Z[1]+ Z[2]+ Z[3]+ Z[4]+ Z[5]) →Z[13]
F+B(Z[6]+ Z[7]+ Z[8]+ Z[9]+ Z[10]) →N
Cls
“ZDX=”:Locate 5,1,Z[13]: Locate 1,2,”ZDY=”: Locate5,2,N: Locate1,3,”F=”: Locate4,3,H o: Locate1,4,”ZDK=”: Locate5,4,(A+B)◢
Cls
Goto 0
ZDX=待求点的X坐标
ZDY=待求点的Y坐标
F=待求点的方位角 ZDK待求点的桩号