多交点直线、缓和曲线、圆曲线(CAISO fx-5800p计算器)综合程序
一、 程序功能
本程序由一个主程序及一个子程序组成,适合于全线路多交点基本线形(各交点内第一缓和曲线、圆曲线、第二缓和曲线以及第一缓和曲线前的直线段上任意一点)的坐标计算。起算点为第一交点内第一缓和曲线前的直线段起点或线路起点,计算终点为最后一个交点内第二缓和曲线终点或线路终点。计算时只需输入待求点里程以及待求点偏移距离两个元素即可。
二、源程序
1、主程序
QXFY(文件名)
LBI 0
“K(m )”?K :“Q”?V
If K ≥第一交点内第一缓和曲线前的直线起点或线路起点and K≤第一交点内第二缓和曲线终点
then 第一交点X 坐标→A :第一交点Y 坐标→B :第一交点起始方位角→C :第一交点偏角→D :第一交点内圆曲线半径→R :第一交点内第一缓和曲线长度→L :第一交点内第二缓和曲线长→Z :正交或斜交度数→U :第一交点里程→W
prog “DJDQXFY ”
Goto 1
Else if K ≥第二交点内第一缓和曲线前的直线起点或线路起点and K≤第二
交点内第二缓和曲线终点
then 第二交点X 坐标→A :第二交点Y 坐标→B :第二交点起始方位角→C :第二交点偏角→D :第二交点内圆曲线半径→R :第二交点内第一缓和曲线长度→L :第二交点内第二缓和曲线长→Z :正交或斜交度数→U :第二交点里程→W
prog “DJDQXFY ”
Goto 1
、、、、、、、、、
Else if K ≥最后一个交点内第一缓和曲线前的直线起点或线路起点and K≤最后一个交点内第二缓和曲线终点
then 最后一个交点X 坐标→A :最后一个交点Y 坐标→B :最后一个交点起始方位角→C :最后一个交点偏角→D :最后一个交点内圆曲线半径→R :最后一个交点内第一缓和曲线长度→L :最后一个交点内第二缓和曲线长→Z :正交或斜交度数→U :最后一个交点里程→W
prog “DJDQXFY ”
Goto 1
Else if K <第一交点内第一缓和曲线前的直线起点或线路起点or K >最后一个交点内第二缓和曲线终点或线路终点:then Goto 0
LBI 1
“XP=”:M→M◢
“YP=”:N→N◢
Goto 0
2、子程序
DJDQXFY(文件名)
D→E:D﹤0=>-D→E
L/2-L3/(240R2)+(R+L2/(24R)-L4/(2688R3))Tan(E/2)+((Z2-L 2)/(24R)+(L4-Z 4)/(2688R 3))/sinE→T
Z/2-Z3/(240R2)+(R+Z2/(24R)-Z4/(2688R3))tan(E/2)+((L2-Z 2)/(24R)+(Z4-L 4)/(2688R 3))/sinE→P
RE∏/180+L/2+Z/2→S:C+180→G:TcosG+A→E:TsinG+B→F:C+D→I:PcosI+A→G:PsinI+B→H
LBI 0
If K≤W-T:then Goto1
Else if K≤W-T+L:then Goto2
Else if K≤W-T+S-Z:then Goto3
Else if K≤W-T+S:then Goto4
Else if K≥W-T+S:then Goto5
If end
LBI 1
K-W→N:C→O:NcosO+A→M:NsinO+B→N
Goto8
LBI 2
K-W+T→N:90N 2/(πRL) →Q
N-N 5/(40R2L 2)+N9/(3456R4L 4)→N
(K-W+T)3/(6RL)-(K-W+T)7/(336R3L 3)+(K-W+T)11/(42240R5L 5) →J If D﹥0:then E+NcosC-JsinC→M:F+NsinC+JcosC→N
Else E+NcosC+JsinC→M:F+NsinC-JcosC→N
If end
If D﹥0:then C+Q→O: Else C-Q→O: If end
Goto 8
LBI 3
90L/(πR)→Q
L-L 3/(40R2)+L5/(3456R4) →N:L2/(6R)-L4/(336R3)+L6/(42240R5) →J If D﹥0:then E+NcosC-JsinC→M:F+NsinC+JcosC→N
Else E+NcosC+JsinC→M:F+NsinC-JcosC→N
If end
90(K-W+T-L)/( πR)→O:2RsinO→X:O→I
If D﹥0:then C+Q+I→O: Else C-Q-I→O: If end
XcosO+M→M:XsinO+N→N
If D﹥0:then C+Q+2I→O: Else C-Q-2I→O: If end
Goto 8
LBI 4
K-W+T-S→N:-N→N:90N 2/(πRZ )→Q:N-N 5/(40R2Z 2)+N9/(3456R4Z 4)→N (S-K+W-T)3/(6RZ)-(S-K+W-T)7/(336R3Z 3)+(S-K+W-T)11/(42240R5L 5)→J If D﹥0:then G-Ncos(C+D)-Jsin(C+D)→M:H-Nsin(C+D)+Jcos(C+D)→N C+D-Q→O
Else G-Ncos(C+D)+Jsin(C+D)→M
H-Nsin(C+D)-Jcos(C+D)→N: C+D+Q→O
If end
Goto 8
LBI 5
K-W+T+P-S→N:C+D→O:NcosO+A→M:NsinO+B→N Goto 8
LBI 8
M+Vcos(O+U)→M:N+V sin(O+U)→N
三、使用说明:
A B----交点坐标
C----交点起始方位角
D-----交点偏角(左偏为负,右偏为正)
R-----圆曲线半径
L----第一缓和曲线长
Z----第二缓和曲线长
U---正交或斜交角度
W-----交点里程
K(m)-----待求点里程
Q-----待求点偏移距离(左偏为负,中线为0,右偏为正) XP YP---待求点坐标
四、工程事例
以昆明东连接线为例,调试本程序。
开机,选择文件名DJDQXFY
按EXE 显示XJ ? 输入交点X 坐标2572165.236 按EXE 显示YJ ? 输入交点Y 坐标891213.2677
按EXE 显示FWJ ? 输入交点起始方位角90°28′39.5″ 按EXE 显示PJ ? 输入交点偏角66°11′6.7″(右转) 按EXE 显示R ? 输入圆曲线半径310
按EXE 显示L1? 输入第一缓和曲线长50
按EXE 显示L2? 输入第二缓和曲线长138.79 按EXE 显示U ? 正交输入90
按EXE 显示K(j)? 输入交点里程290.15
按EXE 显示K(m)? 输入待求点里程100
按EXE 显示Q ? 输入待求点偏移距离中线为0 按EXE 显示XP= 显示2572166.156
按EXE 显示YP= 显示891023.1087
多交点直线、缓和曲线、圆曲线(CAISO fx-5800p计算器)综合程序
一、 程序功能
本程序由一个主程序及一个子程序组成,适合于全线路多交点基本线形(各交点内第一缓和曲线、圆曲线、第二缓和曲线以及第一缓和曲线前的直线段上任意一点)的坐标计算。起算点为第一交点内第一缓和曲线前的直线段起点或线路起点,计算终点为最后一个交点内第二缓和曲线终点或线路终点。计算时只需输入待求点里程以及待求点偏移距离两个元素即可。
二、源程序
1、主程序
QXFY(文件名)
LBI 0
“K(m )”?K :“Q”?V
If K ≥第一交点内第一缓和曲线前的直线起点或线路起点and K≤第一交点内第二缓和曲线终点
then 第一交点X 坐标→A :第一交点Y 坐标→B :第一交点起始方位角→C :第一交点偏角→D :第一交点内圆曲线半径→R :第一交点内第一缓和曲线长度→L :第一交点内第二缓和曲线长→Z :正交或斜交度数→U :第一交点里程→W
prog “DJDQXFY ”
Goto 1
Else if K ≥第二交点内第一缓和曲线前的直线起点或线路起点and K≤第二
交点内第二缓和曲线终点
then 第二交点X 坐标→A :第二交点Y 坐标→B :第二交点起始方位角→C :第二交点偏角→D :第二交点内圆曲线半径→R :第二交点内第一缓和曲线长度→L :第二交点内第二缓和曲线长→Z :正交或斜交度数→U :第二交点里程→W
prog “DJDQXFY ”
Goto 1
、、、、、、、、、
Else if K ≥最后一个交点内第一缓和曲线前的直线起点或线路起点and K≤最后一个交点内第二缓和曲线终点
then 最后一个交点X 坐标→A :最后一个交点Y 坐标→B :最后一个交点起始方位角→C :最后一个交点偏角→D :最后一个交点内圆曲线半径→R :最后一个交点内第一缓和曲线长度→L :最后一个交点内第二缓和曲线长→Z :正交或斜交度数→U :最后一个交点里程→W
prog “DJDQXFY ”
Goto 1
Else if K <第一交点内第一缓和曲线前的直线起点或线路起点or K >最后一个交点内第二缓和曲线终点或线路终点:then Goto 0
LBI 1
“XP=”:M→M◢
“YP=”:N→N◢
Goto 0
2、子程序
DJDQXFY(文件名)
D→E:D﹤0=>-D→E
L/2-L3/(240R2)+(R+L2/(24R)-L4/(2688R3))Tan(E/2)+((Z2-L 2)/(24R)+(L4-Z 4)/(2688R 3))/sinE→T
Z/2-Z3/(240R2)+(R+Z2/(24R)-Z4/(2688R3))tan(E/2)+((L2-Z 2)/(24R)+(Z4-L 4)/(2688R 3))/sinE→P
RE∏/180+L/2+Z/2→S:C+180→G:TcosG+A→E:TsinG+B→F:C+D→I:PcosI+A→G:PsinI+B→H
LBI 0
If K≤W-T:then Goto1
Else if K≤W-T+L:then Goto2
Else if K≤W-T+S-Z:then Goto3
Else if K≤W-T+S:then Goto4
Else if K≥W-T+S:then Goto5
If end
LBI 1
K-W→N:C→O:NcosO+A→M:NsinO+B→N
Goto8
LBI 2
K-W+T→N:90N 2/(πRL) →Q
N-N 5/(40R2L 2)+N9/(3456R4L 4)→N
(K-W+T)3/(6RL)-(K-W+T)7/(336R3L 3)+(K-W+T)11/(42240R5L 5) →J If D﹥0:then E+NcosC-JsinC→M:F+NsinC+JcosC→N
Else E+NcosC+JsinC→M:F+NsinC-JcosC→N
If end
If D﹥0:then C+Q→O: Else C-Q→O: If end
Goto 8
LBI 3
90L/(πR)→Q
L-L 3/(40R2)+L5/(3456R4) →N:L2/(6R)-L4/(336R3)+L6/(42240R5) →J If D﹥0:then E+NcosC-JsinC→M:F+NsinC+JcosC→N
Else E+NcosC+JsinC→M:F+NsinC-JcosC→N
If end
90(K-W+T-L)/( πR)→O:2RsinO→X:O→I
If D﹥0:then C+Q+I→O: Else C-Q-I→O: If end
XcosO+M→M:XsinO+N→N
If D﹥0:then C+Q+2I→O: Else C-Q-2I→O: If end
Goto 8
LBI 4
K-W+T-S→N:-N→N:90N 2/(πRZ )→Q:N-N 5/(40R2Z 2)+N9/(3456R4Z 4)→N (S-K+W-T)3/(6RZ)-(S-K+W-T)7/(336R3Z 3)+(S-K+W-T)11/(42240R5L 5)→J If D﹥0:then G-Ncos(C+D)-Jsin(C+D)→M:H-Nsin(C+D)+Jcos(C+D)→N C+D-Q→O
Else G-Ncos(C+D)+Jsin(C+D)→M
H-Nsin(C+D)-Jcos(C+D)→N: C+D+Q→O
If end
Goto 8
LBI 5
K-W+T+P-S→N:C+D→O:NcosO+A→M:NsinO+B→N Goto 8
LBI 8
M+Vcos(O+U)→M:N+V sin(O+U)→N
三、使用说明:
A B----交点坐标
C----交点起始方位角
D-----交点偏角(左偏为负,右偏为正)
R-----圆曲线半径
L----第一缓和曲线长
Z----第二缓和曲线长
U---正交或斜交角度
W-----交点里程
K(m)-----待求点里程
Q-----待求点偏移距离(左偏为负,中线为0,右偏为正) XP YP---待求点坐标
四、工程事例
以昆明东连接线为例,调试本程序。
开机,选择文件名DJDQXFY
按EXE 显示XJ ? 输入交点X 坐标2572165.236 按EXE 显示YJ ? 输入交点Y 坐标891213.2677
按EXE 显示FWJ ? 输入交点起始方位角90°28′39.5″ 按EXE 显示PJ ? 输入交点偏角66°11′6.7″(右转) 按EXE 显示R ? 输入圆曲线半径310
按EXE 显示L1? 输入第一缓和曲线长50
按EXE 显示L2? 输入第二缓和曲线长138.79 按EXE 显示U ? 正交输入90
按EXE 显示K(j)? 输入交点里程290.15
按EXE 显示K(m)? 输入待求点里程100
按EXE 显示Q ? 输入待求点偏移距离中线为0 按EXE 显示XP= 显示2572166.156
按EXE 显示YP= 显示891023.1087