5800P坐标正反算程序
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
5800P坐标正反算程序
U:“XO”起点的X坐标,
V:“YO”起点的Y坐标,
O:“SO”起点的里程桩号,
G:“FO”起点的方位角,
H:“LS”计算段线元的长度,
P:“RO”线元起点的曲率半径,
R:“RN”线元终点曲率半径,
“Q ”线元图形信息(直线段Q=0,左偏Q=-1,右偏Q=1)以道路中线前进方向(即大里程方向)区分左右。
DY=ZB:LC:输入1为正算,既输入里程桩号和偏距算坐标,输入2为反算,既输入坐标算里程桩号和偏距。
S:“LC”?S:待求点的里程桩号,
Z:“PJ”?Z:待求点的里程偏距(在中线上取零,左侧取负值,右侧取正值)。
1.当线元为直线时,其起点,终点的曲率半径为无穷大,以10的45次方代替。
2.当线元为圆曲线时,无论其起点,终点与什么线元相接,其曲率半径均等于圆曲线的半径。
3.当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线半径。终点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线半径。
4.当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值,与圆曲线相接时,曲率半径等于圆曲线半径,终点与直线相接时,曲率半径等于设计规定值,与圆曲线相接时,曲率半径等于圆曲线半径。
5.当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定值,与圆曲线相接时,曲率半径等于圆曲线半径。终点与直线相接时,曲率半径等于设计规定值,与圆曲线相接时,曲率半径等于圆曲线半径。
1.坐标正反算主程序A-ZBZS3
U:“XO ”?U:V:“YO”?V:O:“SO”?O:G:“FO”?G:H:“LS”?H:P:“RO”?P:R:“RN”?R:“Q”?Q:
(1÷P)->C:(P-R)÷(2HPR)->D:(180÷Π)->E:N:“DY=ZB:LC”?N:If N=1:Then Goto 1:Else Goto 2:IfEnd:
Lbl1:
S:“LC”?S:Z:“PJ”?Z:Abs(S-O)->W:Prog“SUB1”:“XS=”:X◢
“YS=”:Y◢
“FS=”:F-90◢
Goto 1:
Lbl 2:
“X”?X: “Y”?Y:X->I:Y->J:Prog “SUB2”:S: “LC=”:O+W◢Z: “PJ=”:Z◢
Goto 2:
2.坐标正算子程序SUB1
0.1739274226->A:0.3260725774->B:0.0694318442->K:
0.3300094782->L:1-L->F:1-K->M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Acos(G+QEMW(C+MWD)))->X:
V+W(Asin(G+ QEKW(C+KWD))+ Bsin(G+QELW(C+LWD))+Bsin (G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))->Y:
G+QEW(C+WD)+90->F:X+Zcos(F)->X:Y+Zsin(F)->Y:
3.坐标反算子程序SUB2
G-90->T:Abs((Y-V)cos(T)-(X-U)sin(T))->W:0->Z:Lbl0:Prog “SUB1”:T+QEW(C+WD)->L:(J-Y)cos(L)-(I-X)sin(L)->Z:If Abs(Z)<10^(-3):Then Goto 1:Else W+Z->W:Goto 0:IfEnd: Lbl 1:0->Z:Prog “SUB1”:(J-Y)÷sin(F)->Z: