5800缓和曲线程序

合集下载

卡西欧5800直线缓和曲线程序(1)

卡西欧5800直线、缓和曲线程序

1. 主程序：TYQXJS

″1.SZ=>XY″：″2.XY=>SZ″：″N″？N：″XA″？U：″YA″？V：″DKA″？O：″CA″？G：″LS″？H：″RA″？P:″RB″？R：″Q″？Q： 1÷P→C:（P-R）÷（2HPR）→D： 180÷π→E：If N=1: Then Goto1:Else Goto 2:ifEnd

LBI 1: ″DKI″?S: ″D″?Z:Abs(S-O)→W:Prog″SUB1″: ″XS″:X⊿

″YS″:Y⊿

″FS″:F-90⊿

Goto 1

LbI 2：″X″?X: ″Y″?Y：X→I:Y→J：Prog″SUB2″：O+W→S:″S″:S⊿

″Z″:Z⊿

Goto 2

2. 子程序：SUB1

0.1739274226→A:0.3260725774→B:0.0694318442→

K:0.3300094782→L:1-L→F:1-K→

M:U+(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+ FWD))+Acos(G+QEMW(C+MWD))→

X:Y+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)cosT-(X-U)sin(T))→W:0→Z： Lbl 0：Prog″SUB1″:T +QEW(C+WD)→L :(J-Y)cos(L)-(I-X)sin(L)→Z:If

5800平曲线和竖曲线计算程序。以验证过

5800平曲线程序

1.主程序

Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙

1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1：Goto2：↙

Lbl 1:? Z：Abs(S-O) →W：Prog "SUB1"："XS="：X◢

"YS="：Y◢F-90→F：“FS=”：F▲DMS◢

D:X+DCos(F)→X: "X=":X◢

Y+DSin(F)→Y: "Y="：Y◢

Goto4↙

Lbl 2：？X：？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙

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))+B cos(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+QE MW(C+MW D))) →Y：

G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y

2. 反算子程序(SUB2)

G-90→T：Abs((Y-V)cosT-(X-U)sinT) →W：0→Z：Lbl 0：Prog "SUB1"：

5800交点正反算坐标(可计算不对称缓和曲线)

1、主程序

程序名：1XY-KM

LbI 0:5→DimZ：Norm 2:1→A：＂A:X,Y=1，KM,D=2＂?A:

A=1=>Goto 1:A=2=>Goto 2:

LbI 1：Prog ＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ＂?B:B→Z [1]：LbI B:1→F:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X :Prog＂KM＂:?D: Prog "Z":I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ：＂Ｙ＝＂：Locate 6,4,Ｙ：Prog＂JS＂:Goto B LbI 2：LbI A:Prog＂QX＂:90→Z[1]：LbI C:2→F:＂KM＂?Z:Z = -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X :Prog＂KM＂“X0”? X:”Y0”?Y:?D:Prog ＂ZX＂: Fix 3:＂ＫＭ＝＂：Locate 6, 4,Ｚ：＂Ｄ＝＂：Locate 6,4,Ｄ：Goto C:LbI X:Mat F◢Goto 0

2. 交点法正算子程序(Z)

程序名：Z

H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R）÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R ∧(3)) ÷Sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Ab s(P) →W:0→M:H→C:

卡西欧5800缓和曲线坐标计算程序

缓和曲线段坐标计算HHQXZBJS

第一缓和曲线段任意里程位各点的坐标计算。

程序如下:

曲线起点里程→Q:

曲线起点X坐标→E:

曲线起点Y坐标→F:

曲线起点前进切线方位角→T:

圆曲线半径→R:

缓和曲线长度→U:

曲线转向方向(左转取-1,右转取+1)→P:

Lbl 0:

5→DimZ:

“KM=”?L: 待求点里程

“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1

“PJ=”?S: 待求点到线路设计中心的平距

Abs(L-Q)→Z[1]:

Pol(Z[1]-Z[1]^(5)÷(40R²U²)+Z[1]^(9)÷(3456(RU)^(4)), Z[1]^(3)÷(6RU)-Z[1]^(7)÷(336(RU)^(3))+Z[1]^(11)÷(42240(RU)^(5))):

J→Z[2]:

Rec(I,T+Z[2]P):

E+I→Z[3]:

F+J→Z[4]:

T+Z[2]P+60PZ[1]²÷(RUπ)+90→Z[5]:

If K=1:

Then Rec(S,Z[5]):

Else Rec(S,Z[5]+180):

IfEnd:

Z[3]+I→X:

Z[4]+J→Y:

Cls:

Fix 3:

“Xp=”: 计算的X坐标

“Yp=”: 计算的Y坐标

Locate 7,1,X: X坐标显示在第一行

Locate 7,2,Y◢Y坐标显示在第二行

Goto 0

注解:

如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl 0和Goto 0删除掉。

这里是按第一缓和曲线编制的,在应用于第二缓和曲线时,起算点和转向方向都要改变,同时原路线方向上的左侧变成了右侧,原路线方向上的右侧变成了左侧,等等,这点要注意。

卡西欧fx5800计算器缓和曲线编程

1fx－5800P计算器编程

缓和曲线程序

14→DimZ ：“ZHK”：?K：?R ：? A：?L：? T：? F：“Y＋1，Z－1”：?P：“JDX”：?Q：“JDY”：?W：180÷（πR）→Z：0.5L－L^3÷(240R2)→Z[8]：“LZ”：ZL÷2→B：A÷Z＋L→Z[13]◢

“ZHK=”：K◢

“HYK=”：K+L→Z[1]◢

“YHK=”：K+ Z[13] －L→Z[2]◢

“HZK=”：K+ Z[13]→Z[3]◢

“ZHX=”：Q+Tcos(F+180)→U◢

“ZHY=”：W+Tsin(F+180)→V◢

“HZX=”：Q+ Tcos(F+PA)→Z[6]◢

“HZY=”：W+ Tsin (F+PA)→Z[7]◢

Lb1 0：“CDZH”：?M

If M≤K：Then Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If End

Lb1 1：M－K→G：√（（G－G^(5)÷(40L2R2)＋G^(9)÷(3456R^(4)L^(4)))2＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3)) ＋G^(11)÷(42240R^(5)L^(5)))2）→D F＋PZG2÷(6L)→C：F＋PBG2÷L2→H：Goto 3

Lb1 2：M－Z[1]→G：R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→D

CASIO5800公路卵型曲线及标准曲线和高程计算一体化公式(附件)

CASIO5800公路卵型曲线、直线及标准曲线计算公式（积木法，建立数据库的计算公式,本公式可以与以下

高程计算公式连贯使用）

1、FQX(计算运行程序)

10→DimZ

“K=0,1”？→Z[3]

Lb1 1

C1s

“E”？E:“KC=”？S：If E=1：Then Prog“A”：IfEnd ↵

If E=2:Then Prog“Z1”:Goto 2: IfEnd :If E=3:Then Prog “Z2”: Goto 2: IfEnd : If E=4:Then Prog “Z3”: Goto 2: IfEnd : If E=5:Then Prog “Z4”: Goto 2: IfEnd : If E=6:Then Prog “Z5”: Goto 2: IfEnd :If E=7:Then Prog “Z6”: Goto 2: IfEnd : If E=8:Then Prog “Z7”: Goto 2: IfEnd :If E=9:Then Prog “Z8”: Goto 2: IfEnd : If E=10:Then Prog “Z9”:Goto 2: IfEnd:Lb1 2: Prog“FJS”: “D=0”?D: If D＞0: Then “PIANJIA O”?T:X+Abs(D)cos(F+T) →X:Y+Abs(D)sin(F+T) →Y: IfEnd↵ C1s

“KC=”：Locate 5,1,S↵

“X=”：Locate 5,2,X↵

“Y=”：Locate 5,3,Y◢↵

Z[3]=1⇒Prog“GCJS”↵

CASIO5800程序编辑说明

CASIO 5800程序编辑说明

CASIO-5800P计算器程序编辑说明

一(程序名称:直线坐标计算——Z-X-Z

程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q

2. LbI 0

3. “N=”,N : “S=”,S : ”E=”,E

4. A + N cos(Q) ?D : B + N sin(Q) ?F

5. D + S cos(Q + E) ?

6. F + S sin(Q + E) ?

7. Goto 0

内容说明:A 、 B——以知点即起算点的x,y坐标值;

Q——直线段方位角;

N——直线段距离;

S——边桩距离;

E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ

程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:

“F=”,F : “N=”,N : “U=”,U

2. R tan(N?2) ? T

3. Q–T ? A

4. W+T cos(F+180) ?M : K+T sin(F+180) ?G

5. LbI 0

6. “H=” ,H : ” S=” ?,S : “E=” ,E

7. Abs(H - A) ? D

8. 180 D?(Rπ) ?О

9. R sin(О) ?C

10. R (1-cos(О)) ?D

11. M+C cos(F) ? I : G+C sin(F) ? J

12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y

13. X+S cos(F+ОU+E) ?

CASIO+FX-5800P+综合曲线坐标计算程序(正确)2010.1.17

圆曲线坐标计算

交点桩号YK20+734.498；N=2889769.961；E=527002.305 ；

方位角314'24'58.3' 转角27'19'31.4' 切线长度T1= 814.345 ；T2= 814.347 ；

半径R=3000 ；曲线长度LS1：170；LC=1260.752；LS2= 170 曲线总长=1600.752 求ZH,HY,QZ,YH,HZ以及圆心点的坐标。

1、A？输入转(偏)角；左转为负，右转为正。转角27'19'31.4'

2、R？输入曲线半径。3000

3、LS？输入缓和曲线长度。170

4、JD（DK）？输入交点里程桩号。20734.498

结果显示T = 814.347 W=87.776 L=1600.754 ZH=19920.151;

HY=20090.151; QZ=20720.528; YH=21350.905; HZ=21520.905

5、X（JD）？输入本交点X坐标。2889769.961

6、Y（JD）？输入本交点Y坐标。527002.305

7、FWJ？输入直缓(ZH)点切线方位角。314'24'58.3'

8、J？输入0程序计算中桩，输入1程序计算边桩。0

9、Z？输入里程桩号。ZH=19920.151

FWJ:314.416 X=2889200.028 Y= 527583.973完

（FWJ:314.416=314'24'57.6' ）

ZH(2889200.026 527583.975) HY(2889320.140 527463. 682)

QZ(2889816.373 527076.808) YH(2890382.383 526801.950)

卡西欧5800计算器坐标正反算程序

M = (1.0/Re-1.0/Rs)/Ls;

x=∫｛cos(Ta + L/Rs + 0.5*M *L*L)，0，L｝;

y=∫｛sin(Ta +L/Rs + 0.5*M *L*L)，0，L｝;

a(i)= Ta +L/Rs + 0.5*M *L*L

Rs:缓和曲线起点半径

Re:缓和曲线止点半径

Rs，Re （NE坐标系下，右偏为正，左偏为负）

Ta:缓和曲线起点的真北方位角

Ls:不完整缓和曲线长度。

此公式为缓和曲线在坐标系下任意位置的通用积分公式，能完全适应缓和曲线左偏、右偏、Rs >Re 、Rs <="">

Fx-5800计算机程序

QXJS-000 主程序

Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:?Q:?S:Prog“QXJS-SUB0”↙

Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙

Lbl 1:?Z:？G：Prog“QXJS-SUB1”:“N=”:N◢“E=”:E◢“F=”:F◢Goto4↙

Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “S=”:S◢: “Z=”:Z◢: Goto4↙

QXJS-SUB0 数据库子程序

Goto1↙同时保存多个曲线时的指针

Lbl 1

IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙

SASIO 5800 直缓圆缓直,坐标计算程序

SASIO 5800 直缓圆缓直、中边桩坐标计算程序（程序名：GLCS）

主程序：GLCS:

“X0=”? U：“Y0=”? V：“XJ=”? M：“YJ=”? N：“JD=”? Z：“R=”? R：“A(L-,R+)=”? A：“LS1=”?

C：“LS2=”? D：“W0=”? W

Prog“S0”

If A＞0：Then 2→T：Else 1→T：If End

LbI 0：Cls：“LI=”? K：“B(L-,R+)=”?B

If k＜(Z-P)：Then Goto 1：If End

If k≥(Z-P) And K＜(Z-P+C+L÷2)：Then Goto 2：If End

If k≥(Z-P+C+L÷2)And k＜(Z-P+C+L+D)：Then Goto 3：Eise Goto 4：If End

Lbl 1：180+W→J

Z-K→S

-tan-1(B÷S) →o

Goto 7

Lbl 2：1 →I：W→J

K-Z+P→S

Goto 5

Lbl 3：2→I：W+A→J

(Z-P+C+L+D)-K→S

Goto 6

Lbl 4：W+A→J

K-(Z-P+C+L+D)+Q→S

tan-1(B÷S) →o

Goto 7

Lbl 5：Prog“S1”

X-(-1)^（T）×Bsin（o）→Z「1」

Y+(-1)^（T）×Bcos（o）→Z「2」

Cls：“X=”：M+(-1) ^(I)×（P-Z「1」）Cos（J）-（-1）^（T）×Z「2」sin（J）→X⊿

“Y=”：N+（-1）^（I）×（P-Z「1」）sin（J）+（-1）^（T）×Z「2」Cos（J）→Y⊿Prog“S3”

5800不等缓和曲线程序

1.10→Dimz换行【【扩展变量Z为10个】】

2.“JDKM”？→A：【【交点桩号】】

3.“JDX”？→B：【【交点X坐标】】

4.“JDY”？→C：【【交点Y坐标】】

5.“FWJ”？→D：【【起点方位角】】

6.“PJ”？→V：【【交点偏角，左偏输入负值；右

偏输入正值】】

7.“R”？→R：【【圆曲线半径】】

8.“LS1”？→E：【【第一缓和曲线长度】】

9.“LS2”？→F换行【【第二缓和曲线长度】】

10.Lbi 0换行【【标签0】】

11.E/2-Eˇ（3）/（240R2）→Z[1]：【【第一缓和曲线切垂

足】】

12.F/2-Fˇ（3）/（240R2）→Z[2]：【【第二缓和曲线切垂

足】】

13.E2/（24R）-Eˇ（4）/（2688Rˇ（3））→Z[3]：【【第

一缓和曲线圆曲内移值】】

14.F2/（24R）-Fˇ（4）/（2688Rˇ（3））→Z[4]：【【第

二缓和曲线圆曲内移值】】

15.Z[1]+（R+Z[3]）/tan(180-Abs(V))+ （R+Z[4]）

/sin(180-Abs(V)) →Z[5]：【【曲线一切线长】】

16.Z[2]+（R+Z[4]）/tan(180-Abs(V))+ （R+Z[3]）

/sin(180-Abs(V)) →Z[6]：【【曲线二切线长】】

17.Abs(V)*Rπ/180-(E+F)/2→L：【【圆曲线长度】】

18.B-Z[5]*cos(D) →X：【【直缓点X坐标】】

19.C-Z[5]*sin(D) →Y：【【直缓点Y坐标】】

缓和曲线程序-5800

正算主程序(ZS)

Lb1 0

FIX4：?S：?Z：Prog “PM-SJ”：Abs(S-O) →W：Prog "SUB1"："XS="：X◢

"YS="：Y◢F-90→F(需要时可以让他显示，不要时不必输入)：Prog“SQX-SJ”: Prog“SQX”：“H=”：H◢

Goto 0

S代表正算桩号

Z代表偏距左负右正

XS所求点的X坐标

YS所求点的Y坐标

H所求桩号设计高程

反算主程序(FS)

Lb1 0

FIX4：?X：?Y：Prog “PM-SJ”：X→I:Y→J: Prog "SUB2"："S="：O+W→S◢

"Z="：Z◢

Prog“SQX-SJ”: Prog“SQX”：“H=”：H◢

Goto 0

X测点的X坐标

Y测点的Y坐标

S测点的桩号

Z测点的偏距左负右正

H测点所在桩号的设计高程

正算子程序(SUB1)：

1÷P→C: (P-R)÷(2HPR) →D：180÷π→E：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+ZcosF→X：Y+ZsinF→Y

卡西欧5800曲线坐标计算程序-正确

CASIO4800改5800p坐标计算程序-角度以度为单位

1、该程序适用于计算器CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。

2、A？输入转角：左转为负，右转为正

3、R？输入圆曲线半径

4、LS？输入缓和曲线长度

5、JD？输入交点桩号

6、J？输入0程序计算中桩，输入1程序计算边桩

7、N？E？输入交点X、Y坐标

8、FW 待求点切线方位角

9、当计算交角为60°时，则公式改为（U+60），（U-120）

1 ？A：？R：“LS”？C：“JD”？D

2 C∧2/24/R-C∧4/2688/R∧3→P 求缓和曲线内移、值

3 C/2-C∧3/240/R∧2→Q 切距差

4 90C/兀/R→B 缓和曲线角度β0

5 (R+P)tan(AbsA/2)+Q→T 切线长

6 (R+P)/cos(A/2)-R→W 外矢距

7 ((AbsA)-2B)兀R/180+2C→L 缓和曲线长

8 D-T→G 直缓点里程

9 G+C→H 缓圆点里程

10 G+L/2→I 曲中点里程

11 G+L-C→K 圆缓点里程

12 G+L→M 缓直点里程

13 ？N：？E：？F：？Ｊf为方位角

14 If A＜0：Then -1→S：Else 1→S：IfEnd

15 F+A/2+90S→U

16 W+R→V

17 N+VcosU→B

18 E+VsinU→O

19 Lbl 1

20 ？Z

21 If Z≤G：Then T+G-Z→L

22 F+180→V

23 F→U

24 Goto 2

25 IfEnd

26 If Z≤H：Then Z-G→L

5800直线、圆曲线缓和曲线、坐标计算程序

5800直线、圆曲线缓和曲线、坐标计算CASIO fx—5800计算器工程测量与公路测量程序

1、坐标正算

＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J

X+ICos(J)→U:Y+ISin(J)→V

＂X=″:U （待求点的X坐标）

＂Y=″:V （待求点的Y坐标）

说明：X0 Y0：已知点坐标I：两点的距离J：方位角

2、坐标反算

Lbl 0

＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?V

Pol(U-X,V-Y):

J<0 J+360→J

＂I=″:I

＂J=″:J DMS

GOTO 0

说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线

＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R Lbl 1

＂DQHAO=″?L

＂PY=″?K

180(L-G)÷(πR) →E

2RSin(0.5E) →F

ReC(Abs(F),D+0.5E)：Cls

＂X=″:X+I+KCos(D+E+90) →A

＂Y=″:Y+J+KSin(D+E+90) →B

D+E→o:o<0 360+o→0o

＂FWJ=″:o DMS

Goto 1

Lbl 2

＂END″

说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量

4、竖曲线

＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:

((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S

CASIO 5800综合曲线坐标计算程序

适用：CASIO fx-5800P Q Q：２９５１８８３１６

[正确] CASIO fx-5800P综合曲线坐标计算程序（多数据库）

说明：该程序适用于计算器 CASIO fx-5800P，可进行线路贯通计算、线路的缓和曲线、圆曲线、夹直线段中、边桩坐标及切线方位角等。

1.? 输入1直接调用数据库，输入2则手动输入曲线要素

2.JSDK? 输入计算里程桩号

3.α? 输入转角：左转为负，右转为正

4.R? 输入圆曲线半径

5.LS? 输入缓和曲线长度

6.JD(DK)? 输入交点里程桩号

7.X(JD)? 输入本交点X坐标

8.Y(JD)? 输入本交点Y坐标

9.FWJ? 输入待求点切线方位角

10.J? 输入0程序计算中桩，输入1程序计算边桩

主程序名：ZHQX

1.Deg：Fix 4↙

2.＂1=>XY＂：＂2=>DK＂：＂＂？H↙

3.＂JSDK＂?Z ↙

4.If H=1：Then Goto A：IfEnd↙

5.If H=2：Then Goto B：IfEnd↙

6.Lb1 A↙

7.Prog＂ZHQX1＂↙

8.Goto C↙

9.Lb1 B↙

10.＂α＂?A：?R：＂LS＂?C：＂JD(DK)＂?D：＂X(JD)＂?N：＂Y(JD)＂?E：＂FWJ＂?F↙

11.Lb1 C↙

12.?J ↙

13.C∧2÷24÷R-C∧（4）÷2688÷R∧（3）→P ↙

14.C÷2-C∧（3）÷240÷R∧2→Q ↙

15.90×C÷π÷R→B ↙

16.＂T=＂：(R+P)tan(Abs(A)÷2)+Q→T◢

适用：CASIO fx-5800P Q Q：２９５１８８３１６

5800程序

(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，

Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。

(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。

(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的

值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。