求卡西欧fx-5800计算器匝道曲线坐标计算程序

Question

如题所述

Answer 1

卡西欧fx-5800p计算器匝道计算程序：
5800计算器线路、匝道中边桩万能程序
LB1
1↙
Cls
:
Fix
4
:
Deg
:"XZJ="?R◢
(输入置镜点X）
"YZJ="?S◢
(输入置镜点Y）
LB1
2↙
"K="?K◢
(输入计算点里程）
If
K<第一线元终点里程
：THEN
线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto
3:IfEnd↙
………………………………（线元数据分段输入）
LB1
3↙
W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E+(X
/C+HX^2)×180/π→V:V<0=>V+360→V:"QXJ=":V→DMS◢(计算点切线方位角）
A+∫(Cos(E+(X/C+HX^2)*180/π，0，X)→Z
:
B+∫(Sin(E+(X/C+HX^2)*180/π，0，X)→Y
:
"XI=":Z◢(计算点中心X）
"YI=":Y◢(计算点中心Y）
"PJ="?P◢(输入计算点边桩偏角左－右＋）
"PD="?Q◢(输入计算点边桩偏距）
Rec(Q,V+P):Z+I→Z
:Y+J→Y:
"XP=":Z◢(计算点边桩X）
"YP=":Y◢(计算点边桩Y）
Pol(Z-R,Y-S):J<0=>J+360→J:
"FYJ=":J→DMS◢(放样方位角）
"FYD=":I◢(放样距离）
Goto
2↙
主程序
匝道坐标正反算：
程序名称：ZDZBZFS
LB1
A↙
Cls
:
Fix
4
:
10→Dim
Z
:"0=ZS,1=FS"?Z
↙
If
Z=0:Then
Goto
B:IfEnd↙(Z=0进入里程点坐标正算）
If
Z=1:Then
Prog"FSLCBZ
1":
Goto
A:IfEnd↙(Z=1进入反算里程边桩）
Lb1
B
↙
“K=”?K
：（计算里程）
Prog"SJK2
":Prog”
ZDZBFY1”
:Goto
A↙
子程序
匝道坐标正算：
W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→Z[1]:E+(
Z[1]
/C+H
Z[1]2)×180/π→V:V<0=>V+360→V:
A+∫(Cos(E+(
Z[1]/C+H
Z[1]2)*180/π，0，Z[1])→Z[3]
:
B+∫(Sin(E+(
Z[1]/C+H
Z[1]2)*180/π，0，Z[1])→Z[4]:
Return↙