五大桩计算程序

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亩

∙ (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↲

以后依次类推～～～