2020-03-03 14:08:05 来源:范文大全收藏下载本文
曲线坐标5800计算器编辑程序内容(缓和曲线2007版) 程序名:QXZB-(曲线坐标--)
?P:?Z:”ZH(X)”?G:”ZH(Y)”?H:?R:”LS1”?T:”ZH-JD”?K:”ZH”?N:”Ly”?L:”HZ(X)”?E:”HZ(Y)”?F:”LS2”?V:”HZ-JD”?Q:”Z+1,Y-1”?:B
LblA
?M:?S
IfM<N:ThenM=>GotoA:Ifend
IfM>(N+T+L+V): ThenM=>GotoA:Ifend
IfM>(N+T+L): ThenM=>GotoD:Ifend
IfM>(N+T): ThenM=>GotoC:Ifend
LblB(第一缓和曲线)
Abs(M-N)→W
W-W5÷(40R2T2)+W9÷(3456R4T4)→C ------------------------ -------支距X坐标 W3÷(6RT)-W7÷(336R3T3)+W11÷(42240R5T5)→D-------------支距Y坐标
90W2÷(πRT)→O缓和曲线角
G+CcosK+BDsinK+Scos(K-BO-90)→X▲
H+CsinK-BDcosK+Ssin(K-BO-90)→Y▲
Pol((X-P),(Y-Z)):Cls--------------------方位角和距离程序IfJ<0:ThenJ+360 →J:ElseJ→J:Ifend:I▲ J ◆DMS▲GotoA
LblC(圆曲线)
T-T3÷(40R2)+T5÷(3456R4)→C---------------------------ZH点到HY点支距X坐标 T2÷(6R)-T4÷(336R3)+T6÷(42240R5)→D-----------ZH点到HY点支距Y坐标 K-90BT÷(πR)→U----------------------HY点到JD点方位角 Abs(M-(N+T))×180÷(πR)→O-------------待求点圆心角
G+CcosK+BDsinK +2Rsin(0.5O)Cos(U-0.5BO)+SCos(U-BO-90) →X ▲
H+CsinK-BDcosK +2Rsin(0.5O)Sin(U-0.5BO)+SSin(U-BO-90) →Y ▲
Pol((X-P),(Y-Z)):Cls------------------ 方位角和距离程序IfJ<0:ThenJ+360 →J:ElseJ→J:Ifend:I▲ J ◆DMS▲
GotoA
LblD(第二缓和曲线)
Abs(M-(N+T+L+V))→W
W-W5÷(40R2V2)+W9÷(3456R4V4)→C支距X坐标
W3÷(6RV)-W7÷(336R3V3)+W11÷(42240R5V5)→D------------支距Y坐标
90W2÷(πRV)→O---缓和曲线角
E+CcosQ-BDsinQ+Scos(Q+BO+90)→X▲
F+CsinQ+BDcosQ+Ssin(Q+BO+90)→Y▲
Pol((X-P),(Y-Z)):Cls---------------------方位角和距离程序
IfJ<0:ThenJ+360 →J:ElseJ→J:Ifend:I▲ J ◆DMS▲
GotoA
P、Z—架站点X、Y坐标N—ZH点里程桩号
G、H—ZH点X、Y坐标M—待测点里程桩号
K—ZH至JD方位角S—待测点左右桩距离(左+,右-)
T—第一缓和曲线长R—缓和曲线半径
L—圆曲线长V—第二缓和曲线长
Q—HZ至JD方位角E、F—HZ点X、Y坐标
B—左转弯为+1,右转弯为-1
曲线坐标4800计算器编辑程序内容
程序名:QXZB---(曲线坐标)
P:Z:G:H:R:T:K:N:L:E:F:V:Q: B
LblA
{MS}
M<N=>GotoA△
M>(N+T+L+V)=>GotoA△
M>(N+T+L)=>GotoD△
M>(N+T)=>GotoC△
LblB(第一缓和曲线)
W=Abs(M-N)
C=W-W5÷(40R2T2)+W9÷(3456R4T4) ----------------------- 支距X坐标
D=W3÷(6RT)-W7÷(336R3T3)+W11÷(42240R5T5)-------支距Y坐标
O=90W2÷(πRT)----------------------------缓和曲线角
X= G+CcosK+BDsinK+Scos(K-BO-90)▲
Y= H+CsinK-BDcosK+Ssin(K-BO-90)▲
Pol((X-P),(Y-Z)):I▲J<0=>J=J+360△J▲---------------计算方位角和距离程序
GotoA
LblC(圆曲线)
C=T-T3÷40R2+T5÷3456R4-----ZH点到HY点支距X坐标
D=T2÷6R-T4÷336R3+T6÷42240R5 ZH点到HY点支距Y坐标
U=K-90BT÷πR-------------------------HY点到JD点方位角
O= Abs(M-(N+T))×180÷πR---------------待求点圆心角
X= G+CcosK+BDsinK +2Rsin(0.5O)Cos(U-0.5BO)+SCos(U-BO-90) ▲
Y= H+CsinK-BDcosK +2Rsin(0.5O)Sin(U-0.5BO)+SSin(U-BO-90) ▲
Pol((X-P),(Y-Z)):I▲J<0=>J=J+360△J▲---------------计算方位角和距离程序
GotoA
LblD(第二缓和曲线)
W=Abs(M-(N+T+L+V))
C=W-W5÷(40R2V2)+W9÷(3456R4V4)---------------------------支距X坐标
D=W3÷(6RV)-W7÷(336R3V3)+W11÷(42240R5V5)--------支距Y坐标
O=90W2÷(πRV)-----------------------------缓和曲线角
X= E+CcosQ-BDsinQ+Scos(Q+BO+90)▲
Y= F+CsinQ+BDcosQ+Ssin(Q+BO+90)▲
Pol((X-P),(Y-Z)):I▲J<0=>J=J+360△J▲---------------计算方位角和距离程序
GotoA
P、Z—架站点X、Y坐标N—ZH点里程桩号
G、H—ZH点X、Y坐标M—待测点里程桩号
K—ZH至JD方位角S—待测点左右桩距离(左+,右-)
T—第一缓和曲线长R—缓和曲线半径
L—圆曲线长V—第二缓和曲线长
Q—HZ至JD方位角E、F—HZ点X、Y坐标
B—左转弯为+1,右转弯为-
1备注:此程序适用于对称、不对称缓和曲线和圆曲线,当为单圆曲线时, T、V、E、F、Q输零即可.
人人范文网 m.inrrp.com.cn 手机版