Fx5800计算机测量程序.docx
- 文档编号:5439079
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:15
- 大小:22.66KB
Fx5800计算机测量程序.docx
《Fx5800计算机测量程序.docx》由会员分享,可在线阅读,更多相关《Fx5800计算机测量程序.docx(15页珍藏版)》请在冰点文库上搜索。
Fx5800计算机测量程序
ZS正算求坐标FS反算求距离和方位角
Lbl0:
"XA"?
A:
"YA"?
B"XA"?
A:
"YA"?
B:
"XB"?
C:
"YB"?
D
Lbl1:
"JULI"?
C:
"FWJ"?
DIfJ∠0:
ThenJ+360→F:
ElseJ→F:
IfEnd
cos(D)*C+A→Xsin(D)*C+B→Y"JuLi=":
I◢
"XB="X◢"YB="Y◢"FWJ=":
F◆DMS◢
Goto0
ZFS结合
Lbl0:
"1→ZS,2→FS=":
?
Q
Q=1:
=>Goto1:
Q=2:
=>Goto3
Lbl1:
"XA"?
A:
"YA"?
B
Lbl2:
"JULI"?
C:
"FWJ"?
D
"XB=":
cos(D)*C+A→X◢
"YB=":
sin(D)*C+B→Y◢
Goto0
Lbl3:
"XA"?
A:
"YA"?
B:
"XB"?
C:
"YB"?
D
Pol(C-A,D-B):
Cls
IfJ∠0:
ThenJ+360→F:
ElseJ→F:
IfEnd
"JuLi=":
I◢
"FWJ=":
F◆DMS◢
Goto0
Lbl0:
"1→ZS,2→FS=":
?
Q
Q=1:
=>Goto1:
Q=2:
=>Goto3
Lbl1:
"X+Yi"?
A:
"JULI"?
C:
"FWJ"?
D
"XB=":
cos(D)*C+Rep(A)→X◢
"YB=":
sin(D)*C+Imp(A)→Y◢
Goto0
Lbl3:
"X+Yi1"?
A:
"X+Yi2"?
B
Arg(B-A)→J
J∠0=>J+360→J
"JuLi=":
Abs(B-A)◢
"FWJ=":
J◆DMS◢
Goto0
二次抛物线公式
H=h/D2*L2
H抛高值
h‰跨度D跨度的一半mL所求距离m
”CD=”:
?
ACD一跨的长度
0.001*A→B:
A/2→C
Lbl0:
?
LL所求的距离
IfL〈C:
ThenL→L:
Goto1:
Ifend
IfL≥C:
ThenA-L→L:
Goto1:
Ifend
Lbl1:
“H=”:
B/C2*L2→H:
Goto0◢H所求距离的抛高值
弦长所对应的弧长外矢距
LBI0:
?
R:
?
X
”L=”:
Sin-1(X/2R)*л*R/90→L◢
”W=”:
R-Cos(90*L/Rл)*R→W◢
Goto0
输入注明:
R==半径X==弦长
输出注明:
L==弧长W==外矢距
超高段横坡计算公式
起点横坡-(所求点桩号-变化段起点桩号)*(起点横坡-终点横坡)/(变化段终点-变化段起点)=所求点横坡
道路中边桩坐标计算
”X=”?
A:
”Y=”?
B:
”FWJ=”?
C:
”1/R-QD=”?
D:
”1/R-ZD=”?
E:
”QDK=”?
F:
”ZDK=”?
G
LbI1:
”SQK=”?
H:
”JL=”?
O:
”LR=”?
R
(E-D)/ABS(G-F)→P:
ABS(H-F)→Q:
PQ→I:
D+I→T
C+90Q(I+2D)/π→J
C+45Q(I/8+D)/π→M
C+135Q(3I/4+2D)/(2π→N
C+45Q(I/2+2D)/π→K
”X=”:
A+Q(cos(C)+4(cos(M)+cos(N))+2cos(K)+cos(J))/12→X◢
”Y=”:
B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))/12→Y◢
”XL=”:
X+Ocos(J-90)→U◢
”XR=”:
Y+Osin(J-90)→W◢
”XR=”:
X+Rcos(J+90)→V◢
”YR=”:
Y+Rsin(J+90)→Z◢
Goto0
注释:
X、Y起点XY坐标
FW:
起点方位角
1/R-QD:
1/起点半径1/R-ZD:
1/终点半径(左转:
-1/半径右转:
1/半径)
无穷大时输0
QDK:
起点桩号ZDK:
终点桩号SQK:
所求点桩号
JL:
左边距离JR:
右边距离
5800P坐标正算反算程序
U:
“XO”起点的X坐标,
V:
“YO”起点的Y坐标,
O:
“SO”起点的里程桩号,
G:
“FO”起点的方位角,
H:
“LS”计算段线元的长度,
P:
“RO”线元起点的曲率半径,
R:
“RN”线元终点曲率半径,
“Q”线元图形信息(直线段Q=0,左偏Q=-1,右偏Q=1)以道路中线前进方向(即大里程方向)区分左右。
DY=ZB:
LC:
输入1为正算,既输入里程桩号和偏距算坐标,输入2为反算,既输入坐标算里程桩号和偏距。
S:
“LC”?
S:
待求点的里程桩号,
Z:
“PJ”?
Z:
待求点的里程偏距(在中线上取零,左侧取负值,右侧取正值)。
1. 当线元为直线时,其起点,终点的曲率半径为无穷大,以10的45次方代替。
2. 当线元为圆曲线时,无论其起点,终点与什么线元相接,其曲率半径均等于圆曲线的半径。
3. 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线半径。
终点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线半径。
1.坐标正反算主程序A-ZBZS3
“XO”?
U:
“YO”?
V:
“SO”?
O:
“FO”?
G:
“LS”?
H:
“RO”?
P:
“RN”?
R:
“Q”?
Q
Lbl0:
“1→NE”:
“2→SZ”:
?
N:
IfN=1=>Goto1:
N=2=>Goto2IfEnd
(1÷P)→C:
(P-R)÷(2HPR)→D:
(180÷л)→E:
N:
“DY=ZB:
LC”?
N:
IfN=1:
ThenGoto1:
ElseGoto2:
IfEnd
Lbl1:
“LC”?
S:
“PJ”?
Z:
Prog“要素”:
(1÷P)→C:
(P-R)÷(2HPR)→D:
(180÷л)→E
Abs(S-O)→W:
Prog“SUB1”:
“XS=”:
X◢
“YS=”:
Y◢
“FS=”:
F-90◆DMS◢
Goto1:
Lbl2:
“X”?
X:
“Y”?
Y:
X→I:
Y→J:
Prog“SUB2”:
“LC=”:
O+W→S◢
“PJ=”:
Z◢
Goto0
2.坐标正算子程序SUB1
0.1739274226→A:
0.3260725774→B:
0.0694318442→K:
0.3300094782→L:
1-L→F:
1-K→M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y:
G+QEW(C+WD)+90→F:
X+Zcos(F)→X:
Y+Zsin(F)→Y:
3.坐标反算子程序SUB2
G-90→T:
Abs((Y-V)cos(T)-(X-U)sin(T))→W:
0→Z:
Lbl0:
Prog“SUB1”
T+QEW(C+WD)→L:
(J-Y)cos(L)-(I-X)sin(L)→Z:
IfAbs(Z)<10^(-3):
ThenGoto1:
ElseW+Z→W:
Goto0:
IfEnd
Lbl1:
0→Z:
Prog“SUB1”:
(J-Y)÷sin(F)→Z:
Return
4.要素数据库
IfS≤第一段曲线终点桩号:
Then起点X→U:
Y→V:
起点里程→O
:
起点F→G:
曲线长→H:
1200→P:
1200→R:
左负右正→Q:
ElseIfS≤第二段曲线终点桩号:
Then……..IfEnd:
Return(S一定≤桩号)
Fx-5800计算机道路线型正反算程序
00主程序
Lbl4:
“1→NE”:
“2→SZ”:
?
Q:
?
S:
Prog“01”↙
Lbl0:
Q=1=>Goto1:
Q=2=>Goto2↙
Lbl1:
?
Z:
Prog“02”:
“N=”:
N◢“E=”:
E◢“F=”:
F◢Prog“GC”:
Goto4↙
Lbl2:
“N=”:
?
B:
“E=”:
?
C:
B→N:
C→E:
Prog“03”:
“S=”:
S◢“Z=”:
Z◢Prog“GC”:
Goto4
01数据库子程序
IFS<(线元终点里程):
Then→A(线元起点方位角):
→O(线元起点里程):
→U(线元起点X):
→V(线元起点Y):
→P(线元起点曲率半径):
→R(线元终点曲率半径):
→L(线元起点至终点长度):
IfEnd↙
02正算子程序
0.5(1÷R-1÷P)÷L→D:
S-O→X↙
U+∫(cos(A+(X÷P+DX2)×180÷π),0,X)→N↙
V+∫(sin(A+(X÷P+DX2)×180÷π),0,X)→E↙
A+(X÷P+DX2)×180÷π→F↙
N+Zcos(F+90)→N:
E+Zsin(F+90)→E
03反算子程序
Lbl1:
0→Z:
1→Q:
Prog“01”:
Prog“02”↙
Pol(N-B+10^(-46),E-C+10^(-46)):
Isin(F-90-J)→W:
S+W→S↙
Abs(W)>0.0001=>Goto1↙
Lbl2:
0→Z:
Prog“02”:
(C-E)/sin(F+90)→Z
竖曲线全线高程计算程序
Lbl1:
Prog’’子程序’’C-D→F:
Abs(RF/2)→T:
R(Abs(F)/F)→R
IfH≤B-T:
Then0→K:
ElseIfH≥B+T:
Then0→K:
D→CElseH-B+T→K:
IfEnd:
IfEnd:
A-(B-H)C-K2/2R→G:
’’G=’’:
G◢’’H=’’:
G-0.02Z◢
子程序
IFH≤第二竖曲线起点桩号:
Then第一竖曲线交点高程→A:
交点桩号→B:
前坡→C:
后坡→D:
曲线半径→R:
(Else):
IfEnd继续添加曲线要素
承台角点计算程序
LBI5:
?
A:
?
B:
?
F:
?
K:
?
C:
?
P
tan-1(K/C)→E◢
IfP=0:
ThenX=A:
Y=B:
Goto1:
ElseGoto0:
IfEnd
LBI0:
?
J
”XZ=”:
Cos(F)*J+A→X◢偏距后的X
”YZ=”:
Sin(F)*J+B→Y◢偏距后的Y
Goto1
LBI1:
”X1=”:
X+Sqrt(C2+K2)*Cos(E-F)/2→M◢
”Y1=”:
Y-Sqrt(C2+K2)*Sin(E-F)/2→L◢
”X2=”:
X-Sqrt(C2+K2)*Cos(E+F)/2→N◢
”Y2=”:
Y-Sqrt(C2+K2)*Sin(E+F)/2→O◢
”X3=”:
X+Sqrt(C2+K2)*Cos(E+F)/2→Q◢
”Y3=”:
Y+Sqrt(C2+K2)*Sin(E+F)/2→R◢
”X4=”:
X-Sqrt(C2+K2)*Cos(E-F)/2→S◢
”Y4=”:
Y+Sqrt(C2+K2)*Sin(E-F)/2→U◢
Goto5
注明:
A、B==中心坐标F==方位角C==长K==宽
P==输0无偏距输入其他为偏距计算J==偏距
以道路前进方向先左后右
此程序是本人在匝道施工时临时编辑的,不计斜交
竖曲线程序fx-5800
”P1=”:
?
A“P2=”?
B:
“JDK=“?
C:
“JDH=”?
F:
”R=”?
R:
”T=”?
T:
”I=”?
I(:
”HP=”?
G)
C-T→D:
C+T→E
Lbl0:
?
K:
(?
Z:
?
Y)
IfK〈D:
ThenA→N:
Goto1:
Ifend
IfK≥E:
ThenB→N:
Goto2:
Ifend
IfD≤K≤C:
ThenA→N:
Goto3:
Ifend
IfE≥K≥C:
ThenB→N:
Goto4:
Ifend
Lbl1:
“HS=”:
F-(C-K)*N→H◢Goto5
Lbl2:
“HS=”:
F+(K-C)*N→H◢Goto5
Lbl3:
“HS=”:
F-(C-K)N-I(K-D)2/(2R→H◢Goto5
Lbl4:
“HS=”:
F-(C-K)N-I(E-K)2/(2R→H◢
Goto5
Lbl5:
“L1=”:
H+ZG→L◢
“M1=”:
H-YG→M◢
注:
I——竖曲线为凹型时输入-1,为凸型时输入1;P1、P2——为前后坡
JDK——为变坡点里程JDH——为变坡点高程R——半径T——切线
K——输入待计算桩号HS——计算输出结果(蓝色为计算横坡)
竖曲线全线高程计算程序
Lbl1:
“H=”:
H:
Prog’’子程序’’
C-D→F:
Abs(RF/2)→T:
R(Abs(F)/F)→R
IfH≤B-T:
Then0→K:
ElseIfH≥B+T:
Then0→K:
D→CElseH-B+T→K:
IfEnd:
IfEnd
A-(B-H)C-K2/2R→G:
’’G=’’:
G◢
子程序
IFH≤第二竖曲线起点桩号:
Then第一竖曲线交点高程→A:
交点桩号→B:
前坡→C:
后坡→D:
曲线半径→R:
(Else):
IfEnd继续添加曲线要素
哈西高铁-交点法计算程序
主程序1
“CX”?
C:
”CY”?
F:
”HX”?
B:
”HY”?
P:
”ZH-X”?
E:
”ZH-Y”?
M:
”ZH-JD”?
G:
Prog’’A’’:
Prog”F”:
Prog”E”:
Prog”ZU”
子程序2
“C-DK”?
→V:
”H-DK”?
→D:
Prog’’A’’:
Prog”F”
E=0:
M=0:
G=0:
N=0:
V-K→S:
Prog’’B’’:
C→X:
F→Y
D-K→S:
Prog’’B’’:
B→X:
P→Y
Prog”E”:
Prog”ZU”
子程序A
“ZH-DK”?
K:
”A”?
A:
“R”?
R:
“L0”?
O:
“ZiY(1i2)”?
W:
Return
子程序F
4→Dimz
90O/(πR)→Z[1]:
O/2-O3/(240R2)→Z[2]:
O2/(24R)→Z[3]:
(R+Z[3])tan(A/2)+Z[2]→T:
πRA/180+O→L:
Return
子程序E
B→X:
P→Y:
Prog”FW”:
J→Z[4]:
Return
子程序FW
Pol((X-C),(Y-F)):
Return
子程序ZU
LblA:
“Zi!
iY(1i2i3)”?
N:
“DK”?
U
IfN=1:
Then“Z-M”?
H:
IfEnd:
IfN=3:
Then“Y-M”?
H:
IfEnd
U-K→S:
Prog’’B’’:
Prog”FW”
J-Z[4]→J:
IfJ<0:
ThenJ+360→J:
IfEnd:
IfJ≥360:
ThenJ-360→J:
IfEnd
IfN=1:
ThenGoto1:
IfEnd:
IfN=2:
ThenGoto2:
IfEnd:
IfN=3:
ThenGoto3:
IfEnd
Lbl1:
360°J/360→J:
“Z-=”?
J:
“Z-S=”?
I:
“Z-X=”?
X:
“Z-Y=”?
Y:
GotoA
Lbl2:
360°J/360→J:
“°°”?
J:
“S=”?
I:
“X=”?
X:
“Y=”?
Y:
GotoA
Lbl3:
360°J/360→J:
“Y-=”?
J:
“Y-S=”?
I:
“Y-X=”?
X:
“Y-Y=”?
Y:
GotoA
Next:
Return
子程序B
S≤0=>Goto9:
S>0AndS<O=>Goto5:
S≥0AndS≤(L-O)=>Goto6:
S>(L-O)AndS<L=>Goto7:
S≥L=>Goto8
Lbl5:
Prog’’D’’:
90S2/(πRO)→Z:
Prog’’C’’:
Goto9
Lbl6:
180(S-O)/(πR)+Z[1]→Z:
RSin(Z)+Z[2]→X:
R(1-Cos(Z))+Z[3]→Y:
Prog’’C’’:
Goto9
Lbl7:
L-S→S:
Prog’’D’’:
A-90S2/(πRO)→Z:
Prog’’C’’:
Q+90-A→Q:
T+TCos(A)-SSin(Q)→X:
TSin(A)-SCos(Q)→Y:
Prog’’C’’:
Goto9
Lbl8:
S-L→S:
T+(T+S)Cos(A)→X:
(T+S)Sin(A)→Y:
A→Z:
Prog’’C’’
Lbl9:
Prog’’XY’’:
Return
子程序D
S-S5/(40R2O2)→X:
S3/(6RO)→Y:
Return
子程序C
Sqrt(X2+Y2)→S:
tan-1(Y/X)→Q:
Return
子程序XY
IfS≤0:
ThenG→J:
G-90→I:
GotoB:
IfEnd
IfW=1:
ThenG→J:
G-Z-90→I:
ElseQ+G→J:
G+Z-90→I:
IfEnd
LblB:
IfN=3:
ThenI+180→I:
IfEnd
E+SCos(T)→X:
M+SSin(J)→Y
IfN=2:
ThenX+HCos(I)→X:
Y+HSin(I)→Y:
IfEnd:
Return
输入说明:
ZH-X直圆点x坐标ZH-Y直圆点y坐标
ZH-JD直圆点到交点方位角
ZH-DK直圆点的桩号
A曲线的偏角R曲线半径
L0缓和曲线长度
ZiY(1i2)左转1右转2
DK输入桩号
Zi!
iY(1i2i3)选择要计算的方向
Z-MY-M到左右的距离
对称曲线交点法计算程序
LbL0:
Cls
19→DimZ 变量赋值
“ZH-JD°=”?
F 输入交点坐标方位角
“JDK=”?
K 输入交点桩号
“X(JD)=”?
X 输入交点X坐标
“Y(JD)=”?
Y 输入交点Y坐标
“R(s)=”?
R 输入缓和曲线半径
“L(s)=”?
L 输入缓和曲线长
“ZJ°=”?
A 输入转角
“–L,+R=”?
I 输入路线转向:
左负右正 I赋值为1
L2÷(24×R)→P
L÷2-L3÷(240×R2)→Q
90×L÷(π×R)→B
(R+P)Tan(A÷2)+Q→T 计算切线长
R(A-2B)×π÷180→O 计算圆曲线长
R(A-2B)×π÷180+2L→C 计算曲线长
(R+P)÷cos(A÷2)-R→E 计算外距
2T-C→D 计算切曲差
K-T→Z[3] ZH点
Z[3]+L→Z[4] HY点
Z[4]+O→Z[5] YH点
Z[5]+L→Z[6] HZ点
Z[6]-C÷2→Z[7] QZ点
X+Tcos(F+180)→Z[16] ZH点X坐标
Y+TsIn(F+180)→Z[17] ZH点Y坐标
L-L3÷(90R2)→G
Z[16]+Gcos(F+30×I×L÷(π×R))→Z[8] HY点X坐标
Z[17]+Gsin(F+30×I×L÷(π×R))→Z[9] HY点Y坐标
Z[8]+2Rsin(45×O÷(πR))cos(F+I×45×O÷(π×R)+I×90×L÷(π×R))→Z[14] QZ点X坐标
Z[9]+2Rsin(45×O÷(πR))sin(F+I×45×O÷(π×R)+I×90×L÷(π×R))→Z[15] QZ点Y坐标
Z[8]+2Rsin(90×O÷(πR))cos(F+I×90×O÷(π×R)+I×90×L÷(π×R))→Z[10] YH点X坐标
Z[9]+2Rsin(90×O÷(πR))sin(F+I×90×O÷(π×R)+I×90×L÷(π×R))→Z[11] YH点Y坐标
X+Tcos(F+I×A)→Z[12] HZ点X坐标
Y+TsIn(F+I×A)→Z[13] HZ点Y坐标
LbL2
“XIANSHIQXYS0→YES,1→NO”→?
Z:
CLs 显示曲线要素?
输入:
0→YES,1→NO
IfZ=0:
ThenGoTo3
ELseIfZ=1:
ThenGoTo4:
IfEnd:
IfEnd
LbL3 <本段为曲线要素显示结果部分>
“QIEXIANC=”:
T▲
“QUXIANC=”:
C▲
“YQUXIAN=”:
O▲
“WAIJU=”:
E▲
“QIEQUCHA=”:
D▲
“ZHPEG=”:
Z[3]▲
“X(ZH)=”:
Z[16]▲
“Y(ZH)=”:
Z[17]▲
“HYPEG=”:
Z[4]▲
“X(HY)=”:
Z[8]▲
“Y(HY)=”:
Z[9]▲
“QZPEG=”:
Z[7]▲
“X(QZ)=”:
Z[14]▲
“Y(QZ)=”:
Z[15]▲
“YHPEG=”:
Z[5]▲
“X(YH)=”:
Z[10]▲
“Y(YH)=”:
Z[11]▲
“HZPEG=”:
Z[6]▲
“X(HZ)=”:
Z[12]▲
“Y(HZ)=”:
Z[13]▲
GoTo4
LbL4 <本段为待求点桩号计算部分>
“DK=”?
H 输入待求点桩号
IfH ThenGoToD: IfEnd IfH≥Z[3]AndH ThenGoToA ELseIfH≥Z[4]AndH ThenGoToB ELseIfH≥Z[5]AndH≤Z[6]: ThenGoToC: Ifend Ifend: Ifend IfH>Z[6]: ThenGoTo4: Ifend LbLA {待求点位于ZH到HY段上时} “PIAN JIAO -L,+R=”? V 输入边桩与路线中心线夹角: 左负右正±90 “PIAN JU=”? W 边桩与路中法线距离 H–Z[3]→J J–J5÷(90×R2×L2)→S Z[16]+Scos(F+30×I×J2÷(π×R×L)→M Z[17]+Ssin(F+30×I×J2÷(π×R×L)→N M+W×cos(F+90×I×J2÷(π×R×L+V)→Z[18] N+W×sin(F+90×I×J2÷(π×R×L+
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Fx5800 计算机 测量 程序
![提示](https://static.bingdoc.com/images/bang_tan.gif)