2024年2月21日发(作者：节半兰)
CAISO FX-5800计算程序（曲线五大桩里程、坐标）
一．ROAD-1
26→DimZ
“X(JD)”？X: “Y(JD)”？Y : “FWJ ” ？M
“ANGLE” ？O: ？R: “LS1”？B : “LS2” ？C : “K(JD)”？K
M+O→N
PrOg“ROAD-SUB1”
“T1=”：S ◢
“T2=”：T ◢
“L=”：L ◢
“LY=”：Q ◢
“E=”：E ◢
“K(ZH)=”：Z[1] ◢
“K(HY)=”：Z[2] ◢
“K(QZ)=”：Z[3] ◢
“K(YH)=”：Z[4] ◢
“K(HZ)=”：Z[5] ◢
“XS”？U: “YS”？V
LbI0
“KP”？P
PrOg“ROAD-SUB2”
“XP=”：F ◢
“YP=”：G ◢
“BP=”：Z DMS ◢
If U=0：ThenGoTo2:EISe p0I(F-U,G-V):If End
LbI1
If J＜0：ThenJ+360→J: If End
“A1=”：J DMS ◢
“D1=”：I ◢
LbI2
“D ANGLE”？H:If H=0：ThenGoTo0：If End：？D
“XB=”：F+DCos(Z+H) →Z[11] ◢
“YB=”：G+DSin(Z+H) →Z[12] ◢
If U=0: ThenGoTo2:EISe PoI(Z[11]-U,Z[12]-V): If End
GoTo1
二．ROAD-SUB1
If O＜0：Then-1→W: EISel→W: If End:WO→A
B^2÷24÷R- B^ (4) ÷2688÷R^ (3)+ B^ (6) ÷506880÷R^ (5) →Z[6]
C^2÷24÷R- C^ (4) ÷2688÷R^ (3)+ C^ (6) ÷506880÷R^ (5) →Z[7]
B÷2- B^ (3) ÷240÷R^2 + B^ (5) ÷34560÷R^ (4) →Z[8]
C÷2- C^ (3) ÷240÷R^2 + C^ (5) ÷34560÷R^ (4) →Z [9]
Z[8]+(R+Z[7]-(R+Z[6])Cos(A)) ÷Sin(A) →S
Z[9]+(R+Z[6]-(R+Z[7])Cos(A)) ÷Sin(A) →T
RA∏÷180+(B+C) ÷2→L
L-B-C→Q
(R+(Z[6]+Z[7]) ÷2) ÷Cos(A÷2)-R→E
K-S→Z[1]
Z[1]+B→Z[2]
Z[2]+Q÷2→Z[3]
Z[1]+L-C→Z[4]
Z[4]+C→Z[5]
三．ROAD-SUB2
X-SCos(M) →Z[21]:Y-Ssin(M) →Z[22]
X+TCos(N) →Z[23]:Y+Tsin(N) →Z[24]
If P＞Z[1]: ThenGoTo1：If End
Z[1]-P→L
X-(S+L)Cos(M) →F
Y-(S+L)Sin(M) →G
M→Z: GoTo5
LbI 1
If P＞Z[2]:Then GoTo2：If End
P-Z[1] →L:L→Z[14]:B→Z[15]:Prog“ROAD-SUB3”
Z[21]+Z[16]Cos(M)-WZ[17]Sin(M) →F
Z[22]+Z[16]Sin(M)+WZ[17]Cos(M) →G
M+90WL^2÷(BR∏) →Z
GoTo5
LbI 2
If P＞Z[4]: ThenGoTo3：If End
P-Z[1] →L:90(2L-B) ÷R÷∏→Z[13]
RSin(Z[13])+Z[8] →Z[16]:R(1-Cos(Z[13]))+Z[6] →Z[17]
Z[21]+Z[16]COS(M)-WZ[17]Sin(M) →F
Z[22]+Z[16]Sin(M)+WZ[17]Cos(M) →G
M+WZ[13] →Z
GoTo5
LbI 3
If P＞Z[5]: ThenGoTo4：If End
Z[5]-P→L：L→Z[14]:C→Z[15]:Prog“ROAD-SUB3”
Z[23]-Z[16]Cos(N)-WZ[17]Sin(N) →F
Z[24]-Z[16]Sin(N)+WZ[17]COs(N) →G
N-90WL^2÷(CR∏) →Z
GoTo5
LbI 4
P-Z[5] →L
X+(T+L)Cos(N) →F
Y+(T+L)Sin(N) →G
N→Z
LbI 5
If Z＜0 :ThenZ+360→Z:If End
四．ROAD-SUB3
If Z[14]=0:Then0→Z[16]:0→Z[17]:Else
Z[14]-Z[14]^(5)÷40÷(RZ[15])^2+Z[14]^(9)÷3456÷(RZ[15])^
(4)→Z[16]
Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]
^(11)÷42240÷(RZ[15])^(5)→Z[17]
IfEnd
说明：
X(JD) ？=交点X坐标 Y(JD) ？=交点Y坐标
FWJ？=切线方位角（ZH→JD）
ANGLE？=转向角（左负、右正）
R=曲线半径 LS1？=第一缓和曲线 LS2？=第二缓和曲线
K(JD) ？=交点里程 T1=第一切线长 T2=第二切线长
L=曲线全长 LY=圆曲线长 E=外矢距 K(ZH)=置缓里程
XS？=起算点X坐标 YS？=起算点Y坐标
KP？=待求点里程 D ANGLE？=左右边桩角度
D？=左右边桩距离（左负、右正）
～「 ～ (348915811)
2010-11-17 15:22:57
4850程序转换成5800的方法（老叶）
4850程序转换成5800的方法
好多同行有了4800或者4850的程序还要到处找5800的程序，不如自己搞定不求人，当然你想使用5800的其他功能，另当别论！
1、赋值命令变化：如 X=X＋R×cos（J－90V）变成X＋R×cos（J－90V）→X;N=1变成1→N
2、sin、cos等变化：如 sinA变成sin(A),cosA变成cos(A)
3、运算顺序变化：如 A=C^2/24B变成C^2/（24B）→A
4、条件格式变化:如 N＜8=>Goto 2△变成N＜8=>Goto 2或者If N＜8:Then Goto 2:If End
5、变量命令变化：如 {A}变成?A或者?→A
6、变量扩展命令变化:如 Defm 10变成10 →DimZ
7、在子程序末尾一定要加上 Return
你只要把4850的程序按以上进行变换，在5800上完全可以正常使用。
2010-11-18
～「 ～ (348915811)
2010-11-18 12:54:58
RYDBX S 任意多边形面积（坐标法）fx-5800p计算器程序
0→S :?A ：?B ：?C ：?D ↙
Lbl 1: “X”?→X : “Y” ?→Y ↙
0→I:0→J : P0l(C-A , D-B) : I→G : J→H :
P0l(X-A , Y-B) : X→C : Y→D : I→K : J→N :
“M=”:0.5GKsin(Abs(N-H))→M ↙
“S=”:S+M→S ▲ 平方米
“U=”:S÷666.667→U ▲ 亩
Goto 1
说明：点位必须按顺序输入成封闭形图型！
A B C D 为第一，二两点坐标（常量），X Y„„为第三，四，五，六点坐标（变量）。
例：X1=10.000 , Y1=20.000
X2=500.000 , Y2=600.000
X3=700.000 , Y3=400.000 三角形面积 107000M2 160.50亩
X4=800.000 , Y4=300.000 四边形面积 160500M2 240.75亩
X5=650.000 , Y5=100.000 五边形面积 218500M2 327.75亩
X6=550.000 , Y6=50.000 六边形面积 230500M2 345.75亩
陕D-测量-路桥 (1339309466)
2010-11-18 19:46:21
卡西欧5800P型计算器道路平面坐标计算程序
文件名：PMCX
(E-D)÷Abs(G-F)→P: Abs(L-F)→Q: P×Q→I: C+（I+2D）×Q×90÷∏→J:
“FV＝”:J►DMS◢↲
0→U: 0→V: 0→W: 0→Z: 6→T: T→S ↲
LbI0↲
U+Cos(C+(I×(2S-1)÷(2T)+2D)×（Q÷2）×(2S-1)÷（2T）×180÷∏)→U
↲
V+Sin(C+(I×(2S-1)÷(2T)+2D)×（Q÷2）×(2S-1)÷（2T）×180÷∏)→V
↲
DszS↲
Goto0↲
T-1→S↲
LbI1↲
W+Cos(C+(IS÷T+2D)×(Q÷2)×(S÷T)×180÷∏)→W ↲
Z+Sin(C+(IS÷T+2D)×(Q÷2)×(S÷T)×180÷∏)→Z↲
DszS↲
Goto1↲
A+Q÷(6T)×(Cos(C)+4U+2W+Cos(J))→X：“XO=”:X◢
B+Q÷(6T) ×(Sin(C)+4V+2Z+Sin(J))→Y：“YO=”:Y◢
X+OCos(J+H+180)→N:“XL=”:N◢
Y+OSin(J+H+180)→E:“YL=”:E◢
X+RCos(J+H)→U:“XR”: U◢
Y+RSin(J+H)→V:“YR”: V◢
符号含意：
O—路线左侧横断水平距离；
H—路线右角：
R—路线右侧横断水平距离；
E—线元终点曲率1/R；左偏取“-”：右偏取“+”
D—线元起点曲率1/R；左偏取“-”：右偏取“+”遇ZH：HZ：GQ点时输入０
G—线元终点里程；
F—线元起点里程；
L—线元任意点里程；
C—线元起点切线方位角；
A—线元起点X坐标；
B—线元起点Y坐标；
说明：1.本程序支持直线；圆曲线；缓和曲线；回旋曲线等任意线型。
2. 编辑一个主程序（数据库）。
3. 输入方法“积木法”。即按标段内线型的不同依次逐个分段写入。
4.主要程序语言; Prog跨程序转换(从一个程序转换到另一个程序)；
Goto：LbI程序内转换； ：并列关系; ◢ 结束符号，显示结果;⊿结束符号，到此结束。
5. “→”赋予；“If”如果；“Then”那么；“EIse”否责； “IfEnd”如果结束；“Dsz”减量；“Return”返回。
数据库：文件名：ZBJS
LbI0: “ZKI=” ？L :“ZB＝”？O:“YJ＝”？H:“YB＝”？R↲
If L≤（线元终点桩号）：Then （线元起点X坐标）→A；（线元起点Y坐标）→B：（线元起点方位角）→C:（线元起点曲率）→D: （线元终点曲率）→E: （线元起 点桩号）→F: （线元终点桩号）→G：EIse Goto1：IfEnd： Prog“PMCX” ↲
Goto0↲
以后依次类推～～～
2024年2月21日发(作者：节半兰)
CAISO FX-5800计算程序（曲线五大桩里程、坐标）
一．ROAD-1
26→DimZ
“X(JD)”？X: “Y(JD)”？Y : “FWJ ” ？M
“ANGLE” ？O: ？R: “LS1”？B : “LS2” ？C : “K(JD)”？K
M+O→N
PrOg“ROAD-SUB1”
“T1=”：S ◢
“T2=”：T ◢
“L=”：L ◢
“LY=”：Q ◢
“E=”：E ◢
“K(ZH)=”：Z[1] ◢
“K(HY)=”：Z[2] ◢
“K(QZ)=”：Z[3] ◢
“K(YH)=”：Z[4] ◢
“K(HZ)=”：Z[5] ◢
“XS”？U: “YS”？V
LbI0
“KP”？P
PrOg“ROAD-SUB2”
“XP=”：F ◢
“YP=”：G ◢
“BP=”：Z DMS ◢
If U=0：ThenGoTo2:EISe p0I(F-U,G-V):If End
LbI1
If J＜0：ThenJ+360→J: If End
“A1=”：J DMS ◢
“D1=”：I ◢
LbI2
“D ANGLE”？H:If H=0：ThenGoTo0：If End：？D
“XB=”：F+DCos(Z+H) →Z[11] ◢
“YB=”：G+DSin(Z+H) →Z[12] ◢
If U=0: ThenGoTo2:EISe PoI(Z[11]-U,Z[12]-V): If End
GoTo1
二．ROAD-SUB1
If O＜0：Then-1→W: EISel→W: If End:WO→A
B^2÷24÷R- B^ (4) ÷2688÷R^ (3)+ B^ (6) ÷506880÷R^ (5) →Z[6]
C^2÷24÷R- C^ (4) ÷2688÷R^ (3)+ C^ (6) ÷506880÷R^ (5) →Z[7]
B÷2- B^ (3) ÷240÷R^2 + B^ (5) ÷34560÷R^ (4) →Z[8]
C÷2- C^ (3) ÷240÷R^2 + C^ (5) ÷34560÷R^ (4) →Z [9]
Z[8]+(R+Z[7]-(R+Z[6])Cos(A)) ÷Sin(A) →S
Z[9]+(R+Z[6]-(R+Z[7])Cos(A)) ÷Sin(A) →T
RA∏÷180+(B+C) ÷2→L
L-B-C→Q
(R+(Z[6]+Z[7]) ÷2) ÷Cos(A÷2)-R→E
K-S→Z[1]
Z[1]+B→Z[2]
Z[2]+Q÷2→Z[3]
Z[1]+L-C→Z[4]
Z[4]+C→Z[5]
三．ROAD-SUB2
X-SCos(M) →Z[21]:Y-Ssin(M) →Z[22]
X+TCos(N) →Z[23]:Y+Tsin(N) →Z[24]
If P＞Z[1]: ThenGoTo1：If End
Z[1]-P→L
X-(S+L)Cos(M) →F
Y-(S+L)Sin(M) →G
M→Z: GoTo5
LbI 1
If P＞Z[2]:Then GoTo2：If End
P-Z[1] →L:L→Z[14]:B→Z[15]:Prog“ROAD-SUB3”
Z[21]+Z[16]Cos(M)-WZ[17]Sin(M) →F
Z[22]+Z[16]Sin(M)+WZ[17]Cos(M) →G
M+90WL^2÷(BR∏) →Z
GoTo5
LbI 2
If P＞Z[4]: ThenGoTo3：If End
P-Z[1] →L:90(2L-B) ÷R÷∏→Z[13]
RSin(Z[13])+Z[8] →Z[16]:R(1-Cos(Z[13]))+Z[6] →Z[17]
Z[21]+Z[16]COS(M)-WZ[17]Sin(M) →F
Z[22]+Z[16]Sin(M)+WZ[17]Cos(M) →G
M+WZ[13] →Z
GoTo5
LbI 3
If P＞Z[5]: ThenGoTo4：If End
Z[5]-P→L：L→Z[14]:C→Z[15]:Prog“ROAD-SUB3”
Z[23]-Z[16]Cos(N)-WZ[17]Sin(N) →F
Z[24]-Z[16]Sin(N)+WZ[17]COs(N) →G
N-90WL^2÷(CR∏) →Z
GoTo5
LbI 4
P-Z[5] →L
X+(T+L)Cos(N) →F
Y+(T+L)Sin(N) →G
N→Z
LbI 5
If Z＜0 :ThenZ+360→Z:If End
四．ROAD-SUB3
If Z[14]=0:Then0→Z[16]:0→Z[17]:Else
Z[14]-Z[14]^(5)÷40÷(RZ[15])^2+Z[14]^(9)÷3456÷(RZ[15])^
(4)→Z[16]
Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]
^(11)÷42240÷(RZ[15])^(5)→Z[17]
IfEnd
说明：
X(JD) ？=交点X坐标 Y(JD) ？=交点Y坐标
FWJ？=切线方位角（ZH→JD）
ANGLE？=转向角（左负、右正）
R=曲线半径 LS1？=第一缓和曲线 LS2？=第二缓和曲线
K(JD) ？=交点里程 T1=第一切线长 T2=第二切线长
L=曲线全长 LY=圆曲线长 E=外矢距 K(ZH)=置缓里程
XS？=起算点X坐标 YS？=起算点Y坐标
KP？=待求点里程 D ANGLE？=左右边桩角度
D？=左右边桩距离（左负、右正）
～「 ～ (348915811)
2010-11-17 15:22:57
4850程序转换成5800的方法（老叶）
4850程序转换成5800的方法
好多同行有了4800或者4850的程序还要到处找5800的程序，不如自己搞定不求人，当然你想使用5800的其他功能，另当别论！
1、赋值命令变化：如 X=X＋R×cos（J－90V）变成X＋R×cos（J－90V）→X;N=1变成1→N
2、sin、cos等变化：如 sinA变成sin(A),cosA变成cos(A)
3、运算顺序变化：如 A=C^2/24B变成C^2/（24B）→A
4、条件格式变化:如 N＜8=>Goto 2△变成N＜8=>Goto 2或者If N＜8:Then Goto 2:If End
5、变量命令变化：如 {A}变成?A或者?→A
6、变量扩展命令变化:如 Defm 10变成10 →DimZ
7、在子程序末尾一定要加上 Return
你只要把4850的程序按以上进行变换，在5800上完全可以正常使用。
2010-11-18
～「 ～ (348915811)
2010-11-18 12:54:58
RYDBX S 任意多边形面积（坐标法）fx-5800p计算器程序
0→S :?A ：?B ：?C ：?D ↙
Lbl 1: “X”?→X : “Y” ?→Y ↙
0→I:0→J : P0l(C-A , D-B) : I→G : J→H :
P0l(X-A , Y-B) : X→C : Y→D : I→K : J→N :
“M=”:0.5GKsin(Abs(N-H))→M ↙
“S=”:S+M→S ▲ 平方米
“U=”:S÷666.667→U ▲ 亩
Goto 1
说明：点位必须按顺序输入成封闭形图型！
A B C D 为第一，二两点坐标（常量），X Y„„为第三，四，五，六点坐标（变量）。
例：X1=10.000 , Y1=20.000
X2=500.000 , Y2=600.000
X3=700.000 , Y3=400.000 三角形面积 107000M2 160.50亩
X4=800.000 , Y4=300.000 四边形面积 160500M2 240.75亩
X5=650.000 , Y5=100.000 五边形面积 218500M2 327.75亩
X6=550.000 , Y6=50.000 六边形面积 230500M2 345.75亩
陕D-测量-路桥 (1339309466)
2010-11-18 19:46:21
卡西欧5800P型计算器道路平面坐标计算程序
文件名：PMCX
(E-D)÷Abs(G-F)→P: Abs(L-F)→Q: P×Q→I: C+（I+2D）×Q×90÷∏→J:
“FV＝”:J►DMS◢↲
0→U: 0→V: 0→W: 0→Z: 6→T: T→S ↲
LbI0↲
U+Cos(C+(I×(2S-1)÷(2T)+2D)×（Q÷2）×(2S-1)÷（2T）×180÷∏)→U
↲
V+Sin(C+(I×(2S-1)÷(2T)+2D)×（Q÷2）×(2S-1)÷（2T）×180÷∏)→V
↲
DszS↲
Goto0↲
T-1→S↲
LbI1↲
W+Cos(C+(IS÷T+2D)×(Q÷2)×(S÷T)×180÷∏)→W ↲
Z+Sin(C+(IS÷T+2D)×(Q÷2)×(S÷T)×180÷∏)→Z↲
DszS↲
Goto1↲
A+Q÷(6T)×(Cos(C)+4U+2W+Cos(J))→X：“XO=”:X◢
B+Q÷(6T) ×(Sin(C)+4V+2Z+Sin(J))→Y：“YO=”:Y◢
X+OCos(J+H+180)→N:“XL=”:N◢
Y+OSin(J+H+180)→E:“YL=”:E◢
X+RCos(J+H)→U:“XR”: U◢
Y+RSin(J+H)→V:“YR”: V◢
符号含意：
O—路线左侧横断水平距离；
H—路线右角：
R—路线右侧横断水平距离；
E—线元终点曲率1/R；左偏取“-”：右偏取“+”
D—线元起点曲率1/R；左偏取“-”：右偏取“+”遇ZH：HZ：GQ点时输入０
G—线元终点里程；
F—线元起点里程；
L—线元任意点里程；
C—线元起点切线方位角；
A—线元起点X坐标；
B—线元起点Y坐标；
说明：1.本程序支持直线；圆曲线；缓和曲线；回旋曲线等任意线型。
2. 编辑一个主程序（数据库）。
3. 输入方法“积木法”。即按标段内线型的不同依次逐个分段写入。
4.主要程序语言; Prog跨程序转换(从一个程序转换到另一个程序)；
Goto：LbI程序内转换； ：并列关系; ◢ 结束符号，显示结果;⊿结束符号，到此结束。
5. “→”赋予；“If”如果；“Then”那么；“EIse”否责； “IfEnd”如果结束；“Dsz”减量；“Return”返回。
数据库：文件名：ZBJS
LbI0: “ZKI=” ？L :“ZB＝”？O:“YJ＝”？H:“YB＝”？R↲
If L≤（线元终点桩号）：Then （线元起点X坐标）→A；（线元起点Y坐标）→B：（线元起点方位角）→C:（线元起点曲率）→D: （线元终点曲率）→E: （线元起 点桩号）→F: （线元终点桩号）→G：EIse Goto1：IfEnd： Prog“PMCX” ↲
Goto0↲
以后依次类推～～～