5800P坐标正算反算程序.doc

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. 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值,与圆曲线相接时,曲率半径等于圆曲线半径,终点与直线相接时,曲率半径等于设计规定值,与圆曲线相接时,曲率半径等于圆曲线半径。
-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->S◢
Z: “PJ=”:Z◢
Goto 2:

->A:->B:->K:->L:1-L->F:1-K->