CASIO fx4850p公路工程计算器程序集.docx
《CASIO fx4850p公路工程计算器程序集.docx》由会员分享,可在线阅读,更多相关《CASIO fx4850p公路工程计算器程序集.docx(21页珍藏版)》请在冰豆网上搜索。
CASIOfx4850p公路工程计算器程序集
编号主程序名(其中文含义)程序计算功能
一FANGYANG(放样)计算路线中、边桩坐标,测站点与路线中、边桩坐标间的距离和方位角等
二CHAOGAO(超高)计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程
三YYLDFWJ(任意两点方位角)计算任意两点间的距离和方位角
四SQXBG(竖曲线标高)计算竖曲线设计标高
五TIANWAG-C(填挖高差)计算左、中、右处填挖高差
六BZZB(边桩坐标)主要进行桥梁及涵洞各点放样计算
七ZHUIPO(锥坡)进行锥坡放样计算
编号子程序名(其中文含义)程序计算功能
1XY(坐标计算子程序)利用交点参数数据库进行计算
2P-Q-XJ-S(平曲线计算子程序)利用交点坐标进行计算曲线要素
3YAO-SU(平曲线要素计算子程序)进行平曲线要素计算
4ZB(平曲线的坐标计算子程序)进行平曲线的坐标计算
5X1(曲线要素数据库子程序)曲线要素数据库(按桩号先后顺序依次输入)
6ZHONGZHUANG(中桩坐标计算之子程序)计算任意点中桩坐标及其切线方位角
7ZHHY(直缓点缓圆点处中桩坐标计算之子程序)计算ZH至HY间中桩坐标及其切线方位角
8HYYH(缓圆点圆缓点坐标计算之子程序)计算HY至YH间中桩坐标及其切线方位角
9YHHZ(圆缓点直缓点坐标计算之子程序)计算YH至HZ间中桩坐标及其切线方位角
10S0(缓和曲线长度等于零坐标计算之子程序)计算S=0的圆曲线中桩坐标及其切线方位角
11ZXZB(直线段坐标计算之子程序)计算直线段中桩坐标及其切线方位角
12CHAOGAO-1(超高计算之子程序)计算左右两侧路基横坡度、宽度、左中右处设计标高之差值
13JK--B[2](加宽计算之子程序)计算内侧路基宽度
14JU-LIFWJ(任意两点间距离、方位角计算之子程序)计算任意两点间的距离和方位角
15SQXBG-1(竖曲线标高计算之子程序)计算竖曲线设计标高
16SQXCANSHU(竖曲线参数)输入各个竖曲线相关参数(按桩号先后顺序依次输入)
17CANSHU(圆曲线参数)输入各个平曲线相关参数(按桩号先后顺序依次输入)
18S244-QIAO(S244线桥梁坐标参数)S244线桥梁坐标参数数据库(按桩号先后顺序依次输入)
19S244-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为边桩到中桩的距离。
主程序名及内容备注
一FANGYANG(放样)
[原名为JU-LIFWJFY(距离方位角放样即偏角法放样)]
M“1-11XY,2-12JU-LI,3-13XYJU-LI,4-14YSZH,M≤0-INPUTJDXY”:
V=M:
Z[67]=0
M>10﹦>GotoW:
≠>M≤0﹦>Goto3
Lbl7:
{T}:
T“INPUTQIAN-HOUJU-LI(QIAN+,HOU-)”:
Z[51]=T:
{U}:
U“INPUTP(ZHUANGWEISHU)”:
Z[52]=U:
Goto1
Lbl3:
Z[67]=-1:
Prog“P-Q-XJ-S”
LblW:
V=14﹦>Prog“X1”
V=14﹦>GotoV
V>10﹦>V=V-10:
Z[67]=1:
≠>V=V
V=AbsV:
V=1﹦>Z[67]=1:
Goto6:
≠>V>1﹦>V<4﹦>“INPUTCE-ZHAN-DIANX,Y”:
{X,Y}:
≠>V=4﹦>GotoV
Lbl6:
Goto7
Lbl9:
Z:
Z[67]=1﹦>Prog“X1”
Prog“YAO-SU”:
Prog“XY”
Z[67]=-1﹦>K=Z[15]
Goto9
Lbl1:
{P}:
P“SHIFUOINPUTV,K(P>0,NOP<0,YES)”:
Z[65]=P:
P<0﹦>GotoK
V=Z[55]:
K=Z[61]:
“INPUTV[1]=”:
{V}:
Z[55]=V:
“INPUTK[1]=”:
{K}:
Z[61]=K:
Z[52]=1﹦>GotoK
V=Z[56]:
K=Z[62]:
“INPUTV[2]=”:
{V}:
Z[56]=V:
“INPUTK[2]=”:
{K}:
Z[62]=K:
Z[52]=2﹦>GotoK
V=Z[57]:
K=Z[63]:
“INPUTV[3]=”:
{V}:
Z[57]=V:
“INPUTK[3]=”:
{K}:
Z[63]=K:
Z[52]=3﹦>GotoK
V=Z[58]:
K=Z[64]:
“INPUTV[4]=”:
{V}:
Z[58]=V:
“INPUTK[4]=”:
{K}:
Z[64]=K
LblK:
Z[67]=1﹦>Goto9
M=1﹦>Goto0
“INPUTCE-ZHAN-DIANX,Y”:
I“X”:
J“Y”
Z:
Z[1]=I:
Z[2]=J:
“INPUTHOU-SHI-DIANN,E”:
NE:
Z[10]=N:
Z[11]=E:
P=N-I:
F=E-I:
Prog“JU-LIFWJ”
“HOU-SHI-DIAN”:
“JU-LI=”:
L▲
“FWJ=”:
W->DMS▲
Z[12]=W
Lbl0:
Z:
Prog“CANSHU”
M≠4﹦>Goto2
“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时调用其自程序《CANSHU》的参数,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▲
Goto0
Lbl2:
Prog“ZHONGZHUANG”
Z[3]=W:
Z[4]=N[1]:
Z[5]=E[1]:
Z[53]=0
LblB:
D=Z:
K=Z[7]:
Z[53]=1+Z[53]
Z[65]<0﹦>GotoN
P=Z[53]:
V=Z[54+P]:
K=Z[60+P]:
GotoP
LblN:
{K}:
K=0﹦>V=90:
GotoP
{V}
LblP:
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﹦>Goto5
“N[2]=”:
P+Z[1]▲
“E[2]=”:
F+Z[2]▲
M=1﹦>Goto8
Lbl5:
Prog“JU-LIFWJ”
“FWJ=”:
W▲
“JU-LI=”:
L▲
M≠3﹦>Goto8
“SHUIPINGJIAO=”:
W=Abs(W-Z[12]):
W->DMS▲
Lbl8:
I=Z[1]:
J=Z[2]:
N=Z[10]:
E=Z[11]:
Z[7]=K
U=Z[52]:
T=Z[51]
“NOWZ=”:
Z▲
Z[53]=U﹦>Z=Z+T
“NO.”:
Z[53]▲
“NEXTZ=”:
{Z}:
Z=D﹦>GotoB:
≠>Goto0
LblV:
V=14﹦>Prog“P-Q-XJ-S”
V=14﹦>{Z}:
GotoW
加宽值;
超高值。
输入桩位的K,V值:
K为边桩到中桩的距离(左为负值,右为正值),V为旋转角度(左为负值,右为正值。
正交时V取90或-90);当V或K为负值时,计算左侧边桩;当V、K同时为正值时,计算右侧边桩;当K=0时,计算中桩。
N[2]=为该桩位的X坐标值;
N[1]=为该桩位的Y坐标值;
FWJ=为测站点与路线中、边桩坐标间的方位角。
JU-LI=为测站点与路线中、边桩坐标间的距离;
SHUIPINGJIAO=为测站点与后视点及测站点与路线中、边桩间的水平夹角。
NOWZ=为现在的桩号;
NO.为现在的桩号的第几个桩位;
NEXTZ=为下一桩位的桩号。
二CHAOGAO(超高)
M“SHIFUOINPUTCANSHU(M>0,NOM<0,YES)”
M≥0﹦>Goto0
“INPUTVZUO﹦>V<0YOU﹦>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:
Lbl0:
{Z}:
M<0﹦>GotoA
I“INPUTI(I≥0﹦>SHE-JIGAO-CHENG≠>JI-SUANCHAO-GAO)”
Z[15]=I:
Prog“SQSBG-1”:
Z[8]=G
Z[15]<0﹦>Goto1
“SHE-JIGAO-CHENG=”:
G▲
Lbl1:
Prog“CANSHU”
AZ[4]=1:
≠>Z[4]=-1
B=Z[6]:
GotoB
LblA:
C=Z[8]:
V=Z[4]:
K=Z[9]:
J=Z[10]
LblB:
Prog“CHAOGAO-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﹦>Goto0
“H[1]=”:
H[1]=Z[8]+Z[1]▲
“H[2]=”:
H[2]=Z[8]+Z[2]▲
“H[3]=”:
H[3]=Z[8]+Z[3]▲
Goto0Z[1]为左侧路面边缘与设计高程之差
Z[2]为中桩处与设计高程之差
Z[3]为右侧路面边缘与设计高程之差
H[1]为左侧路面边缘设计标高
H[2]为中桩处设计标高
H[3]为右侧路面边缘设计标高
三YYLDFWJ(任意两点方位角)
Lbl0:
XYNE:
P=N-X:
F=E-Y
Prog“JU-LIFWJ”
“JU-LI=”:
L▲
“FWJ=”:
W▲
{XYNE}:
Goto0计算任意两点间的距离和方位角
输入第一点的坐标X,Y;输入第一点的坐标N,
E。
显示结果含义:
L为任意两点间的距离
W为任意两点间的方位角
四SQXBG(竖曲线标高)
M:
M≥0﹦>Goto1
IJRNH:
Lbl1:
{Z}:
Prog“SQSBG-1”
“SHE-JIGAO-CHENG=”:
G▲
Goto1计算竖曲线设计标高
(输入M值,当M〈0时,则需要输入圆曲线参数;
当M≥0,则直接调用子程序中的对应参数。
)
显示结果含义:
G为设计高程
五TIANWAG-C(填挖高差)
N“INPUTJIE-GOU-CENG-HOU-DU”
H“INPUTSHI-XIAN-GAO-CHENG”:
M=3
Z[8]=N:
Z[9]=H:
Z
LblA:
D=Z
Prog“SQSBG-1”
Z[15]=G:
Prog“CANSHU”
AZ[4]=1:
≠>Z[4]=-1
B=Z[6]:
Prog“CHAOGAO-1”
Z[5]=I[1]:
“INPUTV(V=1,2,3ZUOZHONGYOU)”:
{V}
V=1﹦>Goto1:
≠>V=2﹦>Goto2:
≠>V=3﹦>Goto1:
≠>
Goto4
Lbl1:
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:
Goto3
Lbl2:
J=Z[12]:
“ZUO﹦>J〈0≠>YOUJ>0≠>ZHONGJ=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▲
Lbl3:
“TIAN-WAGAO-CHA=”:
Z[7]▲
Lbl4:
N=Z[8]:
H=Z[9]:
{Z}:
Z=D﹦>GotoB:
≠>GotoA
计算左、中、右处填挖高差(必须调用平、竖曲线参数才能进行计算)
输入结构层厚度N值(即本结构层顶面至设计高程之差值);输入视线高程H值。
输入桩号Z值。
输入v值,当计算左侧边桩高差时,则V=1;当计算中桩高差时,则V=2,当计算右侧边桩高差时,则V=3值。
输入边桩加宽值J,当边桩至中桩之距离大于该侧设计路基宽度时,则J为正值;当边桩至中桩之距离小于该侧设计路基宽度时,则J为负值。
输入中桩或边桩处的前视读尺数F值。
当V=2时,J为偏左或偏右的距离,左为负值,右为正值,不偏离J=0;铺稳定层适用中桩左右偏离,其他J=0。
显示结果含义:
为所侧点至本结构层顶面之填挖高差(正值为
填,负值为挖)。
主程序名及内容备注
六BZZB(边桩坐标)
I“INPUTI(I≥0﹦>JU-LIFWJFY≠>X,YFY)”:
Z[15]=I
M“INPUTM(M=244﹦>S244-QIAO)”:
M≠244﹦>GotoB
LblA:
Z“INPUTLI-CHENG”:
Z≥148﹦>Z/1000
Z≥148﹦>GotoA
Z>130﹦>Prog“S244-QIAO”P=N-X:
F=E-Y:
“QIAO-LIANGZHONG-XINZHUANG-HAOZ=”:
Z▲
Prog“JU-LIFWJ”
N=(X+N)/2:
E=(Y+E)/2:
Z[15]<0﹦>GotoC
I“INPUTBMBIAN-HAO”:
Z[13]=I:
Prog“S244-BM”
“X=”:
X▲
“Y=”:
Y▲
“H=”:
H▲
GotoC
LblB:
Z[15]<0﹦>Goto1
“INPUTCE-ZHAN-DIANX,Y”:
XY
Lbl1:
“JI-SUAN-YUAN-DIANN,E,FWJ”:
NE:
W=Z[2]:
{W}
Lbl0:
Z=Z[14]:
{Z}:
Z“INPUTQIAN-HOUJU-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﹦>Goto2
P=N[2]-X:
F=E[2]-Y:
Prog“JU-LI-FWJ”
“FWJ=”:
W▲
“JU-LI=”:
L▲
W=Z[2]:
Goto0
Lbl2:
“N[2]=”:
N[2]▲
“E[2]=”:
E[2]▲
Goto0主要进行桥梁及涵洞各点坐标计算放样
输入I值(距离方位角放样时I≥0,坐标放样时I<0)。
输入M值(M=244时,进行S244线桥梁放样计算)。
输入S244线桥梁的里程桩号。
显示桥梁中心桩号
输入桥梁附近的导线点编号
输入测站点坐标
输入计算原点的坐标N、E。
输入前后距离,角度及左右距离。
显示测站点与计算点的方位角和距离。
显示计算点的坐标。
7ZHUIPO(锥坡)
I“INPUTI(I≥0﹦>JUFWJFY≠>X,YFY)”:
ABWVXYKM:
Z[3]=W:
I<0﹦>Goto0
“INPUTCE-ZHAN-DIANN,Y”:
{NE}
Lbl0:
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﹦>Goto1
P=N[2]-X:
F=E[2]-Y:
Prog“JU-LI-FWJ”
“FWJ=”:
W▲
“JU-LI=”:
L▲
W=Z[3]:
Goto2
Lbl1:
“N[2]=”:
N[2]▲
“E[2]=”:
E[2]▲
Lbl2:
{M}:
Goto0进行锥坡放样计算
子程序名及内容备注
1XY(坐标计算子程序)
Prog“ZB”:
Z[53]=0
LblB:
Z[69]=Z:
B=Z[70]:
Z[53]=1+Z[53]
Z[65]<0﹦>GotoN
P=Z[53]:
U=Z[54+P]:
B=Z[60+P]
LblP:
B<0﹦>U=AbsU:
B=-AbsB:
≠>U<0﹦>U=AbsU:
B=-AbsB:
≠>U=AbsU:
B=AbsB
Goto3
LblN:
{B}:
B“K(ZUO-,YOU+)”:
B≠0﹦>U=Z[68]:
{U}:
U“V(ZHENGJIAOV=+90)”:
U=AbsU:
Z[68]=U
Lbl3:
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﹦>GotoA
“N[2]=”:
N[2]▲
“E[2]=”:
E[2]▲
V=1﹦>Goto9
“FWJ=”:
J->DMS▲
“JU-LI=”:
I▲
V=2﹦>Goto9
J>S“HOU-SHI-DIAN-FWJ0”﹦>F=J-S:
≠>F=J+360-S
“JI-SUANSHUI-PING-JIAO0=”:
F->DMS▲
{I}:
I“CE-JU-LI”:
“CE-X=”:
Rec(I,J)+X▲
“CE-Y=”:
J+Y▲
Lbl9“NOWZ=”:
Z▲
Z[53]=Z[52]﹦>Z=Z+Z[51]
“NO.”:
Z[53]▲
“NEXTZ=”:
{Z}:
Z=Z[69]﹦>GotoB
Lbl2
利用交点参数数据库进行计算
当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-SUANSHUI-PING-JIAO0=为施检表(7)中的计算水平角;
CE-JU-LI输入测站点至求算点的实测距离;
CE-X=为施检表(7)中的X实测坐标;
CE-Y=为施检表(7)中的Y实测坐标;
2P-Q-XJ-S(平曲线计算子程序,利用交点坐标计算)
V=14﹦>Goto1
“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
Lbl1:
Prog“YAO-SU”
“JD0=”:
A->DMS▲
“FWJ0=”:
F->DMS▲
“T1=”:
T▲
“T2=”:
C▲
“L=”:
D▲
“E=”:
(R+H2/24R)/sin(tan-1((R+H2/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为缓直点桩号