全套4850测量程序.超全

CASIO fx-4850p公路工程计算器程序集 编号 主程序名(其中文含义) 程序计算功能一FANG  YANG ( 放 样 ) 计算路线中、边桩坐标,测站点与路线中、边桩坐标间的距离和方位角等二CHAO GAO (超...

CASIO fx-4850p公路工程计算器程序集

编号 主程序名(其中文含义) 程序计算功能

FANG  YANG ( 放 样 ) 计算路线中、边桩坐标,测站点与路线中、边桩坐标间的距离和方位角等

CHAO GAO (超高) 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程

YYLDFWJ (任意两点方位角) 计算任意两点间的距离和方位角

SQXBG(竖曲线标高) 计算竖曲线设计标高

TIAN WA G-C(填挖高差)  计算左、中、右处填挖高差
六 BZZB (边桩坐标) 主要进行桥梁及涵洞各点放样计算
七 ZHUI PO (锥坡) 进行锥坡放样计算

编号 子程序名(其中文含义) 程序计算功能
1 XY (坐标计算子程序) 利用交点参数数据库进行计算
2 P-Q-X J-S (平曲线计算子程序) 利用交点坐标进行计算曲线要素
3 YAO-SU (平曲线要素计算子程序) 进行平曲线要素计算
4 ZB (平曲线的坐标计算子程序) 进行平曲线的坐标计算
5 X1 (曲线要素数据库子程序) 曲线要素数据库(按桩号先后顺序依次输入)
6 ZHONG ZHUANG(中桩坐标计算之子程序) 计算任意点中桩坐标及其切线方位角
7 ZH HY(直缓点 缓圆点处中桩坐标计算之子程序) 计算ZH至HY间中桩坐标及其切线方位角
8 HY YH(缓圆点 圆缓点坐标计算之子程序) 计算HY至YH间中桩坐标及其切线方位角
9 YH HZ(圆缓点 直缓点坐标计算之子程序) 计算YH至HZ间中桩坐标及其切线方位角
10 S0(缓和曲线长度等于零坐标计算之子程序) 计算S=0的圆曲线中桩坐标及其切线方位角
11 ZXZB(直线段坐标计算之子程序) 计算直线段中桩坐标及其切线方位角
12 CHAO GAO-1(超高计算之子程序) 计算左右两侧路基横坡度、宽度、左中右处设计标高之差值
13 JK--B[2](加宽计算之子程序) 计算内侧路基宽度
14 JU-LI FWJ(任意两点间距离、方位角计算之子程序) 计算任意两点间的距离和方位角
15 SQXBG-1(竖曲线标高计算之子程序) 计算竖曲线设计标高
16 SQX CAN SHU(竖曲线参数) 输入各个竖曲线相关参数(按桩号先后顺序依次输入)
17 CAN SHU(圆曲线参数) 输入各个平曲线相关参数(按桩号先后顺序依次输入)
18 S244-QIAO(S244 线桥梁坐标参数) S244 线桥梁坐标参数数据库(按桩号先后顺序依次输入)
19 S244-BM(S244 线桥梁附近的导线点参数) S244 线桥梁附近的导线点参数数据库(按桩号先后顺序依次输入)
常用字母的一般含义:(输入时)
1. 判断参数M,当M≥0时,调用子程序相应参数;当M<0时,直接输入相应参数。任意点的桩号为Z。
2. 圆曲线(ZH)起点桩号Q,其坐标为(X,Y),方位角为A;圆曲线(HZ)起点桩号C,其坐标为(N,E),方位角为B;圆曲线半径为R,缓和段长度为S,内侧路基最大加宽值为J,路面宽度为K(半幅宽度),路拱横坡度为B(必须取负数),最大超高横坡度为H(必须取非负数)。
3. 竖曲线:第一坡度值为I(上坡为正值,下坡为负值),第二坡度值为J(上坡为正值,下坡为负值),竖曲线半径为R,变坡点桩号为N,变坡点高程为H。
4. 计算边桩坐标时: V为旋转角度(左为负值,右为正值。正交时V取90或-90),K为边桩到中桩的距离。

主程序名及内容 备       注
一  FANG  YANG ( 放 样 )
[原名为 JU-LI FWJ FY (距离 方位角 放样 即偏角法放样)]
M“1-11 XY,2-12 JU-LI,3-13 XY JU-LI,4-14 YSZH,M≤0-INPUT JDXY”:V=M:Z[67]= 0
M>10﹦> Goto W:≠> M≤0﹦> Goto  3
Lbl 7:{T}:T“INPUT QIAN-HOU JU-LI(QIAN +,HOU -)”:  Z[51]=T:{U}:U“INPUT P(ZHUANG WEI SHU)”:Z[52]=U:Goto 1
Lbl 3: Z[67]= -1:Prog “P-Q-X J-S”
Lbl W: V=14﹦>Prog “X1”
V=14﹦>Goto V
V>10﹦>V=V-10:Z[67]= 1:≠> V=V
V=Abs V:V=1﹦> Z[67]= 1:Goto 6:≠> V>1﹦> V<4﹦>“INPUT CE-ZHAN-DIAN  X,Y”:{X,Y}:≠> V=4﹦> Goto V
Lbl 6:Goto 7
Lbl 9:Z:Z[67]= 1﹦> Prog “X1”
Prog “YAO-SU” :Prog “XY”
Z[67]=-1﹦>K=Z[15]
Goto 9
Lbl 1:
{P}:P“SHI FUO INPUT  V,K(P>0,N O P<0,YES)”: Z[65]=P:
P<0﹦> Goto K
V=Z[55]:K=Z[61]:“INPUT V[1]=”:{V}:Z[55]=V:“INPUT K[1]=”:{K}:Z[61]=K:Z[52]=1﹦> Goto  K
V=Z[56]:K=Z[62]:“INPUT V[2]=”:{V}:Z[56]=V:“INPUT K[2]=”:{K}:Z[62]=K:Z[52]=2﹦> Goto  K
V=Z[57]:K=Z[63]:“INPUT V[3]=”:{V}:Z[57]=V:“INPUT K[3]=”:{K}:Z[63]=K:Z[52]=3﹦> Goto  K
V=Z[58]:K=Z[64]:“INPUT V[4]=”:{V}:Z[58]=V:“INPUT K[4]=”:{K}:Z[64]=K
Lbl K: Z[67]=1﹦> Goto  9
M=1﹦> Goto 0
“INPUT CE-ZHAN-DIAN X,Y”:I“X”:J“Y”
Z:Z[1]=I:Z[2]=J:“INPUT HOU-SHI-DIAN N,E”:NE:Z[10]=N:Z[11]=E:P=N-I:F=E-I:Prog “JU-LI FWJ”
“HOU-SHI-DIAN”: “JU-LI=”:L▲
“FWJ=”:W->DMS▲
Z[12]=W
Lbl 0:Z:Prog“CAN SHU”
M≠4﹦> Goto 2
“ZH=”:Q▲
“X=”:X▲
“Y=”: Y▲
“A-FWJ=”:A▲
“HZ=”:C▲
“N=”:N▲
“E=”:E▲
“B-FWJ=”:B▲
“R=”:R▲
“S=”:S▲ (输入M值,当M〈0时,则需要输入圆曲线交点参数;当M≥0,则直接调用子程序中的对应参数,M=1,2,3,4时调用其自程序《CAN SHU》的参数,M=11,12,13,14时,调用《X1》的参数。)
输入前后距离,前为正值,后为负值。
输入每个断面的桩数(为1~4)。

输入测站点坐标X、Y值。

是否输入V,K值,当输入正数时,计算过程中不必输入V,K;当输入负值时,计算过程中需要输入V,K。

输入第1~4个桩位的K,V值:K为边桩到中桩的距离(左为负值,右为正值), V为旋转角度(左为负值,右为正值。正交时V取90或-90);当V或K为负值时,计算左侧边桩;当V、K同时为正值时,计算右侧边桩;当K=0时,计算中桩。

输入测站点坐标X、Y值。
输入后视点坐标N、E值。

显示结果含义:
HOU-SHI-DIAN  (后视点);
JU-LI=为测站点与后视点的计算距离;
FWJ=为测站点与后视点的计算方位角。

曲线的ZH桩号、坐标X、Y、方位角;

曲线的HZ桩号、坐标N、E、方位角;
曲线半径R;
缓和段长度S;

主程序名及内容 备       注
(接上页)
“JIA-KUAN-ZHI=”:J▲
“CHAO-GAO-ZHI=”:H▲
Goto 0
Lbl 2:Prog“ZHONG ZHUANG”
Z[3]=W:Z[4]=N[1]:Z[5]=E[1]:Z[53]=0
Lbl B:D=Z:K=Z[7]:Z[53]=1+Z[53]
Z[65] <0﹦> Goto N
P=Z[53]:V=Z[54+P]:K=Z[60+P]:Goto P
Lbl N:{K}:K=0﹦> V=90:Goto P
{V}
Lbl P:K<0﹦> V=-AbsV:K=AbsK:≠>V<0﹦> V=-AbsV:K=AbsK:≠>V=AbsV:K= AbsK
P=Z[4]+cos(Z[3]+V) ×K-Z[1]
F=Z[5]+sin(Z[3]+V) ×K-Z[2]
V<0﹦> V=AbsV:K=-AbsK:≠>V=AbsV:K= AbsK
M=2﹦> Goto 5
“N[2]=”:P+Z [1]▲
“E[2]=”:F+Z [2]▲
M=1﹦> Goto 8
Lbl 5: Prog “JU-LI FWJ”
“FWJ=”:W▲
“JU-LI=”:L▲
M≠3﹦> Goto 8
“SHUI PING JIAO=”:W=Abs(W-Z[12]):W->DMS▲
Lbl 8:I=Z[1]:J=Z[2]:N=Z[10]:E=Z[11]:Z[7]=K
U=Z[52]:T=Z[51]
“NOW Z=”:Z▲
Z[53]=U﹦> Z=Z+T
“NO.”:Z[53] ▲
“NEXT Z=”:{Z}:Z=D﹦> Goto B:≠> Goto 0
Lbl V:V=14﹦>Prog “P-Q-X J-S”
V=14﹦>{Z}:Goto  W

加宽值;
超高值。

输入桩位的K,V值:K为边桩到中桩的距离(左为负值,右为正值), V为旋转角度(左为负值,右为正值。正交时V取90或-90);当V或K为负值时,计算左侧边桩;当V、K同时为正值时,计算右侧边桩;当K=0时,计算中桩。

N[2]=为该桩位的X坐标值;
N[1]=为该桩位的Y坐标值;

FWJ=为测站点与路线中、边桩坐标间的方位角。
JU-LI=为测站点与路线中、边桩坐标间的距离;

SHUI PING JIAO=为测站点与后视点及测站点与路线中、边桩间的水平夹角。

NOW Z=为现在的桩号;

NO.为现在的桩号的第几个桩位;
NEXT Z=为下一桩位的桩号。
二  CHAO GAO (超高)
M“SHI FUO INPUT  CAN SHU(M>0,N O  M<0,YES)”
M≥0﹦> Goto 0
“INPUT V ZUO﹦> V<0 YOU﹦> V≥0”: VQC:S“S1=”:Z[1]=S:
{S}:S“S2=”:Z[20]=S:S=Z[1]:JBH:Z[8]=C:Z[4]=V:Z[9]=K:
Z[10]=J:Lbl 0: {Z}:M<0﹦> Goto A
I“INPUT  I (I≥0﹦> SHE-JI GAO-CHENG≠>JI-SUAN  CHAO-GAO)”
Z[15]=I:Prog “SQSBG-1”: Z[8]=G
Z[15]<0﹦> Goto 1
“SHE-JI GAO-CHENG=”:G▲
Lbl 1:Prog “CAN SHU”
A<B﹦> Z[4]=1:≠> Z[4]=-1
B=Z[6]:Goto B
Lbl A:C=Z[8]:V=Z[4]:K=Z[9]:J=Z[10]
Lbl B: Prog “CHAO GAO-1”
“I[1]=”:100*I[1] ▲
“I[2]=”:100*I[2] ▲
“B[1]=”:B[1] ▲
“B[2]=”:B[2] ▲
“Z[1]=”:Z[1] ▲ 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程
输入M值,当M〈0时,则需要输入圆曲线参数;当M≥0,则直接调用子程序中的对应参数。
[输入v值,当圆曲线为左转弯时,则V为负值 , 当圆曲线为右转弯时,则V为正值 。
圆曲线(ZH)起点桩号Q,圆曲线(HZ)起点桩号C,缓和段长度为S,路面宽度为K(半幅宽度),内侧路基最大加宽值为J,路拱横坡度为B(必须取负数),最大超高横坡度为H(必须取非负数)。]
显示结果含义:G为设计高程。
I[1]为左侧路面横坡度,负值为左侧低于中桩,正值为左侧高于中桩。
I[2] 为右侧路面横坡度,负值为右侧低于中桩,正值为右侧高于中桩。
B[1]为左侧路面宽度
B[2]为右侧路面宽度
主程序名及内容 备       注
(接上页)
“Z[2]=”:Z[2] ▲
“Z[3]=”:Z[3] ▲
M<0﹦> Goto 0
“H[1]=”:H[1]=Z[8]+Z[1] ▲
“H[2]=”:H[2]=Z[8]+Z[2] ▲
“H[3]=”:H[3]=Z[8]+Z[3] ▲
Goto 0 Z[1]为左侧路面边缘与设计高程之差
Z[2]为中桩处与设计高程之差
Z[3]为右侧路面边缘与设计高程之差
H[1]为左侧路面边缘设计标高
H[2]为中桩处设计标高
H[3]为右侧路面边缘设计标高
三 YYLDFWJ (任意两点方位角)
Lbl 0:XYNE:P=N-X:F=E-Y
Prog “JU-LI FWJ”
“JU-LI=”:L▲
“FWJ=”:W▲
{XYNE}: Goto 0 计算任意两点间的距离和方位角
输入第一点的坐标X,Y;输入第一点的坐标N,
E。
显示结果含义:
L为任意两点间的距离
W为任意两点间的方位角
四SQXBG(竖曲线标高)
M:M≥0﹦> Goto 1
IJRNH:Lbl 1: {Z}:Prog “SQSBG-1”
“SHE-JI GAO-CHENG=”:G▲
Goto 1 计算竖曲线设计标高
(输入M值,当M〈0时,则需要输入圆曲线参数;
当M≥0,则直接调用子程序中的对应参数。)
显示结果含义:G为设计高程
五  TIAN WA G-C(填挖高差)
N “INPUT JIE-GOU-CENG-HOU-DU”
H “INPUT SHI-XIAN-GAO-CHENG”:M=3
Z[8]=N:Z[9]=H:Z
Lbl A:D=Z
Prog“SQSBG-1”
Z[15]=G:Prog“CAN SHU”
A<B﹦>Z[4]=1:≠>Z[4]=-1
B=Z[6]: Prog “CHAO GAO-1”
Z[5]=I[1]: “INPUT V(V=1,2,3 ZUO ZHONG YOU)”:{V}
V=1﹦>Goto 1:≠> V=2﹦>Goto 2:≠> V=3﹦>Goto 1:≠>
Goto 4
Lbl 1:J=Z[11]: “KUAN-DU>=SHE-JI﹦>J>=0≠>J〈0”
{J,F}:Z[11]=J
V=1﹦>I=Z[5]:H=Z[1]: ≠> I=Z[2]:H=Z[3]
Z[7]=Z[10]+H+IJ-Z[8]-Z[9]+F:Goto 3
Lbl 2:J=Z[12]:“ZUO﹦>J〈0≠>YOU J>0≠>ZHONG J=0”
{J,F}:Z[12=J:J>0﹦>I=Z[5]:≠>I=-I[2]
Z[7]=Z[15]+Z[2]-IJ-Z[8]-Z[9]+F▲
Lbl 3:“TIAN-WA GAO-CHA=”:Z[7] ▲
Lbl 4:N=Z[8]:H=Z[9]:{Z}:Z=D﹦> Goto B:≠> Goto A
计算左、中、右处填挖高差(必须调用平、竖曲线参数才能进行计算)
输入结构层厚度N值(即本结构层顶面至设计高程之差值);输入视线高程H值。输入桩号Z值。

输入v值,当计算左侧边桩高差时,则V=1;当计算中桩高差时,则V=2, 当计算右侧边桩高差时,则V=3值 。输入边桩加宽值J,当边桩至中桩之距离大于该侧设计路基宽度时,则J为正值;当边桩至中桩之距离小于该侧设计路基宽度时,则J为负值。输入中桩或边桩处的前视读尺数F值。当V=2时,J为偏左或偏右的距离,左为负值,右为正值,不偏离 J=0;铺稳定层适用中桩左右偏离,其他J=0。

显示结果含义:
为所侧点至本结构层顶面之填挖高差(正值为
填,负值为挖)。
主程序名及内容 备       注
六 BZZB (边桩坐标)
I“INPUT I (I≥0﹦>JU-LI FWJ FY ≠>X,Y FY)”:Z[15]=I
M“INPUT M (M=244﹦>S244-QIAO)”:M≠244﹦>Goto B
Lbl A:Z“INPUT LI-CHENG”:Z≥148﹦>Z/1000
Z≥148﹦> Goto A
Z>130﹦>Prog “S244-QIAO”
P=N-X:F=E-Y:“QIAO-LIANG ZHONG-XIN ZHUANG-HAO Z=”:Z▲
Prog “JU-LI FWJ”
N=(X+N)/2:E=(Y+E)/2:Z[15]<0﹦>Goto C
I“INPUT BM BIAN-HAO”:Z[13]=I:Prog “S244-BM”
“X=”:X▲
“Y=”:Y▲
“H=”:H▲
Goto C
Lbl B: Z[15]<0﹦>Goto 1
“INPUT CE-ZHAN-DIAN X,Y”:XY
Lbl 1:“JI-SUAN-YUAN-DIAN N,E,FWJ”:NE:W=Z[2]:{W}
Lbl 0: Z=Z[14]:{Z}:Z“INPUT QIAN-HOU JU-LI(QIAN +,HOU )”:{VK}:Z[14]=Z:Z≥0﹦>A=0:Z[1]=Z:≠>A=180:Z[1]=-1
N[2]=N+cos(W+A)×Z[1]+cos(W+V)×K
E[2]=E+sin(W+A)×Z[1]+sin(W+V)×K
I=Z[15]:Z=[14]:Z[15]<0﹦>Goto 2
P=N[2]-X:F=E[2]-Y:Prog “JU-LI-FWJ”
“FWJ=”:W▲
“JU-LI=”:L▲
W=Z[2]:Goto 0
Lbl 2:“N[2]=”:N[2]▲
“E[2]=”:E[2]▲
Goto 0 主要进行桥梁及涵洞各点坐标计算放样
输入I值(距离方位角放样时I≥0,坐标放样时I<0)。
输入M值(M=244时,进行S244线桥梁放样计算)。
输入S244线桥梁的里程桩号。

显示桥梁中心桩号

输入桥梁附近的导线点编号

输入测站点坐标
输入计算原点的坐标N、E。
输入前后距离,角度及左右距离。

显示测站点与计算点的方位角和距离。

显示计算点的坐标。
7 ZHUI PO (锥坡)
I“INPUT I(I≥0﹦>JU FWJ FY ≠>X,Y FY)”:ABWVXYKM:Z[3]=W:
I<0﹦> Goto 0
“INPUT CE-ZHAN-DIAN N,Y”:{NE}
Lbl 0:Z[1]=M/K:Z[2]=B√(1-Z[1]2)
N[2]=X+A*Z[1]cosW+Z[2]cos(W+V)
E[2]=Y+A*Z[1]sinW+Z[2]sin(W+V)
I<0﹦> Goto 1
P=N[2]-X:F=E[2]-Y:Prog “JU-LI-FWJ”
“FWJ=”:W▲
“JU-LI=”:L▲
W=Z[3]:Goto 2
Lbl 1:“N[2]=”:N[2]▲
“E[2]=”:E[2]▲
Lbl 2:{M}:Goto 0 进行锥坡放样计算

子程序名及内容 备       注
1  XY (坐标计算子程序)
Prog “ZB”:Z[53]=0
Lbl B:Z[69]=Z:B=Z[70]:Z[53]=1+Z[53]
Z[65]<0﹦> Goto N
P=Z[53]:U=Z[54+P]:B=Z[60+P]
Lbl P:B<0﹦> U=AbsU:B=-AbsB:≠>U<0﹦> U=AbsU:B=-AbsB:≠>U=AbsU:B= AbsB
Goto 3
Lbl N:{B}:B“K(ZUO-,YOU +)”:B≠0﹦>U=Z[68]:{U}:U“V(ZHENG JIAO V=+90)”:U=AbsU: Z[68]=U
Lbl 3:N[2]=N+Bcos(W+U):E[2]=E+Bsin(W+U)
V>1﹦>I=PoL(N[2]-X,E[2]-Y:J<0﹦>J=J+360: ≠> J=J
V=2﹦> Goto A
“N[2]=”:N[2]▲
“E[2]=”:E[2]▲
V=1﹦> Goto 9
“FWJ=”:J->DMS▲
“JU-LI=”:I▲
V=2﹦> Goto 9
J>S“HOU-SHI-DIAN-FWJ0” ﹦>F=J-S: ≠> F=J+360-S
“JI-SUAN SHUI-PING-JIAO0=”:F->DMS▲
{I}:I“CE-JU-LI”:“CE-X=”: Rec(I,J)+X▲
“CE-Y=”:J+Y▲
Lbl 9 “NOW Z=”:Z▲
Z[53]=Z[52]﹦> Z=Z+Z[51]
“NO.”:Z[53] ▲
“NEXT Z=”:{Z}:Z=Z[69]﹦> Goto B
Lbl 2
利用交点参数数据库进行计算
当M输入11时,计算并显示坐标;输入12时,为距离方位角放样;输入13时,计算并显示施检表(6、7)中的各项数据;输入4时,计算并显示交点要素,并可与施工图纸中的直线、曲线及转角表的数据相核对,检验子程序X1的要素输入是否正确。

N[2]=为施检表(7)中的X设计坐标;
E[2]=为施检表(7)中的Y设计坐标;
FWJ=为施检表(7)中的计算方位角;
JU-LI=为施检表(7)中的计算距离;
HOU-SHI-DIAN-FWJ0输入测站点至后视的方位角;
JI-SUAN SHUI-PING-JIAO0=为施检表(7)中的计算水平角;
CE-JU-LI输入测站点至求算点的实测距离;
CE-X=为施检表(7)中的X实测坐标;
CE-Y=为施检表(7)中的Y实测坐标;
2  P-Q-X J-S (平曲线计算子程序,利用交点坐标计算)
V=14﹦> Goto 1
“QI-DIAN”:XY:Z[1]=X:Z[2]=Y:“JD”:NE:P=1:Z[3]=N=N:Z[4]=E:K“JD-Z=”:K:“ZHONG-DIAN”:U“X=”:B“Y=”:Z[5]=U:Z[6]=B:R:H“S1=”:Z[19]=H:L“S2=”:Z[20]=L
Lbl 1:Prog “YAO-SU”
“JD0=”:A->DMS▲
“FWJ0=”:F->DMS▲
“T1=”:T▲
“T2=”:C▲
“L=”:D▲
“E=”:(R+H2/24R)/sin(tan-1((R+H 2/24R)/(T-(H/2-H3/240R2 )))-R▲
“ZH=”:O
“HY=”:O+H▲
“QZ=”:O+H+(AbsAR3.1415927/180-H/2-L/2)/2▲
“YH=”:O+D-L▲
“HZ=”:O+D▲
V≠14﹦> K=Z[15]
利用交点坐标进行计算曲线要素
(显示计算结果,与主程序联合使用或单独使用均可。)
QI-DIAN含义为起点,依次输入起点的坐标X、Y,交点的坐标N、E、桩号,终点的坐标X、Y,及该曲线的半径R、第一缓和段长度S1、第二缓和段长度。
显示含义:
JD0为交点偏角;
FWJ0为该曲线的起点处方位角;
T1为第一切线长度;
T2为第二切线长度;
L为该缓和曲线总长度;E为曲中至交点的距离;
ZH为直缓点桩号;
HY为缓圆点桩号;
QZ为曲中点桩号;
YH为圆缓点桩号;
HZ为缓直点桩号。

子程序名及内容 备       注
3  YAO-SU (平曲线要素计算子程序)
J=0:PoL(Z[2P+1]-Z[2P-1],Z[2P+2]-Z[2P]:F=J
F<0 ﹦>F=F+360: ≠> F=F
PoL(Z[2P+3]-Z[2P+1],Z[2P+4]-Z[2P+2]:A=J
A<0 ﹦>A=A+360: ≠> A=A
A=A+F
T=(H/2-H3/240R2 )+((R+L2 /24R)-(R+H 2 /24R)cosAbsA)/sinAbsA
C=(L/2-L3/240R2 )+((R+H2 /24R)-(R+L2 /24R)cosAbsA)/sinAbsA
D=AbsAR3.1415927/180-H/2-L/2+H+L:O=K-T:J=0
Z≤O+H﹦>G=Rec(T,F+180)+Z[2P+1]:M=J+Z[2P+2]
Z≥O+H﹦>Z≤(O+D)-L﹦>G=Rec(T-(H/2-H3/240R2 ),F+180)+Z[2P+1]:
M=J+Z[2P+2]:I=Rec(R+H2 /24R,F+90(A/AbsA):G=I+G:N=J+M`
Z≥(O+D)-L﹦>G=Rec(C,F+A)+Z[2P+1]:M=J+Z[2P+2]
进行平曲线要素计算

(不显示计算结果,必须与主程序联合使用,不能单独使用。)
4  ZB (平曲线的坐标计算子程序)
Z≤O﹦>C=O-Z:N=Rec(C,F+180)+G:E=J+M:W=F
Z≥O﹦>Z≤O+H﹦>C=Z-O:T=C-C5/40R2H2:K=C3/6RH-C7/336R3H3:
I=PoL(T,K:J=J:N=Rec(I,F+J(A/AbsA))+G:E=J+M:
W=90C2/RH*3.1415927(A/AbsA)+F`
Z≥O+H﹦>Z≤(O+D)-L﹦>C=Z-(O+H):W=F-90(A/AbsA)+(A/AbsA)(90H+180C)/R*3.1415927:N=Rec(R,W)+G:E=J=J+M:W=W90(A/AbsA) `
Z≥(O+D)-L﹦>Z≤O+D﹦>C=(O+D)-Z:T=C-C5/40R2L2:
K= C3/6RH-C7/336R3H3:I=PoL(T,K:J=J:N=Rec(I,F+180+A-J(A/AbsA))+G:E=J+M:
W=-90C2/RL*3.1415927(A/AbsA)+F+A`
Z≥O+D﹦>C=Z-(O+D):N=Rec(C,F+A)+G:E=J+M:W=F+A
进行平曲线的坐标计算

(不显示计算结果,必须与主程序联合使用,不能单独使用。)

5 X1 (曲线要素数据库子程序)
Z[1]=   :Z[2]=  : Z[3]==  : Z[4]==  : Z[5]=  : Z[6]==  : Z[7]== : Z[8]==  : Z[9]==  : Z[10]=  : Z[11]==  : Z[12]==
……………………
Z[n*2+1]=  :Z[n*2+2]=  :Z[n*2+3]=  :Z[n*2+4]=
Z≥QI DIAN(起点桩号)﹦>Z≤HZ-1(JD1 的HZ)﹦>P=1:K=  :R=  :H=   :L=   :Goto A
Z≤HZ-2(JD2 的HZ)﹦>P=2:K=  :R=  :H=   :L=   :Goto A
Z≤HZ-3(JD3 的HZ)﹦>P=3:K=  :R=  :H=   :L=   :Goto A
……………………
Z≤HZ-(n-1)(JDn-1 的HZ)﹦>P=n-1:K=  :R=  :H=   :L=   :Goto A
Z>HZ-(n-1)(JDn-1 的HZ)﹦>Z≤ZHONG  DIAN(终点桩号)﹦>P=n:K=  :R=  :H=   :L=   :
Lbl A 曲线要素数据库

Z[1]为路线起点的X坐标;Z[2]为路线起点的Y坐标;
Z[3]为交点JD1的X坐标;Z[3]为交点JD1的Y坐标;
Z[4]为交点JD2的X坐标;Z[5]为交点JD2的Y坐标;
……………………
Z[n*2+1]为交点JDn的X坐标;Z[n*2+2]为交点JDn的X坐标;Z[n*2+3]为路线终点的X坐标;Z[n*2+4]为路线终点的X坐标;
P为计算圆曲线的编码,分别以1、2、3……n顺序输入。K为交点里程桩号。R为圆曲线半径。H为第一缓和段长度。L为第二缓和段长度。
(不显示计算结果,必须与主程序联合使用,不能单独使用。)
6 ZHONG ZHUANG(中桩坐标计算之子程序)
B≥A﹦> I=1:≠> I=-1
Z≤Q﹦> Prog “ZXZB”:Goto A
Z≥C﹦> Prog “ZXZB”:Goto A
S=0﹦> Prog “S0”:Goto A
Z≤Q+S﹦> Prog “ZH HY” :≠>C-S≥Z﹦> Prog “HY YH” :≠> Prog “YH HZ”
Lbl A 由计算器自动判断所输入桩号所属位置(如直缓点至缓圆点段、缓圆点至圆缓点、圆缓点至直缓点、缓和曲线长度等于零、直线段),并调用相应的子程序。

(不显示计算结果,必须与主程序联合使用,不能单独使用。)
子程序名及内容 备       注
7  ZH HY(直缓点 缓圆点处中桩坐标计算之子程序)
L=Z-Q
N[1]=X+ cosA(L-L5÷(40R2S2))-IL3sinA÷(6RS)
E[1]=Y+ sinA(L-L5÷(40R2S2))+IL3cosA÷(6RS)
W=A+28.6479IL2÷(RS) 计算ZH至HY间中桩坐标及其切线方位角

(不显示计算结果,必须与主程序联合使用,不能单独使用。)
8 HY YH(缓圆点 圆缓点坐标计算之子程序
L=Z-Q-S
Z[3]=180L÷(3.1415927R)+28.6479S÷R
N[1]=X+ cosA(Rsinz[3]+S÷2-S3÷(240R2))
-IsinA(R(1-cosZ[3])+S2÷(24R))
E[1]=Y+sinA(RsinZ[3]+S÷2-S3÷(240R2))
+IcosA(R(1-cosZ[3])+S2÷(24R))
W=A+IZ[3] 计算HY至YH间中桩坐标及其切线方位

(不显示计算结果,必须与主程序联合
使用,不能单独使用。)
9 YH HZ(圆缓点 直缓点坐标计算之子程序)
L=C-Z
N[1]=N- cosB(L-L5÷(40R2S2))-IL3sinB÷(6RS)
E[1]=E- sinB(L-L5÷(40R2S2))+IL3cosB÷(6RS)
W=B-28.6479IL2÷(RS) 计算YH至HZ间中桩坐标及其切线方位

(不显示计算结果,必须与主程序联合
使用,不能单独使用。)
10 S0(缓和曲线长度等于零坐标计算之子程序)
L=Z-Q: Z[3]=180L÷(3.1415927R)
N[1]=X+ RcosAsinz[3] -IR sinA(1-cosZ[3])
E[1]=Y+ RsinAsinz[3] +IR cosA (1-cosZ[3])
W=A+IZ[3] 计算S=0的圆曲线中桩坐标及其切线方位角

(不显示计算结果,必须与主程序联合使用,不能单独使用。)
11 ZXZB(直线段坐标计算之子程序)
Z≤Q﹦> L=Q-Z:Z[3]=A+180:F=X:J=Y:W=A:≠>L=Z-C
:Z[3]=B:F=N:J=E:W=B
N[1]=F+LcosZ[3]:E[1]=J+LsinZ[3] 计算直线段中桩坐标及其切线方位角
(不显示计算结果,必须与主程序联合
使用,不能单独使用。)
12 JK--B[2](加宽计算之子程序)
Z≤Q﹦> Goto 1
Z≥C﹦> Goto 1
S=0﹦> Goto 1
Z≤Q+S﹦> Goto C:≠> Z ≥C-S﹦> Goto C :≠> Goto D
Lbl C: Z≤Q+S﹦> L=Z-Q:≠>L=C-Z
T=L+S:P≥0﹦> Goto 2:≠> Goto 3
Lbl 3:B[2]=(4T3-3T4)J+K:Goto E
Lbl 2:B[2]=K+TJ:Goto E
Lbl D:B[2]=K+J:Goto E
Lbl 1:B[2]=K
Lbl E 计算内侧路基宽度

(不显示计算结果,必须与主程序联
合使用,不能单独使用。)

13 JU-LI FWJ(任意两点间距离、方位角计算之子程序)
L=√(P2+F2):P≥0﹦> Goto 1:≠> Goto 2
Lbl 1:F≥0﹦> W=tan-1(F÷P):≠> W=360-tan-1(-F÷P)
Goto 3
Lbl 2
F≥0﹦> W=180-tan-1(-F÷P):≠> W=180+tan-1(F÷P)
Lbl 3 计算任意两点间的距离和方位角

(不显示计算结果,必须与主程序联
合使用,不能单独使用。)
子程序名及内容 备       注
14 CHAO GAO-1(超高计算之子程序)
Z[7]=K:P=2:W=2: Prog “JK--B[2]”
Z≤Q﹦> Goto5:≠>Z≥C﹦> Goto5:≠>S=0:Goto5
Z<Q+S﹦> Goto1:≠>Z>C-S﹦> Goto1:≠> Goto2
Lbl 1: Z<Q+S﹦> L=Z-Q:≠>L=C-Z
P≥0﹦> Goto7
I=(H-B)L÷S+B: Goto8
Lbl 7:I=B+(H-B)(3-2L÷S)L2÷S2
Lbl 8:W≤0﹦> Goto6
I≤-B﹦> Z[5]=-BK+IK:Z[2]=-KB:≠>Z[5]=2IK:Z[2]=IK
Goto 3
Lbl 2:W≤0﹦> Goto9
I=H:Z[5]=2HK:Z[2]=HK:Goto 3
Lbl 5:I=B:W≤0﹦> Goto4
Z[5]=0:Z[2]=-BK
Lbl 3: I≤-B﹦> G=-B:≠>G=I
Z[6]=-G(B[2]-K):Goto C
Lbl 6:Z[5]=IK:Z[2]=0
I≤-B﹦> Z[6]=BB[2]:≠>Z[6]=-IB[2]
Goto C
Lbl 4:Z[5]=BK:Z[2]=0:Z[6]=BK:Goto C
Lbl 9:I=H:Z[5]=KH:Z[2]=0:Z[6]=-H(K+J)
Lbl C: I≤-B﹦> I[3]=B:≠>I[3]=-I
Z[4]<0﹦> GotoD
I[1]=I:I[2]=I[3]:B[1]=Z[7]:Z[1]=Z[5]:Z[3]=Z[6]:GotoE
Lbl D:I[1]=I[3]:I[2]=I:B[1]=B[2]:B[2]=Z[7]:Z[1]=Z[6]:Z[3]=Z[5]
Lbl E 计算左右两侧路基横坡度、宽度、左中
右处设计标高之差值
当选用抛物线公式计算超高时,P取非负
数;当选用线性公式计算超高时,P取负
数。
当设计标高为未加宽时路基内侧边缘标
高,并以未加宽时路基内侧边缘为旋转
轴进行超高时,W取非负数。(一般新建
公路时采用。)
当设计标高为中桩标高,并以中桩为旋
转轴进行超高时,W取负数。(一般旧路
改建时采用。)

(不显示计算结果,必须与主程序联合使用,不能单独使用。)

15 SQXBG-1(竖曲线标高计算之子程序)
M<0﹦> Goto B
Prog “SQX CAN SHU”
Lbl B:W=I-J:W>0﹦> D=W:≠> D=-W
T=RD÷2:E=T2÷(2R):Z≤N﹦> Z[1]=-I:≠>Z[1]=-J
T≤N-Z﹦> Goto 2:≠> Goto 1
Lbl 1:Z-N ≥T﹦> Goto 2:≠> Goto 3
Lbl 2:G=H+Z[1](N-Z):Goto 0
Lbl 3:W>0﹦> Z[2]=-1:≠>Z[2]=1
Z≤N﹦> Z[3]=-1:≠>Z[3]=1
G=H+Z[1](N-Z)+Z[2](T+Z[3](N-Z)) 2÷(2R)
Lbl 0 计算竖曲线设计标高

(不显示计算结果,必须与主程序联
合使用,不能单独使用。)
16 SQX CAN SHU(竖曲线参数数据库)
Z≥QI DIAN(起点桩号)Z≤N1+T1﹦> I1=  :J1=  : R1=  :N1=  :
H1=  :Goto A
Z≤N2+T2﹦> I2=  :J2=  : R2=  :N2=  :H2=  :Goto A
Z≤N3+T3﹦> I3=  :J3=  : R3=  :N3=  :H3=  :Goto A
……………………
……………………
Z≤Nn-1+Tn-1﹦> In-1=  :Jn-1=  : Rn-1=  :Nn-1=  :Hn-1=  :Goto A: Goto A
Z>Nn-1+Tn-1﹦>Z≤ZHONG  DIAN(终点桩号)﹦> In=  :Jn=  : Rn=  :Nn=  :Hn=
Lbl A 输入各个竖曲线相关参数(必须按桩号先后顺序依次输入)。
竖曲线:第一坡度值为I(上坡为正值,下坡为负值),第二坡度值为J(上坡为正值,下坡为负值),竖曲线半径为R,变坡点桩号为N,变坡点高程为H。

(不显示计算结果,必须与主程序联合使用,不能单独使用。)
子程序名及内容 备       注
17 CAN SHU(圆曲线参数数据库)
K=   :Z[6]=   :J=0:H=  :Z[20]=0
Z≥QI DIAN(起点桩号)﹦>Z≤HZ-1(JD1 的HZ)﹦>  Q1=  :X1=  : Y1=  :A1=  :C1=  :N1=  :E1=  :B1=  :R1=  :S1=  :J1=  :H1=  :Goto A
Z≤HZ-2(JD2 的HZ)﹦> Q2=  :X2=  : Y2=  :A2=  :C2=  :N2=  :
E2=  :B2=  :R2=  :S2=  :J2=  :H2=  :Goto A
Z≤HZ-3(JD3 的HZ)﹦> Q3=  :X3=  : Y3=  :A3=  :C3=  :N3=  :
E3=  :B3=  :R3=  :S3=  :J3=  :H3=  :Goto A
……………………
Z≤HZ-(n-1)(JDn-1 的HZ)﹦> Qn-1=  :Xn-1=  : Yn-1=  :An-1=  :Cn-1=  :Nn-1=  :En-1=  :Bn-1=  :Rn-1=  :
Sn-1=  :Jn-1=  :Hn-1=  : Goto A
Z>HZ-(n-1)(JDn-1 的HZ)﹦>Z≤ZHONG  DIAN(终点桩号)﹦> Qn=  :
Xn=  : Yn=  :An=  :Cn=  :Nn=  :En=  :Bn=  :Rn=  :Sn=  :
Jn=  :Hn=
Lbl A 输入各个平曲线相关参数(必须按桩号先后
顺序依次输入)。
路面宽度为K(半幅宽度),路拱横坡度为
Z[6](必须取负数),H为路拱横坡度(必须取负数)。

圆曲线(ZH)起点桩号Q,其坐标为(X,Y),
方位角为A;圆曲线(HZ)起点桩号C,其
坐标为(N,E),方位角为B;圆曲线半径
为R,缓和段长度为S,内侧路基最大加宽
值为J,最大超高横坡度为H(必须取非负
数)。

(不显示计算结果,必须与主程序联合使
用,不能单独使用。)
18 S244-QIAO(S244 线桥梁坐标参数数据库)
Z≤130730﹦> Z=130730:X=711519.906:Y=312606.39:N=711513.996:E=312607.423:Goto A
Z≤141.05﹦> Z=141050:X=701707.369:Y=313284.941:N=701695.279:E=313269.009:Goto A
Z≤142.162﹦> Z=142162:X=700768.017:Y=312799.928:N=700762.188:E=312801.347:Goto A
Z≤143.244﹦> Z=143244:X=699697.749:Y=312722.421:N=699691.802:E=312721.629:Goto A
Z≤146.6409﹦> Z=146640.9:X=696891.91:Y=310986.967:N=696880.484:E=310979.446:Goto A
Lbl A S244 线桥梁坐标参数数据库子程序

Z为桥梁中心桩号,X、Y和N、E分别为桥梁对称两端的中桩坐标。
19 S244-BM(S244 线桥梁附近的导线点参数数据库)
I=18﹦>“T18”:X=712364.458:Y=312466.815:H=164.566:Goto A
I=129﹦>“A129”:X=701719.714:Y=313263.69:H=134.714:Goto A
I=9﹦>“T9”:X=700761.854:Y=312843.924:H=134.274:Goto A
I=137.3﹦>“A137-3”:X=699627.085:Y=312704.34:H=133.062:Goto A
I=4﹦>“T4”:X=696867.539:Y=31936.889:H=135.481:Goto A
Lbl A S244 线桥梁附近的导线点参数数据库
“T18”为导线点的编号;
X为导线点的X坐标;
Y为导线点的Y坐标;
H为导线点的高程;

  • 发表于 2018-11-05 13:53
  • 阅读 ( 37 )
  • 分类:4800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

174 篇文章

作家榜 »

  1. admin 174 文章
  2. 胡亮 4 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. 老Y 2 文章
  6. netbee 1 文章
  7. 秦汉 1 文章
  8. boyving 1 文章