型计算器连续计算线路高程坐标Word格式文档下载.docx
《型计算器连续计算线路高程坐标Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《型计算器连续计算线路高程坐标Word格式文档下载.docx（17页珍藏版）》请在冰豆网上搜索。
L=πRN÷
180+V＇含有缓曲线的曲线总长
T=（V÷
2-V^3÷
（240R^2））+（R+（V^2÷
（24R）-V^4÷
（2688R^3）））tan（N÷
2）＇切线长
A=Q-T:
B=A+V:
D=A+L:
C=D-V＇A-ZH（ZY）点桩号,B-HY点桩号,C-YH点桩号,D-HZ（YZ）点桩号
Rec（T,F+180）＇求ZH（ZY）点的坐标增量
Z[1]=W+I:
Z[2]=K+J＇ZH（ZY）点坐标值
Rec（T,F+GN）＇求HZ（YZ）点的坐标增量
Z[3]=W+I:
Z[4]=K+J＇HZ（YZ）点的坐标值
Lbl1
U=S÷
（Abs（S+10E-19））:
S=AbsS＇左右偏角每件判定
H<
A=>
Goto2:
≠>
＇第一直线上坐标计算判定
B=>
Goto3:
＇第一缓和曲线上坐标计算判定
C=>
Goto4:
＇净圆曲线上坐标计算判定
D=>
Goto5:
Goto6⊿⊿⊿⊿＇第二缓和曲线和第二直线上坐标计算判定
Lbl2
Rec（Q-H,F+180）＇第一直线上中桩坐标增量计算
X=W+I:
Y=K+J＇中桩坐标值计算
Rec（S,F+180-（180-E）U）＇第一直线上与中桩同一断面的边桩增量计算
X=X+I:
Y=Y+J＇边桩坐标值计算
S=SU＇边长条件判定
Goto8
Lbl3＇进入第一缓曲线段计算
Z=H-A＇待求点至ZH点的距离
O=90Z^2÷
（πRV）＇所求点缓曲线对应的圆心角
X=Z-Z^5÷
（40R^2V^2）+Z^9÷
（3456R^4V^4）＇缓曲线上ZH点至待求的支距X坐标
Z=Z^3÷
（6RV）-Z^7÷
（336R^3V^3）+Z^11÷
（42240R^5V^5）＇缓曲线上ZH点至待求点的支距Y坐标
Lbl7
Rec（X,F）
X=Z[1]+I:
Y=Z[2]+J
Rec（Z,F+90G）＇把中桩支距坐标转换成测量统一坐标
Y=Y+J
Rec（S,F+OG+EU）＇曲线边桩坐标增量计算
Y=Y+J＇坐标计算结果
S=SU＇边长条件
Lbl4＇进入主圆计算部分
Z=H-A-V÷
2＇曲线上待求点到HY点的里程
O=180Z÷
（Rπ）＇待求点方位角所对应的圆心角
X=RsinO+（V÷
（240R^2））
Z=R（1-cosO）+（V^2÷
（2688R^3））＇主圆部分待求点支距坐标XY
Goto7
Lbl5＇进入第二缓和曲线计算
Z=D-H＇曲线上待求点到HZ点的里程
（πRV）＇待求点方位角所对应的圆心角
（40ZR^2V^2）+^9÷
（3456R^4V^4）
（42240R^5V^5）＇待求点支距坐标XY
Rec（X,F+GN+180）
X=Z[3]+I:
Y=Z[4]+J＇把中桩支距坐标转换成测量统一坐标
Rec（Z,F+GN+180-90G）
Rec（S,F+GN+180-OG-（180-E）U）＇曲线边桩坐标增量计算
S=SU
Lbl6＇进入第二直线段计算部分
Rec（H-D+T,F+GN）＇中桩坐标增量计算
Y=K+J＇中桩坐标计算结果
Rec（S,F+GN+EU）＇边桩坐标增量计算
Y=Y+J＇边桩坐标计算结果
Lbl8
X=X◢＇显示坐标计算结果
Y=Y◢
M≠0=>
Goto9:
Goto0⊿
Lbl9＇进入放样部分计算
Pol（X-M,Y-P）＇增量计算
J<
0=>
J=J+360:
J=J⊿
J"
=IntJ+0.01Int（60FracJ）+0.006Frac（60FracJ）◢＇方位角计算结果（此显示值为度分秒格式）
I"
L"
=I◢＇极距计算结果
Goto0
（二）子程序:
A
H≤ZY2（ZH2）=>
Q=JD1:
W=X1:
K=Y1:
R=R1:
F=F0:
N=N1:
V=Ls1:
G=1（-1）:
=>
H≤ZY3（ZH3）=>
Q=JD2:
W=X2:
K=Y2:
R=R2:
F=F1:
N=N2:
V=Ls2:
H≤ZY4（ZH4）=>
Q=JD3:
W=X3:
K=Y3:
R=R3:
F=F2:
N=N3:
V=Ls3:
H≤ZY5（ZH5）=>
Q=JD4:
W=X4:
K=Y4:
R=R4:
F=F3:
N=N4:
V=Ls4:
……………………………
H≤ZYn+1（ZHn+1）=>
Q=JDn:
W=Xn:
K=Yn:
R=Rn:
F=Fn-1:
N=Nn:
V=Lsn:
G=1（-1）
注:
H—待求点桩号ZYn+1（ZHn+1）—后曲线起点桩号Q—本曲线交点桩号W—本曲线交点X坐标
K—本曲线交点Y坐标R—本曲线内圆曲线半径F—前直线方位角N—本交点转角
V—本曲线内缓和曲线长G—线路转向符,左转角-1,右转角为+1
二、高程及放样程序
变坡点桩号A、变坡点高程B、前后纵坡CD、竖曲半径R、横坡度F、最大超高横坡度G、ZH点桩号、YH点桩号、HZ点桩号、施工层厚度N、视线高W
GCFY
W"
SXG="
：
N＇常量输入（视线高程、施工层厚度）
Lbl1
｛LО｝:
О"
B="
:
B"
＇变量输入及声明
K=C-D＇坡度差及竖曲线偏角
K>
J=-1:
J=1⊿＇凹凸竖曲线判断条件
T=Abs（RK）÷
2＇竖曲线切线长,如需显示则在后面加上◢
H=A-T＇竖曲线起点ZY桩号,如需显示则在后面加上◢
X=A+T＇竖曲线终点YZ桩号,如需显示则在后面加上◢
M=L-A＇待求点至变坡点的距离
L≤H=>
P=B+MC-N-W:
＇前纵坡直线段中桩高程计算
L≤A=>
P=B+MC+J（T-AbsM）2÷
（2R）-N-W:
＇前纵坡竖曲线中桩高程计算
L≤X=>
P=B+MD+J（T-AbsM）2÷
＇后纵坡竖曲线中桩高程计算
L>
X=>
P=B+MD-N-W⊿⊿⊿⊿⊿＇后纵坡直线段中桩高程计算
E=0=>
Goto2＇直线部分中、边桩计算判断条件
L≤E=>
Goto2＇直线部分中、边桩计算判断条件
V=>
E=>
Goto3＇前缓曲超高部分中、边桩计算判断条件
L>
U=>
Goto4⊿⊿⊿⊿＇后缓曲超高部分中、边桩计算判断条件
Lbl2
O=0=>
Z“H”=AbsP◢＇显示直线部分中、边桩高程计算结果
Y“HB”=Abs（P-OF）◢不需放样显示高程,否则显示放样水准尺计数
⊿
Goto1
Lbl3
S=（L-E）（F+G）÷
（V-U）-F＇前缓曲线超高横坡度计算
S≤F=>
Goto5：
S≤G=>
Goto6＇超高起点（终点）至零界面、零界面至全超高及全超高
Goto7⊿⊿部分的计算判断条件
Lbl4
S=（V-L）（F+G）÷
（V-U）-F＇后缓曲线超高横坡度计算
Goto6＇超高起点（终点）至超高变坡零界面、零界面至全
Goto7⊿⊿超高、全超高部分计算判断条件
Lbl5
Z“H1”=AbsP◢＇超高起点（终点）至超高变坡零界面中、边桩高程
Y“H-D1”=Abs（P-OF）◢计算结果显示
Q“H-G1”=Abs（P+OS）◢
Goto1
Lbl6
Z“H2”=AbsP◢＇超高变坡零界面至全超高中、边桩高程
Y“H-D2”=Abs（P-OS）◢计算结果显示
Q“H-G2”=Abs（P+OS）◢
Lbl7
Z“H3”=AbsP◢＇全超高中、边桩高程计算结果显示
Y“H-D3”=Abs（P-OG）◢
Q“H-G3”=Abs（P+OG）◢
注：
W“SXG”-视线高N-施工层厚度L"
-待求点桩号О"
-中桩至边桩距离
（二）子程序：
B
L≤ZY2=>
A=JD1:
B=H1:
C=I0:
D=I1:
R=R1:
F=Ih:
E=ZH1:
U=YH1:
V=HZ1:
G=Imax1:
L≤ZY3=>
A=JD2:
B=H2:
C=I1:
D=I2:
R=R2:
E=ZH2:
U=YH2:
V=HZ2:
G=Imax2:
L≤ZY4=>
A=JD3:
B=H3:
C=I2:
D=I3:
R=R3:
E=ZH3:
U=YH3:
V=HZ3:
G=Imax3:
……………………
L≤ZYn+1=>
A=JDn:
B=Hn:
C=In-1:
D=In:
R=Rn:
E=ZHn:
U=YHn:
V=HZn:
G=Imaxn
ZYN+1:
-下一个竖曲线起点桩号（如：
变坡点2的计算范围为前竖曲线终点YZ1至后竖曲线起点ZY3，则在程序中“L≤ZY3”就应输入ZY3的里程桩。
同理，程序中“L≤ZY4”就应输入ZY4的里程桩。
）
A:
-变坡点桩号（在程序中输入时以实际的变坡点里程桩号值替换程序中的JD1字符，以下同）
B:
-变坡点高程C:
-前纵坡度（输入带符号）D:
-后纵坡度（输入带符号）F:
-横坡度R：
-竖曲线半径E:
-ZH点桩号U:
-YH点桩号V:
-HZ点桩号
G:
-最大超高横坡度
示例
如下图
平曲线要素表
交点
桩号
交点坐标
前直线
方位角F
转角
N
R
Ls
要素桩号
X
Y
°
′″
ZY（ZH）
YZ（YH）
QD
K84+000.000
48344.940
88997.968
JD5
K85+596.960
48615.600
87430.200
2974742
升级会员 